DO II=1,nSx
IF ( W2_myTileList(II) .EQ. exch2_neighbourId(J,myTileId) )
INTEGER myThid, I, J, II
INTEGER II