& xx_obcssstartdate1, xx_obcssstartdate2, xx_obcssperiod,
& , xx_obcssperiod
_RL xx_obcssperiod
I xx_obcssstartdate, xx_obcssperiod,
fldperiod = xx_obcssperiod
startrec = int((modelstart - diffsecs)/xx_obcssperiod) + 1
endrec = int((modelend - diffsecs)/xx_obcssperiod) + 2
xx_obcssperiod = 0. _d 0