| File |
Line number |
Procedure |
Code |
|
./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 |
102 |
CTRL_GETREC |
fldperiod = 0. |
|
./pkg/ctrl/ctrl_getrec.F |
112 |
CTRL_GETREC |
fldperiod = xx_obcsnperiod |
|
./pkg/ctrl/ctrl_getrec.F |
121 |
CTRL_GETREC |
fldperiod = xx_obcssperiod |
|
./pkg/ctrl/ctrl_getrec.F |
130 |
CTRL_GETREC |
fldperiod = xx_obcswperiod |
|
./pkg/ctrl/ctrl_getrec.F |
139 |
CTRL_GETREC |
fldperiod = xx_obcseperiod |
|
./pkg/ctrl/ctrl_getrec.F |
149 |
CTRL_GETREC |
fldperiod = xx_hfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
158 |
CTRL_GETREC |
fldperiod = xx_atempperiod |
|
./pkg/ctrl/ctrl_getrec.F |
167 |
CTRL_GETREC |
fldperiod = xx_sfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
176 |
CTRL_GETREC |
fldperiod = xx_aqhperiod |
|
./pkg/ctrl/ctrl_getrec.F |
185 |
CTRL_GETREC |
fldperiod = xx_precipperiod |
|
./pkg/ctrl/ctrl_getrec.F |
194 |
CTRL_GETREC |
fldperiod = xx_swfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
203 |
CTRL_GETREC |
fldperiod = xx_swdownperiod |
|
./pkg/ctrl/ctrl_getrec.F |
212 |
CTRL_GETREC |
fldperiod = xx_lwfluxperiod |
|
./pkg/ctrl/ctrl_getrec.F |
221 |
CTRL_GETREC |
fldperiod = xx_lwdownperiod |
|
./pkg/ctrl/ctrl_getrec.F |
230 |
CTRL_GETREC |
fldperiod = xx_evapperiod |
|
./pkg/ctrl/ctrl_getrec.F |
239 |
CTRL_GETREC |
fldperiod = xx_snowprecipperiod |
|
./pkg/ctrl/ctrl_getrec.F |
248 |
CTRL_GETREC |
fldperiod = xx_apressureperiod |
|
./pkg/ctrl/ctrl_getrec.F |
257 |
CTRL_GETREC |
fldperiod = xx_runoffperiod |
|
./pkg/ctrl/ctrl_getrec.F |
266 |
CTRL_GETREC |
fldperiod = xx_tauuperiod |
|
./pkg/ctrl/ctrl_getrec.F |
275 |
CTRL_GETREC |
fldperiod = xx_uwindperiod |
|
./pkg/ctrl/ctrl_getrec.F |
284 |
CTRL_GETREC |
fldperiod = xx_tauvperiod |
|
./pkg/ctrl/ctrl_getrec.F |
293 |
CTRL_GETREC |
fldperiod = xx_vwindperiod |
|
./pkg/ctrl/ctrl_getrec.F |
302 |
CTRL_GETREC |
fldperiod = xx_sstperiod |
|
./pkg/ctrl/ctrl_getrec.F |
311 |
CTRL_GETREC |
fldperiod = xx_sssperiod |
|
./pkg/ctrl/ctrl_getrec.F |
331 |
CTRL_GETREC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
332 |
CTRL_GETREC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
347 |
CTRL_GETREC |
prevfldsecs = int((prevfldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
348 |
CTRL_GETREC |
prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
368 |
CTRL_GETREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
79 |
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 |