File |
Line number |
Procedure |
Code |
./pkg/cal/cal_stepsforday.F |
136 |
CAL_STEPSFORDAY |
fullsteps = int((secondsperday - startsecs)/mdstep) |
./pkg/cal/cal_stepsforday.F |
137 |
CAL_STEPSFORDAY |
numsteps = fullsteps |
./pkg/cal/cal_stepsforday.F |
139 |
CAL_STEPSFORDAY |
frac1 = (secondsperday - startsecs) - fullsteps*mdstep |
./pkg/cal/cal_stepsforday.F |
140 |
CAL_STEPSFORDAY |
fullsteps = int(secondsperday/modelstep) |
./pkg/cal/cal_stepsforday.F |
142 |
CAL_STEPSFORDAY |
frac2 = secondsperday - fullsteps*mdstep |
./pkg/cal/cal_stepsforday.F |
145 |
CAL_STEPSFORDAY |
numsteps = numsteps + (iday - 1)*fullsteps + |
./pkg/cal/cal_stepsforday.F |
153 |
CAL_STEPSFORDAY |
fullsteps = int((secondsperday - startsecs)/mdstep) |
./pkg/cal/cal_stepsforday.F |
154 |
CAL_STEPSFORDAY |
numsteps = fullsteps |
./pkg/cal/cal_stepsforday.F |
156 |
CAL_STEPSFORDAY |
frac1 = (secondsperday - startsecs) - fullsteps*mdstep |
./pkg/cal/cal_stepsforday.F |
157 |
CAL_STEPSFORDAY |
fullsteps = int(secondsperday/modelstep) |
./pkg/cal/cal_stepsforday.F |
159 |
CAL_STEPSFORDAY |
frac2 = secondsperday - fullsteps*mdstep |
./pkg/cal/cal_stepsforday.F |
162 |
CAL_STEPSFORDAY |
numsteps = numsteps + (iday - 2)*fullsteps |
./pkg/cal/cal_stepsforday.F |
166 |
CAL_STEPSFORDAY |
laststep = numsteps + fullsteps |
./pkg/cal/cal_stepsforday.F |
57 |
CAL_STEPSFORDAY |
integer fullsteps |