theProc = exch2_tProc(tgT) - 1
& exch2_tProc,
INTEGER exch2_tProc( W2_maxNbTiles )
exch2_tProc(I) = np
& ' (PROC=',exch2_tProc(exch2_neighbourId(J,myTileId)),')'
exch2_tProc(I) = 0
sourceProc=exch2_tProc(myTileId)
targetProc=exch2_tProc(targetTile)