COMMON /efluxFFIELDS/ EfluxY,EfluxP
_RL EfluxY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
EfluxY(i,j,k,bi,bj)=0.
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj)
_EXCH_XYZ_RL( EfluxY, mythid )