if (repeatPeriod.eq.0.) then
elseif (repeatPeriod.gt.0.) then
fldsecs = fldsecs + repeatPeriod
fldsecs0 = mod(fldsecs,repeatPeriod)
fldsecs1 = mod(fldsecs+fldperiod,repeatPeriod)
prevfldsecs = prevfldsecs + repeatPeriod
prevfldsecs = mod(prevfldsecs,repeatPeriod)
if (repeatPeriod.NE.0.) then
& repeatPeriod, exf_albedo,
_RL repeatPeriod
repeatPeriod = 0.0 _d 0
& windstressmax, repeatPeriod, exf_albedo,