dayiter = hoursperday*(irec-1)+modeliter0
integer modeliter0
& modeliter0,
secs = float(myiter - modeliter0)*modelstep
modeliter0 = moditerini
if ( modeliter0 .ne. 0 .and. modelstart .eq. 0. ) then
modelstart = modelstep*float(modeliter0)
if ( modeliter0 .eq. 0 .and. modelstart .ne. 0. ) then
modeliter0 = int( modelstart/modelstep )
& modelintsteps = modeliterend - modeliter0
& modeliterend = modeliter0 + modelintsteps
iterinisecs = float(modeliter0)*modelstep
modeliterend = modeliter0 + modelintsteps
else if ( modeliter0 .ne. moditerini ) then