| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
112 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS ( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
113 |
CTRL_GET_GEN_REC |
startrec = int((modelstart + startTime - fldsecs)/ |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
119 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
120 |
CTRL_GET_GEN_REC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
121 |
CTRL_GET_GEN_REC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
150 |
CTRL_GET_GEN_REC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
153 |
CTRL_GET_GEN_REC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
158 |
CTRL_GET_GEN_REC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
68 |
CTRL_GET_GEN_REC |
_RL fldsecs |
|
./pkg/ctrl/ctrl_getrec.F |
317 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
319 |
CTRL_GETREC |
fldsecs = int((fldsecs+0.5)/fldperiod)*fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
320 |
CTRL_GETREC |
fldcount = int((fldsecs+0.5)/fldperiod) + 1 |
|
./pkg/ctrl/ctrl_getrec.F |
348 |
CTRL_GETREC |
call CAL_TIMEINTERVAL( fldsecs, 'secs', difftime, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
351 |
CTRL_GETREC |
call CAL_TOSECONDS( difftime, fldsecs, mythid ) |
|
./pkg/ctrl/ctrl_getrec.F |
356 |
CTRL_GETREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/ctrl/ctrl_getrec.F |
75 |
CTRL_GETREC |
_RL fldsecs |
|
./pkg/exf/exf_getffieldrec.F |
116 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsectot,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
127 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsecs0,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
132 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
170 |
EXF_GETFFIELDREC |
fldsecs = mod(fldsectot,fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
171 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldperiod |
|
./pkg/exf/exf_getffieldrec.F |
173 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
179 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .true. |
|
./pkg/exf/exf_getffieldrec.F |
70 |
EXF_GETFFIELDREC |
_RL fldsectot, fldsecs, fldsecs0, fldsecs1 |