_RL sWSpeedTime(nSx,nSy)
& airCO2Time, sWSpeedTime
U sWSpeed, sWSpeedTime, myThid )
sWSpeedTime(bi,bj) = sWSpeedTime(bi,bj) + cplTimeFraction
sWSpeedTime (bi,bj) = 0.