--- MITgcm/eesupp/src/gather_2d_rx.template	2009/06/08 03:34:03	1.5
+++ MITgcm/eesupp/src/gather_2d_rx.template	2009/06/28 01:02:17	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/gather_2d_rx.template,v 1.5 2009/06/08 03:34:03 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/gather_2d_rx.template,v 1.6 2009/06/28 01:02:17 jmc Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -78,10 +78,9 @@
             ENDDO
           ENDIF
 
-c         DO bj=1,nSy
-          bj=1
+          DO bj=1,nSy
            DO bi=1,nSx
-             tN = W2_myTileList(bi)
+             tN = W2_myTileList(bi,bj)
              IF   ( exch2_mydNx(tN) .GT. xSize ) THEN
 C-           face x-size larger than glob-size : fold it
                iGjLoc = 0
@@ -108,7 +107,7 @@
              ENDDO
 
            ENDDO
-c         ENDDO
+          ENDDO
 
         ELSE
 #else /* ALLOW_EXCH2 */
@@ -162,10 +161,9 @@
 #ifdef ALLOW_EXCH2
          IF ( useExch2GlobLayOut ) THEN
 
-c         DO bj=1,nSy
-          bj=1
+          DO bj=1,nSy
            DO bi=1,nSx
-             tN = W2_procTileList(bi,np)
+             tN = W2_procTileList(bi,bj,np)
              IF   ( exch2_mydNx(tN) .GT. xSize ) THEN
 C-           face x-size larger than glob-size : fold it
                iGjLoc = 0
@@ -192,7 +190,7 @@
              ENDDO
 
            ENDDO
-c         ENDDO
+          ENDDO
 
          ELSE
 #else /* ALLOW_EXCH2 */