--- MITgcm/pkg/exch2/exch2_recv_rx2.template	2004/01/09 20:46:09	1.1
+++ MITgcm/pkg/exch2/exch2_recv_rx2.template	2005/07/24 01:21:36	1.4
@@ -1,4 +1,8 @@
-#include "CPP_OPTIONS.h"
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/exch2_recv_rx2.template,v 1.4 2005/07/24 01:21:36 jmc Exp $
+C $Name:  $
+
+#include "CPP_EEOPTIONS.h"
+#include "W2_OPTIONS.h"
 
       SUBROUTINE EXCH2_RECV_RX2(
      I       tIlo, tIhi, tiStride,
@@ -17,13 +21,11 @@
 
       IMPLICIT NONE
 
-C
-#include "W2_OPTIONS.h"
+#include "SIZE.h"
+#include "EEPARAMS.h"
+#include "EESUPPORT.h"
 #include "W2_EXCH2_TOPOLOGY.h"
 
-#include "EEPARAMS.h"
-      CHARACTER*(MAX_LEN_MBUF) messageBuffer
-C
 C     === Routine arguments ===
 C     tIlo, tIhi, tIstride :: index range in I that will be filled in target "array"
 C     tJlo, tJhi, tJstride :: index range in J that will be filled in target "array"
@@ -80,9 +82,9 @@
 C                    :: isl etc... source local
 C                    :: isc etc... source canonical
       INTEGER itl, jtl, ktl
-      INTEGER itc, jtc, ktc
-      INTEGER isc, jsc, ksc
-      INTEGER isl, jsl, ksl
+c     INTEGER itc, jtc, ktc
+c     INTEGER isc, jsc, ksc
+c     INTEGER isl, jsl, ksl
 C     tt         :: Target tile
 C     iBufr1     :: Buffer counter
 C     iBufr2     ::
@@ -94,19 +96,21 @@
 C     oN     :: Opposing send record number 
       INTEGER oN
 C     Loop counters
-      INTEGER I, nri1, nrj1, nrk1
-      INTEGER    nri2, nrj2, nrk2
+      INTEGER I
       INTEGER itl1reduce, jtl1reduce
       INTEGER itl2reduce, jtl2reduce
 
 C     MPI setup
-#include "SIZE.h"
-#include "EESUPPORT.h"
-      INTEGER theTag1, theSize1, theType
-      INTEGER theTag2, theSize2
-      INTEGER sProc, tProc
 #ifdef ALLOW_USE_MPI
+      INTEGER    nri1, nrj1, nrk1
+      INTEGER    nri2, nrj2, nrk2
+      INTEGER theTag1, theTag2, theType
+c     INTEGER theSize1, theSize2
+      INTEGER sProc, tProc
       INTEGER mpiStatus(MPI_STATUS_SIZE), mpiRc
+#ifdef W2_E2_DEBUG_ON
+      CHARACTER*(MAX_LEN_MBUF) messageBuffer
+#endif
 #endif
 
       tt=exch2_neighbourId(nN, thisTile )
@@ -225,3 +229,9 @@
  
       RETURN
       END
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
+
+CEH3 ;;; Local Variables: ***
+CEH3 ;;; mode:fortran ***
+CEH3 ;;; End: ***