| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffield_start.F |
58 |
EXF_GETFFIELD_START |
INTEGER date_array(4), difftime(4), yearStartDate(4) |
|
./pkg/exf/exf_getffield_start.F |
88 |
EXF_GETFFIELD_START |
yearStartDate(1) = INT(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_getffield_start.F |
89 |
EXF_GETFFIELD_START |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_getffield_start.F |
90 |
EXF_GETFFIELD_START |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_getffield_start.F |
91 |
EXF_GETFFIELD_START |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_getffield_start.F |
92 |
EXF_GETFFIELD_START |
CALL CAL_TIMEPASSED( yearStartDate, date_array, difftime, |
|
./pkg/exf/exf_getffieldrec.F |
160 |
EXF_GETFFIELDREC |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_getffieldrec.F |
161 |
EXF_GETFFIELDREC |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_getffieldrec.F |
162 |
EXF_GETFFIELDREC |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_getffieldrec.F |
163 |
EXF_GETFFIELDREC |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_getffieldrec.F |
164 |
EXF_GETFFIELDREC |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |
|
./pkg/exf/exf_getffieldrec.F |
83 |
EXF_GETFFIELDREC |
INTEGER yearStartDate(4) |
|
./pkg/exf/exf_zenithangle.F |
61 |
EXF_ZENITHANGLE |
INTEGER dayStartDate(4),yearStartDate(4) |
|
./pkg/exf/exf_zenithangle.F |
81 |
EXF_ZENITHANGLE |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_zenithangle.F |
82 |
EXF_ZENITHANGLE |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_zenithangle.F |
83 |
EXF_ZENITHANGLE |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_zenithangle.F |
84 |
EXF_ZENITHANGLE |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_zenithangle.F |
85 |
EXF_ZENITHANGLE |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |