| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
135 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsectot,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
147 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsecs0,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
152 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldPeriod |
|
./pkg/exf/exf_getffieldrec.F |
190 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsectot,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
191 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldPeriod |
|
./pkg/exf/exf_getffieldrec.F |
193 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
199 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .TRUE. |
|
./pkg/exf/exf_getffieldrec.F |
85 |
EXF_GETFFIELDREC |
_RL fldsectot, fldsecs, fldsecs0, fldsecs1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
135 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS ( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
136 |
CTRL_GET_GEN_REC |
startrec = int((modelstart + startTime - fldsecs)/ |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
142 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./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 |
173 |
CTRL_GET_GEN_REC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
176 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
181 |
CTRL_GET_GEN_REC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
65 |
CTRL_GET_GEN_REC |
_RL fldsecs |
|
./pkg/ctrl/ctrl_getrec.F |
329 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./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 |
360 |
CTRL_GETREC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
363 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
368 |
CTRL_GETREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
73 |
CTRL_GETREC |
_RL fldsecs |