/[MITgcm]/MITgcm_contrib/cg2d_bench/CG2D.h
ViewVC logotype

Diff of /MITgcm_contrib/cg2d_bench/CG2D.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by ce107, Fri May 12 21:58:05 2006 UTC revision 1.2 by ce107, Fri May 12 22:02:27 2006 UTC
# Line 20  C     pC   - Main diagonal term of preco Line 20  C     pC   - Main diagonal term of preco
20       &      aW2d,       &      aW2d,
21       &      aS2d,       &      aS2d,
22       &      pW, pS, pC       &      pW, pS, pC
23        real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
24        real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
25        real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26        real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
27        real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
28    
29  C--   COMMON /CG2D_WK_R/  Work array common block  C--   COMMON /CG2D_WK_R/  Work array common block
30  C     cg2d_q - Intermediate matrix-vector product term  C     cg2d_q - Intermediate matrix-vector product term
# Line 36  C              the result). Line 36  C              the result).
36  C     cg2d_b   Right-hand side vector  C     cg2d_b   Right-hand side vector
37        COMMON /CG2D_WK_R/        COMMON /CG2D_WK_R/
38       & cg2d_q, cg2d_r, cg2d_s, cg2d_x, cg2d_Ax, cg2d_b       & cg2d_q, cg2d_r, cg2d_s, cg2d_x, cg2d_Ax, cg2d_b
39        REAL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
40        REAL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41        REAL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
42        REAL cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
43        REAL cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
44        REAL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
45    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22