& DIAGu_SI, DIAGv_SI, RHSu_SI, RHSv_SI,
_RL RHSu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_EXCH_XY_RL( RHSu_SI, myThid )
& RHSu_SI,
RHSu_SI (i,j,bi,bj) = cg_tauU (i,j,bi,bj)