--- MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h	2009/05/30 21:26:31	1.2
+++ MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h	2009/06/28 00:58:42	1.3
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.2 2009/05/30 21:26:31 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.3 2009/06/28 00:58:42 jmc Exp $
 C $Name:  $
 
 CBOP
@@ -20,28 +20,28 @@
      &          )
 
 C--   COMMON /W2_EXCH2_BUF_RX/ real type Buffer used by W2-EXCH2
-      _RL E2BUFR1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _RL E2BUFR2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _RS E2BUFR1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _RS E2BUFR2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _R4 E2BUFR1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _R4 E2BUFR2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _R8 E2BUFR1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      _R8 E2BUFR2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )
-      COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL
-      COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS
-      COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4
-      COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8
+      _RL e2Bufr1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _RL e2Bufr2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _RS e2Bufr1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _RS e2Bufr2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _R4 e2Bufr1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _R4 e2Bufr2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _R8 e2Bufr1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      _R8 e2Bufr2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
+      COMMON /W2_EXCH2_BUF_RL/ e2Bufr1_RL, e2Bufr2_RL
+      COMMON /W2_EXCH2_BUF_RS/ e2Bufr1_RS, e2Bufr2_RS
+      COMMON /W2_EXCH2_BUF_R4/ e2Bufr1_R4, e2Bufr2_R4
+      COMMON /W2_EXCH2_BUF_R8/ e2Bufr1_R8, e2Bufr2_R8
 
 C--   COMMON /W2_EXCH2_BUF_I/ integer type Buffer used by W2-EXCH2
 C     iBuf1Filled :: actual length of buffer-1 which has been filled in.
 C     iBuf2Filled :: actual length of buffer-2 which has been filled in.
-      INTEGER iBuf1Filled( W2_maxNeighbours, nSx)
-      INTEGER iBuf2Filled( W2_maxNeighbours, nSx)
+      INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy )
+      INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy )
       COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled
 
 C--   COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication
-      CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx )
+      CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy )
       COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag
 
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|