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