iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 1
iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 2
aWghtFlux = mod(YearTime-FluxForcingStart,FluxForcingPeriod) /
& YearTime .lt. FluxForcingStart .or.
FluxForcingStart = -99999.
IF ( FluxForcingStart .EQ. -99999. .OR.
& WindForcingStart = FluxForcingStart
& SSTForcingStart = FluxForcingStart
& SSSForcingStart = FluxForcingStart
& FluxForcingStart, FluxForcingEnd, FluxForcingPeriod,
_RL FluxForcingStart, FluxForcingEnd, FluxForcingPeriod