& exch2_xStack_Nx, exch2_xStack_Ny,
INTEGER exch2_xStack_Ny
exch2_xStack_Ny = 0
exch2_xStack_Ny = MAX( exch2_xStack_Ny, facet_dims(2*j) )
exch2_global_Ny = exch2_xStack_Ny
OBNS_Ny = exch2_xStack_Ny