| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
116 |
EXF_GETFFIELDREC |
count0 = int((fldsectot+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
118 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsectot,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
126 |
EXF_GETFFIELDREC |
count0 = int((fldsecs0+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
127 |
EXF_GETFFIELDREC |
fldsecs1 = mod(fldsectot+fldperiod,repeatPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
128 |
EXF_GETFFIELDREC |
count1 = int((fldsecs1+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
129 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsecs0,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
134 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
161 |
EXF_GETFFIELDREC |
count0 = int((fldsectot+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
166 |
EXF_GETFFIELDREC |
if ( (fldstartdate+count0*fldperiod) .ge. secondsInYear ) then |
|
./pkg/exf/exf_getffieldrec.F |
172 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsectot,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
173 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
175 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
38 |
EXF_GETFFIELDREC |
_RL fldstartdate, fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
7 |
EXF_GETFFIELDREC |
I fldstartdate, fldperiod, |
|
./pkg/exf/exf_getffieldrec.F |
86 |
EXF_GETFFIELDREC |
if ( fldperiod .eq. 0. _d 0 ) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
100 |
CTRL_GET_GEN_REC |
fldperiod = xx_genperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
118 |
CTRL_GET_GEN_REC |
elseif ( fldperiod .eq. 0. _d 0 ) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
137 |
CTRL_GET_GEN_REC |
& fldperiod) + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
143 |
CTRL_GET_GEN_REC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
144 |
CTRL_GET_GEN_REC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
158 |
CTRL_GET_GEN_REC |
prevfldsecs = int((prevfldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
159 |
CTRL_GET_GEN_REC |
prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
181 |
CTRL_GET_GEN_REC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
71 |
CTRL_GET_GEN_REC |
_RL fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
91 |
CTRL_GET_GEN_REC |
fldperiod = 0. |
|
./pkg/ctrl/ctrl_getrec.F |
101 |
CTRL_GETREC |
fldperiod = 0. |
|
./pkg/ctrl/ctrl_getrec.F |
111 |
CTRL_GETREC |
fldperiod = xx_hfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
120 |
CTRL_GETREC |
fldperiod = xx_atempperiod |
|
./pkg/ctrl/ctrl_getrec.F |
129 |
CTRL_GETREC |
fldperiod = xx_sfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
138 |
CTRL_GETREC |
fldperiod = xx_aqhperiod |
|
./pkg/ctrl/ctrl_getrec.F |
147 |
CTRL_GETREC |
fldperiod = xx_precipperiod |
|
./pkg/ctrl/ctrl_getrec.F |
156 |
CTRL_GETREC |
fldperiod = xx_swfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
165 |
CTRL_GETREC |
fldperiod = xx_swdownperiod |
|
./pkg/ctrl/ctrl_getrec.F |
174 |
CTRL_GETREC |
fldperiod = xx_lwfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
183 |
CTRL_GETREC |
fldperiod = xx_lwdownperiod |
|
./pkg/ctrl/ctrl_getrec.F |
192 |
CTRL_GETREC |
fldperiod = xx_evapperiod |
|
./pkg/ctrl/ctrl_getrec.F |
201 |
CTRL_GETREC |
fldperiod = xx_snowprecipperiod |
|
./pkg/ctrl/ctrl_getrec.F |
210 |
CTRL_GETREC |
fldperiod = xx_apressureperiod |
|
./pkg/ctrl/ctrl_getrec.F |
219 |
CTRL_GETREC |
fldperiod = xx_runoffperiod |
|
./pkg/ctrl/ctrl_getrec.F |
228 |
CTRL_GETREC |
fldperiod = xx_tauuperiod |
|
./pkg/ctrl/ctrl_getrec.F |
237 |
CTRL_GETREC |
fldperiod = xx_uwindperiod |
|
./pkg/ctrl/ctrl_getrec.F |
246 |
CTRL_GETREC |
fldperiod = xx_tauvperiod |
|
./pkg/ctrl/ctrl_getrec.F |
255 |
CTRL_GETREC |
fldperiod = xx_vwindperiod |
|
./pkg/ctrl/ctrl_getrec.F |
264 |
CTRL_GETREC |
fldperiod = xx_obcsnperiod |
|
./pkg/ctrl/ctrl_getrec.F |
273 |
CTRL_GETREC |
fldperiod = xx_obcssperiod |
|
./pkg/ctrl/ctrl_getrec.F |
282 |
CTRL_GETREC |
fldperiod = xx_obcswperiod |
|
./pkg/ctrl/ctrl_getrec.F |
291 |
CTRL_GETREC |
fldperiod = xx_obcseperiod |
|
./pkg/ctrl/ctrl_getrec.F |
300 |
CTRL_GETREC |
fldperiod = xx_sstperiod |
|
./pkg/ctrl/ctrl_getrec.F |
309 |
CTRL_GETREC |
fldperiod = xx_sssperiod |
|
./pkg/ctrl/ctrl_getrec.F |
328 |
CTRL_GETREC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
329 |
CTRL_GETREC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
344 |
CTRL_GETREC |
prevfldsecs = int((prevfldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
345 |
CTRL_GETREC |
prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
365 |
CTRL_GETREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
78 |
CTRL_GETREC |
_RL fldperiod |
|
./pkg/ctrl/ctrl_init_rec.F |
102 |
CTRL_INIT_REC |
& fldperiod) + 1 |
|
./pkg/ctrl/ctrl_init_rec.F |
104 |
CTRL_INIT_REC |
& fldperiod) + 2 |
|
./pkg/ctrl/ctrl_init_rec.F |
10 |
CTRL_INIT_REC |
I fldstartdate1, fldstartdate2, fldperiod, nfac, |
|
./pkg/ctrl/ctrl_init_rec.F |
112 |
CTRL_INIT_REC |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
|
./pkg/ctrl/ctrl_init_rec.F |
46 |
CTRL_INIT_REC |
_RL fldperiod |
|
./pkg/ctrl/ctrl_init_rec.F |
88 |
CTRL_INIT_REC |
if ( fldperiod .EQ. -12. ) then |
|
./pkg/ctrl/ctrl_init_rec.F |
91 |
CTRL_INIT_REC |
elseif ( fldperiod .EQ. 0. ) then |