--- MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F	2001/07/31 18:30:55	1.1
+++ MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F	2009/04/28 18:06:15	1.3
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F,v 1.1 2001/07/31 18:30:55 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F,v 1.3 2009/04/28 18:06:15 jmc Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -54,9 +54,9 @@
        _END_MASTER(myThid)
       ENDIF
 C
-      _EXCH_XY_R8(etaN, myThid)
+      _EXCH_XY_RL(etaN, myThid)
 
-#ifdef INCLUDE_CD_CODE
+#ifdef ALLOW_CD_CODE
 C--   By default, initialize etaNm1 with etaN : 
       DO bj=myByLo(myThid),myByHi(myThid)
        DO bi=myBxLo(myThid),myBxHi(myThid)
@@ -68,7 +68,7 @@
        ENDDO
       ENDDO
 
-C     _EXCH_XY_R8(etaNm1, myThid)
+C     _EXCH_XY_RL(etaNm1, myThid)
 #endif
 
       RETURN