| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getrec.F |
206 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
208 |
CTRL_GETREC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
209 |
CTRL_GETREC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
237 |
CTRL_GETREC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
240 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
245 |
CTRL_GETREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
74 |
CTRL_GETREC |
_RL fldsecs |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
108 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
109 |
CTRL_GET_GEN_REC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
110 |
CTRL_GET_GEN_REC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
137 |
CTRL_GET_GEN_REC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
140 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
145 |
CTRL_GET_GEN_REC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
66 |
CTRL_GET_GEN_REC |
_RL fldsecs |
|
./pkg/exf/exf_getffieldrec.F |
115 |
EXF_GETFFIELDREC |
fldsecs = mytime - fldstartdate |
|
./pkg/exf/exf_getffieldrec.F |
126 |
EXF_GETFFIELDREC |
prevfldsecs = fldsecs - modelstep |
|
./pkg/exf/exf_getffieldrec.F |
135 |
EXF_GETFFIELDREC |
if ( fldsecs .lt. 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
139 |
EXF_GETFFIELDREC |
count0 = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
142 |
EXF_GETFFIELDREC |
fldsecs = fldsecs - int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
148 |
EXF_GETFFIELDREC |
do while ( fldsecs .lt. 0 ) |
|
./pkg/exf/exf_getffieldrec.F |
149 |
EXF_GETFFIELDREC |
fldsecs = fldsecs + repeatPeriod |
|
./pkg/exf/exf_getffieldrec.F |
151 |
EXF_GETFFIELDREC |
fldsecs0 = mod(fldsecs,repeatPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
153 |
EXF_GETFFIELDREC |
fldsecs1 = mod(fldsecs+fldperiod,repeatPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
160 |
EXF_GETFFIELDREC |
fldsecs = fldsecs0-int((fldsecs0+0.5)/fldperiod)*fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
170 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
236 |
EXF_GETFFIELDREC |
fldsecs = int(fldsectot/fldperiod)*fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
237 |
EXF_GETFFIELDREC |
fldcount = int(fldsecs/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
270 |
EXF_GETFFIELDREC |
nexttime = mytime - (fldsectot-fldsecs) + fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
82 |
EXF_GETFFIELDREC |
_RL fldsecs |