farProc2 = northProc
northProc = mpi_northId
farProc1 = northProc
INTEGER northProc, southProc
northProc = jam_northId