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