fldperiod = xx_genperiod

      elseif ( fldperiod .eq. 0. _d 0 ) then

     &                fldperiod) + 1

       fldsecs  = int((fldsecs+0.5)/fldperiod)*fldperiod

       fldcount = int((fldsecs+0.5)/fldperiod) + 1

        prevfldsecs  = int((prevfldsecs+0.5)/fldperiod)*fldperiod

        prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1

       fac = 1. - fldsecs/fldperiod

      _RL     fldperiod

      fldperiod = 0.

      fldperiod = 0.

         fldperiod = xx_obcsnperiod

         fldperiod = xx_obcssperiod

         fldperiod = xx_obcswperiod

         fldperiod = xx_obcseperiod

         fldperiod = xx_hfluxperiod

         fldperiod = xx_atempperiod

         fldperiod = xx_sfluxperiod

         fldperiod = xx_aqhperiod

         fldperiod = xx_precipperiod

         fldperiod = xx_swfluxperiod

         fldperiod = xx_swdownperiod

         fldperiod = xx_lwfluxperiod

         fldperiod = xx_lwdownperiod

         fldperiod = xx_evapperiod

         fldperiod = xx_snowprecipperiod

         fldperiod = xx_apressureperiod

         fldperiod = xx_runoffperiod

         fldperiod = xx_tauuperiod

         fldperiod = xx_uwindperiod

         fldperiod = xx_tauvperiod

         fldperiod = xx_vwindperiod

         fldperiod = xx_sstperiod

         fldperiod = xx_sssperiod

      fldsecs  = int((fldsecs+0.5)/fldperiod)*fldperiod

      fldcount = int((fldsecs+0.5)/fldperiod) + 1

        prevfldsecs  = int((prevfldsecs+0.5)/fldperiod)*fldperiod

        prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1

      fac = 1. - fldsecs/fldperiod

      _RL     fldperiod

     &                fldperiod) + 1

     &                fldperiod) + 2

     I     fldstartdate1, fldstartdate2, fldperiod, nfac,

       endrec   = (int((endTime - startTime)/fldperiod) + 1)*nfac

      _RL     fldperiod

      if ( fldperiod .EQ. -12. ) then

      elseif ( fldperiod .EQ. 0. ) then