E_edge = exch2_isEedge(myTile).EQ.1

       E_edge = exch2_isEedge(myTile).EQ.1

     &     'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)

        southEastCorner = exch2_isEedge(myTile).EQ.1

        northEastCorner = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

           southEastCorner = exch2_isEedge(myTile).EQ.1

           northEastCorner = exch2_isEedge(myTile).EQ.1

       E_edge = exch2_isEedge(myTile).EQ.1

         southEastCorner = exch2_isEedge(myTile).EQ.1

         northEastCorner = exch2_isEedge(myTile).EQ.1

         southEastCorner = exch2_isEedge(myTile).EQ.1

         northEastCorner = exch2_isEedge(myTile).EQ.1

       E_edge = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

       southEastCorner = exch2_isEedge(myTile).EQ.1

       northEastCorner = exch2_isEedge(myTile).EQ.1

       INTEGER exch2_isEedge(NTILES)

     &        exch2_isEedge, exch2_isSedge,

       exch2_isEedge(2)=1

       exch2_isEedge(3)=1

       exch2_isEedge(4)=1

       exch2_isEedge(5)=1

       exch2_isEedge(1)=1

       exch2_isEedge(6)=1