| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_summary.F |
134 |
CAL_SUMMARY |
call WRITE_0D_I( modeliter0, INDEX_NONE, |
|
./pkg/cal/cal_set.F |
142 |
CAL_SET |
modeliter0 = moditerini |
|
./pkg/cal/cal_set.F |
168 |
CAL_SET |
if ( modeliter0 .ne. 0 .and. modelstart .eq. 0. ) then |
|
./pkg/cal/cal_set.F |
169 |
CAL_SET |
modelstart = modelstep*float(modeliter0) |
|
./pkg/cal/cal_set.F |
172 |
CAL_SET |
if ( modeliter0 .eq. 0 .and. modelstart .ne. 0. ) then |
|
./pkg/cal/cal_set.F |
173 |
CAL_SET |
modeliter0 = int( modelstart/modelstep ) |
|
./pkg/cal/cal_set.F |
178 |
CAL_SET |
& modelintsteps = modeliterend - modeliter0 |
|
./pkg/cal/cal_set.F |
184 |
CAL_SET |
& modeliterend = modeliter0 + modelintsteps |
|
./pkg/cal/cal_set.F |
413 |
CAL_SET |
iterinisecs = float(modeliter0)*modelstep |
|
./pkg/cal/cal_set.F |
424 |
CAL_SET |
modeliterend = modeliter0 + modelintsteps |
|
./pkg/cal/cal_set.F |
439 |
CAL_SET |
else if ( modeliter0 .ne. moditerini ) then |
|
./pkg/cal/cal_getdate.F |
58 |
CAL_GETDATE |
secs = float(myiter - modeliter0)*modelstep |
|
./pkg/cal/cal.h |
103 |
NO PROCEDURE |
integer modeliter0 |
|
./pkg/cal/cal.h |
83 |
NO PROCEDURE |
& modeliter0, |