first = ((mytime - modelstart) .lt. 0.5*modelstep)
call WRITE_0D_R8( modelstart, INDEX_NONE,'startTime =',
modelstart = modstart
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 = int(0.5 + (modelend - modelstart)/modelstep)
& modelend = modelstart + modelstep*float(modelintsteps)
modelend = modelstart + runtimesecs
if ( modelstart .ne. modstart) then
secs = mytime - modelstart
& modelstart,
_RL modelstart
startrec = int((modelstart + startTime - diffsecs)/
startrec = int((modelstart - diffsecs)/xx_obcsnperiod) + 1
startrec = int((modelstart - diffsecs)/xx_obcssperiod) + 1
startrec = int((modelstart - diffsecs)/xx_obcswperiod) + 1
startrec = int((modelstart - diffsecs)/xx_obcseperiod) + 1
climtempstartdate=modelstart+climtempstartdate
climsaltstartdate=modelstart+climsaltstartdate
climsststartdate=modelstart+climsststartdate
climsssstartdate=modelstart+climsssstartdate
uwindstartdate = modelstart + uwindstartdate
vwindstartdate = modelstart + vwindstartdate
ustressstartdate = modelstart + ustressstartdate
vstressstartdate = modelstart + vstressstartdate
atempstartdate = modelstart + atempstartdate
aqhstartdate = modelstart + aqhstartdate
lwfluxstartdate = modelstart + lwfluxstartdate
precipstartdate = modelstart + precipstartdate
hfluxstartdate = modelstart + hfluxstartdate
sfluxstartdate = modelstart + sfluxstartdate
swfluxstartdate = modelstart + swfluxstartdate
evapstartdate = modelstart + evapstartdate
runoffstartdate = modelstart + runoffstartdate
swdownstartdate = modelstart + swdownstartdate
lwdownstartdate = modelstart + lwdownstartdate
apressurestartdate = modelstart + apressurestartdate
obcsNstartdate = modelstart + obcsNstartdate
obcsSstartdate = modelstart + obcsSstartdate
obcsEstartdate = modelstart + obcsEstartdate
obcsWstartdate = modelstart + obcsWstartdate