myTile = W2_myTileList(bi)
WRITE(tmpBuf,'(A,I4)') 'tile:',myTile
iG = exch2_myface(myTile)
INTEGER bi,bj, myTile, myiter
& exch2_isNedge(myTile) .EQ. 1 ) THEN
IF ( exch2_isWedge(myTile) .EQ. 1 .AND.
INTEGER myTile
& exch2_isSedge(myTile) .EQ. 1 ) THEN
IF ( exch2_isEedge(myTile) .EQ. 1 .AND.
southWestCorner = exch2_isWedge(myTile).EQ.1
& .AND. exch2_isSedge(myTile).EQ.1
southEastCorner = exch2_isEedge(myTile).EQ.1
northEastCorner = exch2_isEedge(myTile).EQ.1
& .AND. exch2_isNedge(myTile).EQ.1
northWestCorner = exch2_isWedge(myTile).EQ.1
INTEGER myTile, nCFace
nCFace = exch2_myFace(myTile)
N_edge = exch2_isNedge(myTile).EQ.1
S_edge = exch2_isSedge(myTile).EQ.1
E_edge = exch2_isEedge(myTile).EQ.1
W_edge = exch2_isWedge(myTile).EQ.1
IF ( exch2_myFace(myTile) .EQ. 1 .OR.
& exch2_myFace(myTile) .EQ. 2 .OR.
& exch2_myFace(myTile) .EQ. 4 .OR.
& exch2_myFace(myTile) .EQ. 5 ) THEN
ELSEIF ( exch2_isWedge(myTile) .EQ. 1 ) THEN
ELSEIF ( exch2_isSedge(myTile) .EQ. 1 ) THEN
INTEGER myIter, myTile
iG = exch2_myFace(myTile)
INTEGER myTile, iG