| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesflags.F |
101 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( -modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
174 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
230 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
99 |
COST_AVERAGESFLAGS |
call CAL_GETDATE( myiter+1, mytime+modelstep, nextdate, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
126 |
CAL_GETMONTHSREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/cal/cal_getmonthsrec.F |
82 |
CAL_GETMONTHSREC |
call CAL_TIMEINTERVAL( -modelstep, 'secs', modelsteptime, |
|
./pkg/cal/cal_summary.F |
99 |
CAL_SUMMARY |
call WRITE_0D_R8( modelstep, INDEX_NONE,'deltatclock =', |
|
./pkg/cal/cal_nstepday.F |
49 |
NO PROCEDURE |
cal_nStepDay = secondsperday/nint(modelstep) |
|
./pkg/cal/cal_set.F |
141 |
CAL_SET |
modelstep = modstep |
|
./pkg/cal/cal_set.F |
149 |
CAL_SET |
if ( modelstep .le. 0. ) then |
|
./pkg/cal/cal_set.F |
154 |
CAL_SET |
if ( modelstep .lt. 1. ) then |
|
./pkg/cal/cal_set.F |
159 |
CAL_SET |
if ( abs(modelstep - nint(modelstep)) .gt. 0.000001 ) then |
|
./pkg/cal/cal_set.F |
164 |
CAL_SET |
modelstep = float(nint(modelstep)) |
|
./pkg/cal/cal_set.F |
169 |
CAL_SET |
modelstart = modelstep*float(modeliter0) |
|
./pkg/cal/cal_set.F |
173 |
CAL_SET |
modeliter0 = int( modelstart/modelstep ) |
|
./pkg/cal/cal_set.F |
180 |
CAL_SET |
& modelintsteps = int(0.5 + (modelend - modelstart)/modelstep) |
|
./pkg/cal/cal_set.F |
186 |
CAL_SET |
& modeliterend = int(0.5 + modelend/modelstep) |
|
./pkg/cal/cal_set.F |
190 |
CAL_SET |
& modelend = modelstart + modelstep*float(modelintsteps) |
|
./pkg/cal/cal_set.F |
192 |
CAL_SET |
& modelend = modelstep*float(modeliterend) |
|
./pkg/cal/cal_set.F |
382 |
CAL_SET |
runtimesecs = float(modelintsteps)*modelstep |
|
./pkg/cal/cal_set.F |
401 |
CAL_SET |
modelintsteps = int(runtimesecs/modelstep) |
|
./pkg/cal/cal_set.F |
402 |
CAL_SET |
runtimesecs = modelintsteps*modelstep |
|
./pkg/cal/cal_set.F |
413 |
CAL_SET |
iterinisecs = float(modeliter0)*modelstep |
|
./pkg/cal/cal_set.F |
435 |
CAL_SET |
else if ( modelstep .ne. modstep ) then |
|
./pkg/cal/cal_getdate.F |
58 |
CAL_GETDATE |
secs = float(myiter - modeliter0)*modelstep |
|
./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_timeinterval.F |
78 |
CAL_TIMEINTERVAL |
date(1) = int(timeint*modelstep/float(secondsperday)) |
|
./pkg/cal/cal_timeinterval.F |
79 |
CAL_TIMEINTERVAL |
nsecs = int(timeint*modelstep - |
|
./pkg/cal/cal_stepsperday.F |
71 |
CAL_STEPSPERDAY |
& int(presentsecs/modelstep) |
|
./pkg/cal/cal_stepsperday.F |
76 |
CAL_STEPSPERDAY |
numsteps = int((finalsecs - presentsecs)/modelstep) |
|
./pkg/cal/cal.h |
62 |
NO PROCEDURE |
& modelstep |
|
./pkg/cal/cal.h |
66 |
NO PROCEDURE |
_RL modelstep |
|
./pkg/ctrl/ctrl_getrec.F |
212 |
CTRL_GETREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_getrec.F |
217 |
CTRL_GETREC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
113 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
118 |
CTRL_GET_GEN_REC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_init.F |
170 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
192 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
224 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
246 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
278 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
300 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
332 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
354 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/exf/exf_getffieldrec.F |
118 |
EXF_GETFFIELDREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/exf/exf_getffieldrec.F |
126 |
EXF_GETFFIELDREC |
prevfldsecs = fldsecs - modelstep |
|
./pkg/exf/exf_getffieldrec.F |
243 |
EXF_GETFFIELDREC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/exf/exf_getffieldrec.F |
271 |
EXF_GETFFIELDREC |
nextiter = INT(nexttime/modelstep +0.0001) |