--- MITgcm/model/src/ini_cartesian_grid.F	1998/05/25 18:01:32	1.4
+++ MITgcm/model/src/ini_cartesian_grid.F	1998/06/08 21:43:01	1.5
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.4 1998/05/25 18:01:32 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.5 1998/06/08 21:43:01 cnh Exp $
 
 #include "CPP_EEOPTIONS.h"
 
@@ -75,6 +75,8 @@
 C     complex configurations it is usually OK to pass iG, jG to a custom 
 C     function and have it return xG and yG.
 C     Set up my local grid first
+      xC0 = 0. _d 0
+      yC0 = 0. _d 0
       DO bj = myByLo(myThid), myByHi(myThid)
        jG = myYGlobalLo + (bj-1)*sNy
        DO bi = myBxLo(myThid), myBxHi(myThid)
@@ -223,6 +225,13 @@
       _EXCH_XYZ_R4(maskS    , myThid )
       _EXCH_XY_R4 (zA       , myThid )
 
+CcnhDebugStarts
+      tanPhiAtU = 0. _d 0
+      tanPhiAtV = 0. _d 0
+      _EXCH_XY_R4 (tanPhiAtU , myThid )
+      _EXCH_XY_R4 (tanPhiAtV , myThid )
+CcnhDebugEnds
+
 C
       RETURN
       END