& modelend,
_RL modelend
modelend = modend
if ( modelintsteps .eq. 0 .and. modelend .ne. 0. )
& modelintsteps = int(0.5 + (modelend - modelstart)/modelstep)
if ( modeliterend .eq. 0 .and. modelend .ne. 0. )
& modeliterend = int(0.5 + modelend/modelstep)
if ( modelend .eq. 0. .and. modelintsteps .ne. 0 )
& modelend = modelstart + modelstep*float(modelintsteps)
if ( modelend .eq. 0. .and. modeliterend .ne. 0 )
& modelend = modelstep*float(modeliterend)
modelend = modelstart + runtimesecs
else if ( modelend .ne. modend ) then
call WRITE_0D_RL( modelend, INDEX_NONE,'endTime =',
endrec = int((modelend + startTime - diffsecs + modelstep/2)/
endrec = int((modelend - diffsecs)/xx_obcsnperiod) + 2
endrec = int((modelend - diffsecs)/xx_obcssperiod) + 2
endrec = int((modelend - diffsecs)/xx_obcswperiod) + 2
endrec = int((modelend - diffsecs)/xx_obcseperiod) + 2