| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
165 |
EXF_GETFFIELDREC |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
|
./pkg/exf/exf_getffieldrec.F |
168 |
EXF_GETFFIELDREC |
if ( myDateSeconds .lt. fldStartTime ) year0 = year0 - 1 |
|
./pkg/exf/exf_getffieldrec.F |
176 |
EXF_GETFFIELDREC |
if ( myDateSeconds .lt. fldStartTime ) |
|
./pkg/exf/exf_getffieldrec.F |
177 |
EXF_GETFFIELDREC |
& myDateSeconds = myDateSeconds + secondsInYear |
|
./pkg/exf/exf_getffieldrec.F |
178 |
EXF_GETFFIELDREC |
fldsectot = myDateSeconds - fldStartTime |
|
./pkg/exf/exf_getffieldrec.F |
86 |
EXF_GETFFIELDREC |
_RL secondsInYear, myDateSeconds |
|
./pkg/exf/exf_zenithangle.F |
59 |
EXF_ZENITHANGLE |
_RL myDateSeconds |
|
./pkg/exf/exf_zenithangle.F |
86 |
EXF_ZENITHANGLE |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
|
./pkg/exf/exf_zenithangle.F |
88 |
EXF_ZENITHANGLE |
TYEAR=myDateSeconds/secondsInYear |
|
./pkg/exf/exf_zenithangle.F |
95 |
EXF_ZENITHANGLE |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
|
./pkg/exf/exf_zenithangle.F |
97 |
EXF_ZENITHANGLE |
TDAY= myDateSeconds / ( 86400 . _d 0 ) |