& 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 = xx_genperiod
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_obcsnperiod
fldperiod = xx_obcssperiod
fldperiod = xx_obcswperiod
fldperiod = xx_obcseperiod
fldperiod = xx_sstperiod
fldperiod = xx_sssperiod
count0 = int((fldsectot+0.5)/fldperiod) + 1
fldsecs = mod(fldsectot,fldperiod)
count0 = int((fldsecs0+0.5)/fldperiod) + 1
fldsecs1 = mod(fldsectot+fldperiod,repeatPeriod)
count1 = int((fldsecs1+0.5)/fldperiod) + 1
fldsecs = mod(fldsecs0,fldperiod)
if ( (fldstartdate+count0*fldperiod) .ge. secondsInYear ) then
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldperiod)
_RL fldstartdate, fldperiod
I fldstartdate, fldperiod,
if ( fldperiod .eq. 0. _d 0 ) then