IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW
xmf = 1. _d 0 - (Ny-jG)*recipMW
xmf = 1. _d 0 - (iG-1 )*recipMW *(Ny-jG)*recipMW
xmf = 1. _d 0 - (Nx-iG)*recipMW *(Ny-jG)*recipMW
xmf = 1. _d 0 - (jG-1)*recipMW
xmf = 1. _d 0 - (iG-1 )*recipMW*(jG-1)*recipMW
xmf = 1. _d 0 - (Nx-iG)*recipMW*(jG-1)*recipMW
_RL recipMW
recipMW = ( xmw - 1 )
IF ( xmw.NE.1 ) recipMW = 1. _d 0 / recipMW