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