Diff of /MITgcm_contrib/cg2d_bench/CG2D.h

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/cg2d_bench/CG2D.h	2006/05/12 21:58:05	1.1
+++ MITgcm_contrib/cg2d_bench/CG2D.h	2006/05/12 22:02:27	1.2
@@ -20,11 +20,11 @@
      &      aW2d,
      &      aS2d,
      &      pW, pS, pC
-      real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
 
 C--   COMMON /CG2D_WK_R/  Work array common block
 C     cg2d_q - Intermediate matrix-vector product term
@@ -36,10 +36,10 @@
 C     cg2d_b   Right-hand side vector
       COMMON /CG2D_WK_R/
      & cg2d_q, cg2d_r, cg2d_s, cg2d_x, cg2d_Ax, cg2d_b
-      REAL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      REAL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      REAL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      REAL cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      REAL cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      REAL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)