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