| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal.h |
62 |
NO PROCEDURE |
& modelstep |
|
./pkg/cal/cal.h |
66 |
NO PROCEDURE |
_RL modelstep |
|
./pkg/cal/cal_getdate.F |
58 |
CAL_GETDATE |
secs = float(myiter - modeliter0)*modelstep |
|
./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_nstepday.F |
49 |
NO PROCEDURE |
cal_nStepDay = secondsperday/nint(modelstep) |
|
./pkg/cal/cal_set.F |
140 |
CAL_SET |
modelstep = modstep |
|
./pkg/cal/cal_set.F |
148 |
CAL_SET |
if ( modelstep .le. 0. ) then |
|
./pkg/cal/cal_set.F |
153 |
CAL_SET |
if ( modelstep .lt. 1. ) then |
|
./pkg/cal/cal_set.F |
158 |
CAL_SET |
if ( abs(modelstep - nint(modelstep)) .gt. 0.000001 ) then |
|
./pkg/cal/cal_set.F |
163 |
CAL_SET |
modelstep = float(nint(modelstep)) |
|
./pkg/cal/cal_set.F |
168 |
CAL_SET |
modelstart = modelstep*float(modeliter0) |
|
./pkg/cal/cal_set.F |
172 |
CAL_SET |
modeliter0 = int( modelstart/modelstep ) |
|
./pkg/cal/cal_set.F |
179 |
CAL_SET |
& modelintsteps = int(0.5 + (modelend - modelstart)/modelstep) |
|
./pkg/cal/cal_set.F |
185 |
CAL_SET |
& modeliterend = int(0.5 + modelend/modelstep) |
|
./pkg/cal/cal_set.F |
189 |
CAL_SET |
& modelend = modelstart + modelstep*float(modelintsteps) |
|
./pkg/cal/cal_set.F |
191 |
CAL_SET |
& modelend = modelstep*float(modeliterend) |
|
./pkg/cal/cal_set.F |
381 |
CAL_SET |
runtimesecs = float(modelintsteps)*modelstep |
|
./pkg/cal/cal_set.F |
400 |
CAL_SET |
modelintsteps = int(runtimesecs/modelstep) |
|
./pkg/cal/cal_set.F |
401 |
CAL_SET |
runtimesecs = modelintsteps*modelstep |
|
./pkg/cal/cal_set.F |
412 |
CAL_SET |
iterinisecs = float(modeliter0)*modelstep |
|
./pkg/cal/cal_set.F |
434 |
CAL_SET |
else if ( modelstep .ne. modstep ) then |
|
./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 |
71 |
CAL_STEPSPERDAY |
& int(presentsecs/modelstep) |
|
./pkg/cal/cal_stepsperday.F |
76 |
CAL_STEPSPERDAY |
numsteps = int((finalsecs - presentsecs)/modelstep) |
|
./pkg/cal/cal_summary.F |
99 |
CAL_SUMMARY |
call WRITE_0D_RL( modelstep, INDEX_NONE,'deltatclock =', |
|
./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/ctrl/ctrl_get_gen_rec.F |
124 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
129 |
CTRL_GET_GEN_REC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_getrec.F |
323 |
CTRL_GETREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_getrec.F |
328 |
CTRL_GETREC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/ctrl/ctrl_init.F |
208 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
235 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
272 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
299 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
336 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
367 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
404 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
435 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
603 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
639 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
768 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
799 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
830 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
861 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
892 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
923 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
985 |
CTRL_INIT |
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 ) |
|
./pkg/exf/exf_getffieldrec.F |
179 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .true. |
|
./pkg/exf/exf_getffieldrec.F |
83 |
EXF_GETFFIELDREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/exf/exf_getffieldrec.F |
90 |
EXF_GETFFIELDREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |