--- MITgcm/eesupp/src/scatter_xz.F	2006/06/07 21:29:15	1.1
+++ MITgcm/eesupp/src/scatter_xz.F	2009/04/28 18:28:55	1.3
@@ -1,4 +1,7 @@
-#include "CPP_OPTIONS.h"
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/scatter_xz.F,v 1.3 2009/04/28 18:28:55 jmc Exp $
+C $Name:  $
+
+#include "CPP_EEOPTIONS.h"
 
       SUBROUTINE SCATTER_XZ( global, local, myThid )
 C     Scatter elements of a x-z array from mpi process 0 to all processes.
@@ -8,7 +11,7 @@
 #include "EESUPPORT.h"
 C     mythid - thread number for this instance of the routine.
 C     global,local - working arrays used to transfer 2-D fields
-      INTEGER mythid 
+      INTEGER mythid
       Real*8  global(Nx)
       _RL     local(1-OLx:sNx+OLx,nSx,nSy)
 
@@ -84,7 +87,7 @@
       _BARRIER
 
 C--   Fill in edges.
-CMM      _EXCH_XY_R8( local, myThid )
+CMM      _EXCH_XY_RL( local, myThid )
 
       RETURN
       END