--- MITgcm_contrib/cg2d_bench/ini_cg2d.F	2006/05/12 21:58:05	1.1
+++ MITgcm_contrib/cg2d_bench/ini_cg2d.F	2006/05/12 22:23:42	1.2
@@ -1,3 +1,4 @@
+C	$Id: ini_cg2d.F,v 1.2 2006/05/12 22:23:42 ce107 Exp $	
 CStartOfInterface
       SUBROUTINE INI_CG2D
 C     /==========================================================\
@@ -42,7 +43,7 @@
         aW2d(I,J) = 1. _d 0
         aS2d(I,J) = 1. _d 0
         IF ( jG .EQ. 1 .OR. jG .EQ. nY+1 ) THEN
-         aS2d(I,J) = 0.
+         aS2d(I,J) = 0. _d 0
         ENDIF
        ENDDO
       ENDDO
@@ -56,10 +57,10 @@
         IF (
      &   aW2d(I,J) + aW2d(I+1,J) 
      &  +aS2d(I,J) + aS2D(I,J+1)
-     &   .EQ. 0. 
+     &   .EQ. 0. _d 0
      &     )  pC(I,J) = 0. _d 0
-        pW(I,J) = 0.
-        pS(I,J) = 0.
+        pW(I,J) = 0. _d 0
+        pS(I,J) = 0. _d 0
        ENDDO
       ENDDO
 C--   Update overlap regions