INTEGER W2_tileProc ( W2_maxNbTiles )
& W2_tileProc,
IF ( W2_tileProc(jj).EQ.thisProc ) commFlag = 'P'
& ' (PROC=',W2_tileProc(exch2_neighbourId(J,myTileId)),')'
W2_tileProc(I) = 0
W2_tileProc(I) = np
sourceProc=W2_tileProc(myTileId)
targetProc=W2_tileProc(targetTile)
theProc = W2_tileProc(tgT) - 1
IF ( W2_tileProc(t2).EQ.myProcId+1 ) n2 = W2_tileIndex(t2)
IF ( W2_tileProc(t3).EQ.myProcId+1 ) n3 = W2_tileIndex(t3)