--- MITgcm/eesupp/src/exch_rx.template	2001/09/21 03:55:50	1.3
+++ MITgcm/eesupp/src/exch_rx.template	2002/04/30 22:48:20	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/Attic/exch_rx.template,v 1.3 2001/09/21 03:55:50 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/Attic/exch_rx.template,v 1.4 2002/04/30 22:48:20 jmc Exp $
 C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
@@ -193,16 +193,32 @@
      I             exchWidthX, exchWidthY,
      I             theSimulationMode, theCornerMode, myThid )
        ENDIF
-C      Special case for zonal average model i.e. case where sNx == 1
+C      Special case for zonal average model i.e. case where Nx == 1
 C      In this case a forward mode exchange simply sets array to
 C      the i=1 value for all i.
-       IF ( sNx .EQ. 1 ) THEN
+       IF ( Nx .EQ. 1 ) THEN
         DO bj=myByLo(myThid),myByHi(myThid)
          DO bi=myBxLo(myThid),myBxHi(myThid)
           DO K = 1,myNz
            DO J = 1-myOLs,sNy+myOLn
             DO I = 1-myOLw,sNx+myOLe
-             array(I,J,K,bi,bj) = array(sNx,J,K,bi,bj)
+             array(I,J,K,bi,bj) = array(1,J,K,bi,bj)
+            ENDDO
+           ENDDO
+          ENDDO
+         ENDDO
+        ENDDO
+       ENDIF
+C      Special case for X-slice domain i.e. case where Ny == 1
+C      In this case a forward mode exchange simply sets array to
+C      the j=1 value for all j.
+       IF ( Ny .EQ. 1 ) THEN
+        DO bj=myByLo(myThid),myByHi(myThid)
+         DO bi=myBxLo(myThid),myBxHi(myThid)
+          DO K = 1,myNz
+           DO J = 1-myOLs,sNy+myOLn
+            DO I = 1-myOLw,sNx+myOLe
+             array(I,J,K,bi,bj) = array(I,1,K,bi,bj)
             ENDDO
            ENDDO
           ENDDO