iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 1
iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 2
aWghtWind = mod(YearTime-WindForcingStart,WindForcingPeriod) /
& WindForcingPeriod
WindForcingPeriod = -99999.
IF ( WindForcingPeriod .EQ. -99999. )
& WindForcingPeriod = FluxForcingPeriod
& WindForcingStart, WindForcingEnd, WindForcingPeriod,
_RL WindForcingStart, WindForcingEnd, WindForcingPeriod