& 'RS', 1, taux1, intime1, myThid )
CALL EXCH_UV_XY_RS(taux1,tauy1,.TRUE.,myThid)
& +aWght*taux1(i,j,bi,bj)
& taux0(1,sNy,1,1),taux1(1,sNy,1,1),fu(1,sNy,1,1),
& +aWght*taux1(i,j,bi,bj))
taux1 (i,j,bi,bj) = 0. _d 0
& taux1, tauy1, Qnet1, EmPmR1, SST1, SSS1,
_RS taux1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)