Changes between Initial Version and Version 1 of Ticket #283


Ignore:
Timestamp:
02/24/09 23:21:57 (16 years ago)
Author:
arango
Comment:

Yes, thank you. Also many thanks to Kate for ​tracking this problem. The correction is: 

!  Normalization = (1/2*pi)*INTEGRAL{ABS(a+b*COS(t)) dt}  from 0 to 2*pi
!                = (a*ARCCOS(-a/b)+SQRT(b**2-a**2))/pi    for |a| < |b|
!
          IF (ABS(cff1).gt.ABS(cff2)) THEN
            IF (cff1*cff2.gt.0.0_r8) THEN
              cff=cff1                                 ! All day case

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #283

    • Property Resolution → Fixed
    • Property Status new → closed

  • Ticket #283 – Description

    initial v1  
    1 Line 215 of ana_srflux should be
     1Line 215 of '''ana_srflux.h''' should be
    22
    3 cff = cff1               (the factor of 2*pi is wrong)
     3
     4{{{
     5         cff=cff1
     6}}}
     7the factor of 2*pi is wrong.
    48
    59The comment about it should read:
    610
    7 !  Normalization factor = (1/2*pi) INTEGRAL{ABS(a+b*COS(t)) dt} from 0 to 2*pi
    8 !                       = (a*ARCCOS(-a/b)+SQRT(b**2-a**2))/pi  for |a|<|b|
     11
     12{{{
     13!  Normalization = (1/2*pi) INTEGRAL{ABS(a+b*COS(t)) dt} from 0 to 2*pi
     14!                = (a*ARCCOS(-a/b)+SQRT(b**2-a**2))/pi   for |a|<|b|
     15}}}