| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
104 |
EXF_GETFFIELDREC |
first = ((myTime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/exf/exf_getffieldrec.F |
199 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .TRUE. |
|
./pkg/exf/exf_getffieldrec.F |
97 |
EXF_GETFFIELDREC |
first = ((myTime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/cal/cal_getmonthsrec.F |
127 |
CAL_GETMONTHSREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/cal/cal_getmonthsrec.F |
87 |
CAL_GETMONTHSREC |
call CAL_TIMEINTERVAL( -modelstep, 'secs', modelsteptime, |
|
./pkg/cal/cal_stepsforday.F |
140 |
CAL_STEPSFORDAY |
fullsteps = int(secondsperday/modelstep) |
|
./pkg/cal/cal_stepsforday.F |
157 |
CAL_STEPSFORDAY |
fullsteps = int(secondsperday/modelstep) |
|
./pkg/cal/cal_stepsforday.F |
78 |
CAL_STEPSFORDAY |
mdstep = int(modelstep) |
|
./pkg/cal/cal_stepsperday.F |
73 |
CAL_STEPSPERDAY |
modelstepsperday = secondsperday/nint(modelstep) |
|
./pkg/cal/cal_stepsperday.F |
75 |
CAL_STEPSPERDAY |
& int(presentsecs/modelstep) |
|
./pkg/cal/cal_stepsperday.F |
80 |
CAL_STEPSPERDAY |
numsteps = int((finalsecs - presentsecs)/modelstep) |
|
./pkg/cal/cal_timeinterval.F |
87 |
CAL_TIMEINTERVAL |
date(1) = int(timeint*modelstep/float(secondsperday)) |
|
./pkg/cal/cal_timeinterval.F |
88 |
CAL_TIMEINTERVAL |
nsecs = int(timeint*modelstep - |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
122 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
147 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
152 |
CTRL_GET_GEN_REC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_getrec.F |
335 |
CTRL_GETREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_getrec.F |
340 |
CTRL_GETREC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_init_rec.F |
103 |
CTRL_INIT_REC |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ecco/cost_averagesflags.F |
113 |
COST_AVERAGESFLAGS |
call CAL_GETDATE( myiter+1, mytime+modelstep, nextdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
115 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( -modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
189 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
245 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
295 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |