nCFace = exch2_myFace(myTile)
& 'exch2_myFace', 1, exch2_myFace(tnum), myThid)
uniq_fnum = exch2_myFace( W2_myTileList(bi) )
myFace = exch2_myFace(myTile)
iG = exch2_myFace(myTile)
iface = exch2_myFace(uniq_tnum)
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
INTEGER exch2_myFace(NTILES)
& exch2_myFace, exch2_mydNx, exch2_mydNy,
exch2_myFace(2)=2
exch2_myFace(3)=3
exch2_myFace(4)=4
exch2_myFace(5)=5
exch2_myFace(1)=1
exch2_myFace(6)=6