COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo
INTEGER mpi_myYGlobalLo(nPx*nPy)
jG=mpi_myYGlobalLo(npe)-1+(bj-1)*sNy+j
jG = mpi_myYGlobalLo(npe+1)-1+(bj-1)*sNy+j
mpi_myYGlobalLo(npe+1) = itemp
mpi_myYGlobalLo(1)=1