_RL tauYTime (nSx,nSy)
U tauY, tauYTime, myThid )
tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction
tauYTime (bi,bj) = 0.