File |
Line number |
Procedure |
Code |
./pkg/exf/exf_getffield_start.F |
102 |
EXF_GETFFIELD_START |
CALL CAL_TIMEPASSED( gcm_startdate, date_array, difftime, |
./pkg/exf/exf_getffield_start.F |
58 |
EXF_GETFFIELD_START |
INTEGER date_array(4), difftime(4), yearStartDate(4) |
./pkg/exf/exf_getffield_start.F |
86 |
EXF_GETFFIELD_START |
& date_array, myThid ) |
./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 |
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, |