numsteps = fullsteps
numsteps = numsteps + (iday - 1)*fullsteps +
laststep = numsteps
numsteps = numsteps + (iday - 2)*fullsteps
laststep = numsteps + fullsteps
firststep = numsteps + 1
numsteps = numsteps + frac4/mdstep
integer numsteps
numsteps = modelstepsperday -
numsteps = int((finalsecs - presentsecs)/modelstep)
O numsteps,
& nyears, nmonths, ndays, numsteps,