--- MITgcm/model/src/ini_cartesian_grid.F	1998/08/22 17:51:08	1.8
+++ MITgcm/model/src/ini_cartesian_grid.F	1998/11/02 03:34:11	1.9
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.8 1998/08/22 17:51:08 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_cartesian_grid.F,v 1.9 1998/11/02 03:34:11 cnh Exp $
 
 #include "CPP_EEOPTIONS.h"
 
@@ -143,8 +143,8 @@
        DO bi = myBxLo(myThid), myBxHi(myThid)
         DO J=1,sNy
          DO I=1,sNx
-          dxC(I,J,bi,bj)    = (dxF(I,J,bi,bj)+dxF(I-1,J,bi,bj))*0.5 D0
-          dyC(I,J,bi,bj)    = (dyF(I,J,bi,bj)+dyF(I,J-1,bi,bj))*0.5 D0
+          dxC(I,J,bi,bj)    = (dxF(I,J,bi,bj)+dxF(I-1,J,bi,bj))*0.5 _d 0
+          dyC(I,J,bi,bj)    = (dyF(I,J,bi,bj)+dyF(I,J-1,bi,bj))*0.5 _d 0
          ENDDO
         ENDDO
        ENDDO