xmw = Cheapaml_mask_width
recipMW = ( xmw - 1 )
IF ( xmw.NE.1 ) recipMW = 1. _d 0 / recipMW
IF (jG.GT.xmw) THEN
IF (jG.LT.Ny-xmw+1) THEN
IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW
IF (iG.LE.xmw) THEN
ELSEIF (iG.GE.Nx-xmw+1) THEN
INTEGER xmw