| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
142 |
EXF_GETFFIELDREC |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_getffieldrec.F |
143 |
EXF_GETFFIELDREC |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_getffieldrec.F |
144 |
EXF_GETFFIELDREC |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_getffieldrec.F |
145 |
EXF_GETFFIELDREC |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_getffieldrec.F |
146 |
EXF_GETFFIELDREC |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |
|
./pkg/exf/exf_getffieldrec.F |
68 |
EXF_GETFFIELDREC |
INTEGER yearStartDate(4) |
|
./pkg/exf/exf_getfield_start.F |
49 |
EXF_GETFIELD_START |
INTEGER date_array(4), difftime(4), yearStartDate(4) |
|
./pkg/exf/exf_getfield_start.F |
58 |
EXF_GETFIELD_START |
yearStartDate(1) = INT(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_getfield_start.F |
59 |
EXF_GETFIELD_START |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_getfield_start.F |
60 |
EXF_GETFIELD_START |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_getfield_start.F |
61 |
EXF_GETFIELD_START |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_getfield_start.F |
62 |
EXF_GETFIELD_START |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_zenithangle.F |
48 |
EXF_ZENITHANGLE |
INTEGER dayStartDate(4),yearStartDate(4) |
|
./pkg/exf/exf_zenithangle.F |
68 |
EXF_ZENITHANGLE |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_zenithangle.F |
69 |
EXF_ZENITHANGLE |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_zenithangle.F |
70 |
EXF_ZENITHANGLE |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_zenithangle.F |
71 |
EXF_ZENITHANGLE |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_zenithangle.F |
72 |
EXF_ZENITHANGLE |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |