climtempstartdate=modelstart+climtempstartdate

        climsaltstartdate=modelstart+climsaltstartdate

         climsststartdate=modelstart+climsststartdate

         climsssstartdate=modelstart+climsssstartdate

      first = ((mytime - modelstart) .lt. 0.5*modelstep)

         uwindstartdate     = modelstart   + uwindstartdate

         vwindstartdate     = modelstart   + vwindstartdate

         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

         swdownstartdate    = modelstart  + swdownstartdate

         lwdownstartdate    = modelstart  + lwdownstartdate

         apressurestartdate = modelstart + apressurestartdate

         obcsNstartdate     = modelstart + obcsNstartdate

         obcsSstartdate     = modelstart + obcsSstartdate

         obcsEstartdate     = modelstart + obcsEstartdate

         obcsWstartdate     = modelstart + obcsWstartdate

      daytime = FLOAT(secondsperday*(irec-1)) + modelstart

      daytime = FLOAT(secondsperday*(irec-1)) + modelstart

      daytime = FLOAT(secondsperday*(irec-1)) + modelstart

      first = ((mytime - modelstart) .lt. 0.5*modelstep)

      first = ((mytime - modelstart) .lt. 0.5*modelstep)

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        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

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

        startrec = int((modelstart + startTime - diffsecs)/

      call WRITE_0D_R8( modelstart, INDEX_NONE,'startTime =',

     &                modelstart,

      _RL 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

        modelend      = modelstart + runtimesecs

      if ( modelstart .ne. modstart) then

        secs = mytime - modelstart