| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
171 |
EXF_GETFFIELDREC |
secondsInYear = ndaysnoleap * secondsperday |
|
./pkg/exf/exf_getffieldrec.F |
173 |
EXF_GETFFIELDREC |
& secondsInYear = ndaysleap * secondsperday |
|
./pkg/exf/exf_getffieldrec.F |
177 |
EXF_GETFFIELDREC |
& myDateSeconds = myDateSeconds + secondsInYear |
|
./pkg/exf/exf_getffieldrec.F |
184 |
EXF_GETFFIELDREC |
if ( (fldStartTime+count0*fldPeriod) .ge. secondsInYear ) then |
|
./pkg/exf/exf_getffieldrec.F |
193 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
86 |
EXF_GETFFIELDREC |
_RL secondsInYear, myDateSeconds |
|
./pkg/exf/exf_zenithangle.F |
104 |
EXF_ZENITHANGLE |
secondsInYear = 86400. _d 0 * 365.25 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
105 |
EXF_ZENITHANGLE |
TYEAR = myTime / secondsInYear |
|
./pkg/exf/exf_zenithangle.F |
57 |
EXF_ZENITHANGLE |
_RL secondsInYear |
|
./pkg/exf/exf_zenithangle.F |
77 |
EXF_ZENITHANGLE |
secondsInYear = ndaysnoleap * secondsperday |
|
./pkg/exf/exf_zenithangle.F |
79 |
EXF_ZENITHANGLE |
& secondsInYear = ndaysleap * secondsperday |
|
./pkg/exf/exf_zenithangle.F |
88 |
EXF_ZENITHANGLE |
TYEAR=myDateSeconds/secondsInYear |