fldperiod = xx_hfluxperiod

         fldperiod = xx_atempperiod

         fldperiod = xx_sfluxperiod

         fldperiod = xx_aqhperiod

         fldperiod = xx_tauuperiod

         fldperiod = xx_uwindperiod

         fldperiod = xx_tauvperiod

         fldperiod = xx_vwindperiod

         fldperiod = xx_obcsnperiod

         fldperiod = xx_obcssperiod

         fldperiod = xx_obcswperiod

         fldperiod = xx_obcseperiod

      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.

      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 = xx_genperiod

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

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

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

         count0      = int((fldsecs0+0.5)/fldperiod) + 1

         fldsecs1    = mod(fldsecs+fldperiod,repeatPeriod)

         count1      = int((fldsecs1+0.5)/fldperiod) + 1

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

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

      fac = 1. - fldsecs/fldperiod

        fldsecs  = int(fldsectot/fldperiod)*fldperiod

        fldcount = int(fldsecs/fldperiod) + 1

          prevfldsecs  = int(prevfldsecs/fldperiod)*fldperiod

          prevfldcount = int(prevfldsecs/fldperiod) + 1

        nexttime = mytime - (fldsectot-fldsecs) + fldperiod

      _RL     fldperiod

     I                             fldstartdate, fldperiod,