iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 1
iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 1
iRec = int((YearTime-SSTforcingStart)/SSTforcingPeriod) + 1
iRec = int((YearTime-SSSforcingStart)/SSSforcingPeriod) + 1
iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 2
aWghtWind = mod(YearTime-WindForcingStart,WindForcingPeriod) /
iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 2
aWghtFlux = mod(YearTime-FluxForcingStart,FluxForcingPeriod) /
iRec = int((YearTime-SSTforcingStart)/SSTforcingPeriod) + 2
aWghtSST = mod(YearTime-SSTforcingStart,SSTforcingPeriod) /
iRec = int((YearTime-SSSforcingStart)/SSSforcingPeriod) + 2
aWghtSSS = mod(YearTime-SSSforcingStart,SSSforcingPeriod) /
_RL year, seconds, YearTime, four
YearTime = myTime
if( YearTime-seconds .ge. 0. ) then
YearTime = YearTime-seconds
& YearTime .lt. WindForcingStart .or.
& YearTime .gt. WindForcingEnd .or.
& YearTime .lt. FluxForcingStart .or.
& YearTime .gt. FluxForcingEnd .or.
& YearTime .lt. SSTforcingStart .or.
& YearTime .gt. SSTforcingEnd .or.
& YearTime .lt. SSSforcingStart .or.
& YearTime .gt. SSSforcingEnd ) THEN