File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
736 |
TIC_TIME |
year0=testnymd/10000 |
./pkg/fizhi/fizhi_clockstuff.F |
740 |
TIC_TIME |
if( month0.eq.2 .and. mod(year0,4).eq.0) testndpm = 29 |
./pkg/fizhi/fizhi_clockstuff.F |
754 |
TIC_TIME |
year0 = year0 + 1 |
./pkg/fizhi/fizhi_clockstuff.F |
758 |
TIC_TIME |
iday0 = (day0-1) + MNDY(month0+12*mod(year0,4) ) |
./pkg/obcs/obcs_prescribe_read.F |
311 |
OBCS_PRESCRIBE_EXF_XZ |
integer year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
337 |
OBCS_PRESCRIBE_EXF_XZ |
O count0, count1, year0, year1, |
./pkg/obcs/obcs_prescribe_read.F |
343 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
347 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
351 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
355 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
360 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
371 |
OBCS_PRESCRIBE_EXF_XZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
397 |
OBCS_PRESCRIBE_EXF_XZ |
O count0, count1, year0, year1, |
./pkg/obcs/obcs_prescribe_read.F |
403 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
407 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
411 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
415 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
419 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
423 |
OBCS_PRESCRIBE_EXF_XZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
545 |
OBCS_PRESCRIBE_EXF_YZ |
integer year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
571 |
OBCS_PRESCRIBE_EXF_YZ |
O count0, count1, year0, year1, |
./pkg/obcs/obcs_prescribe_read.F |
577 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
581 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
585 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
589 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
594 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
605 |
OBCS_PRESCRIBE_EXF_YZ |
I , obcsperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
631 |
OBCS_PRESCRIBE_EXF_YZ |
O count0, count1, year0, year1, |
./pkg/obcs/obcs_prescribe_read.F |
637 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
641 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
645 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
649 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
653 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/obcs/obcs_prescribe_read.F |
657 |
OBCS_PRESCRIBE_EXF_YZ |
I , siobperiod, count0, count1, year0, year1 |
./pkg/exf/exf_getffieldrec.F |
11 |
EXF_GETFFIELDREC |
O count0, count1, year0, year1, |
./pkg/exf/exf_getffieldrec.F |
139 |
EXF_GETFFIELDREC |
year0 = int(mydate(1)/10000.) |
./pkg/exf/exf_getffieldrec.F |
140 |
EXF_GETFFIELDREC |
yearStartDate(1) = year0 * 10000 + 101 |
./pkg/exf/exf_getffieldrec.F |
148 |
EXF_GETFFIELDREC |
if ( myDateSeconds .lt. fldstartdate ) year0 = year0 - 1 |
./pkg/exf/exf_getffieldrec.F |
152 |
EXF_GETFFIELDREC |
if ( cal_IsLeap(year0,mythid) .eq. 2) |
./pkg/exf/exf_getffieldrec.F |
162 |
EXF_GETFFIELDREC |
year1 = year0 |
./pkg/exf/exf_getffieldrec.F |
165 |
EXF_GETFFIELDREC |
year1 = year0 + 1 |
./pkg/exf/exf_getffieldrec.F |
172 |
EXF_GETFFIELDREC |
if ( year0 .ne. year1 ) |
./pkg/exf/exf_getffieldrec.F |
54 |
EXF_GETFFIELDREC |
integer count0, count1, year0, year1 |
./pkg/exf/exf_getffieldrec.F |
97 |
EXF_GETFFIELDREC |
year0 = 0 |
./pkg/exf/exf_getffieldrec.F |
98 |
EXF_GETFFIELDREC |
year1 = year0 |
./pkg/exf/exf_set_gen.F |
120 |
EXF_SET_GEN |
O , count0, count1, year0, year1 |
./pkg/exf/exf_set_gen.F |
128 |
EXF_SET_GEN |
I useExfYearlyFields, twoDigitYear, genperiod, year0, |
./pkg/exf/exf_set_gen.F |
82 |
EXF_SET_GEN |
integer year0, year1 |
./pkg/exf/exf_set_obcs.F |
124 |
EXF_SET_OBCS_YZ |
I count0, count1, year0, year1, |
./pkg/exf/exf_set_obcs.F |
159 |
EXF_SET_OBCS_YZ |
INTEGER count0, count1, year0, year1 |
./pkg/exf/exf_set_obcs.F |
180 |
EXF_SET_OBCS_YZ |
I useYearlyFields, twoDigitYear, obcs_period, year0, |
./pkg/exf/exf_set_obcs.F |
19 |
EXF_SET_OBCS_XZ |
I count0, count1, year0, year1, |
./pkg/exf/exf_set_obcs.F |
227 |
EXF_SET_OBCS_X |
I count0, count1, year0, year1, |
./pkg/exf/exf_set_obcs.F |
262 |
EXF_SET_OBCS_X |
INTEGER count0, count1, year0, year1 |
./pkg/exf/exf_set_obcs.F |
282 |
EXF_SET_OBCS_X |
I useYearlyFields, twoDigitYear, obcs_period, year0, |
./pkg/exf/exf_set_obcs.F |
327 |
EXF_SET_OBCS_Y |
I count0, count1, year0, year1, |
./pkg/exf/exf_set_obcs.F |
361 |
EXF_SET_OBCS_Y |
INTEGER count0, count1, year0, year1 |
./pkg/exf/exf_set_obcs.F |
381 |
EXF_SET_OBCS_Y |
I useYearlyFields, twoDigitYear, obcs_period, year0, |
./pkg/exf/exf_set_obcs.F |
56 |
EXF_SET_OBCS_XZ |
INTEGER count0, count1, year0, year1 |
./pkg/exf/exf_set_obcs.F |
77 |
EXF_SET_OBCS_XZ |
I useYearlyFields, twoDigitYear, obcs_period, year0, |
./pkg/exf/exf_set_runoff.F |
103 |
EXF_SET_RUNOFF |
I useExfYearlyFields, twoDigitYear, genperiod, year0, |
./pkg/exf/exf_set_runoff.F |
57 |
EXF_SET_RUNOFF |
integer year0, year1 |
./pkg/exf/exf_set_runoff.F |
95 |
EXF_SET_RUNOFF |
O , count0, count1, year0, year1 |
./pkg/exf/exf_set_uv.F |
113 |
EXF_SET_UV |
O , count0, count1, year0, year1 |
./pkg/exf/exf_set_uv.F |
120 |
EXF_SET_UV |
I useExfYearlyFields, twoDigitYear, uvecperiod, year0, |
./pkg/exf/exf_set_uv.F |
125 |
EXF_SET_UV |
I useExfYearlyFields, twoDigitYear, vvecperiod, year0, |
./pkg/exf/exf_set_uv.F |
95 |
EXF_SET_UV |
integer year0, year1 |
./pkg/exf/exf_zenithangle.F |
54 |
EXF_ZENITHANGLE |
integer year0,mydate(4),difftime(4) |
./pkg/exf/exf_zenithangle.F |
72 |
EXF_ZENITHANGLE |
if ( cal_IsLeap(year0,mythid) .eq. 2) |
./pkg/exf/exf_zenithangle.F |
76 |
EXF_ZENITHANGLE |
year0 = int(mydate(1)/10000.) |
./pkg/exf/exf_zenithangle.F |
77 |
EXF_ZENITHANGLE |
yearStartDate(1) = year0 * 10000 + 101 |