COMMON /Mean_qnet/ Qnetm
_RS Qnetm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
& Qnetm(i,j,bi,bj)
& +Qnetm(i,j,bi,bj)
CALL EXCH_XY_RS( Qnetm, myThid )
Qnetm (i,j,bi,bj) = 0. _d 0
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
_EXCH_XY_RS(Qnetm, myThid )