& exch2_yStack_Nx, exch2_yStack_Ny,
INTEGER exch2_yStack_Ny
exch2_yStack_Ny = 0
exch2_yStack_Ny = exch2_yStack_Ny + facet_dims(2*j)
& + ( k-1 + (irecord-1)*kSize )*exch2_yStack_Ny
OBEW_Ny = exch2_yStack_Ny