daytime = FLOAT(secondsperday*(irec-1)) + modelstart
& modelstart,
_RL modelstart
secs = mytime - modelstart
first = ((mytime - modelstart) .lt. 0.5*modelstep)
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
call WRITE_0D_RL( modelstart, INDEX_NONE,'startTime =',
startrec = int((modelstart + startTime - fldsecs)/
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
wspeedstartdate = modelstart + wspeedstartdate
ustressstartdate = modelstart + ustressstartdate
vstressstartdate = modelstart + vstressstartdate
atempstartdate = modelstart + atempstartdate
aqhstartdate = modelstart + aqhstartdate
lwfluxstartdate = modelstart + lwfluxstartdate
precipstartdate = modelstart + precipstartdate
snowprecipstartdate=modelstart + snowprecipstartdate
hfluxstartdate = modelstart + hfluxstartdate
sfluxstartdate = modelstart + sfluxstartdate
swfluxstartdate = modelstart + swfluxstartdate
evapstartdate = modelstart + evapstartdate
runoffstartdate = modelstart + runoffstartdate
sgrunoffstartdate = modelstart + sgrunoffstartdate
swdownstartdate = modelstart + swdownstartdate
lwdownstartdate = modelstart + lwdownstartdate
apressurestartdate= modelstart + apressurestartdate
areamaskstartdate= modelstart + areamaskstartdate
obcsNstartdate = modelstart + obcsNstartdate
obcsSstartdate = modelstart + obcsSstartdate
obcsEstartdate = modelstart + obcsEstartdate
obcsWstartdate = modelstart + obcsWstartdate
siobNstartdate = modelstart + siobNstartdate
siobSstartdate = modelstart + siobSstartdate
siobEstartdate = modelstart + siobEstartdate
siobWstartdate = modelstart + siobWstartdate
climsststartdate = modelstart + climsststartdate
climsssstartdate = modelstart + climsssstartdate
climustrstartdate = modelstart + climustrstartdate
climvstrstartdate = modelstart + climvstrstartdate
uwindstartdate = modelstart + uwindstartdate
vwindstartdate = modelstart + vwindstartdate