/[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.3 by ce107, Fri May 12 22:34:02 2006 UTC
# Line 1  Line 1 
1    C       $Id$    
2  C  C
3  C     /==========================================================\  C     /==========================================================\
4  C     | CG2D.h                                                   |  C     | CG2D.h                                                   |
# Line 20  C     pC   - Main diagonal term of preco Line 21  C     pC   - Main diagonal term of preco
21       &      aW2d,       &      aW2d,
22       &      aS2d,       &      aS2d,
23       &      pW, pS, pC       &      pW, pS, pC
24        real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
25        real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26        real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
27        real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
28        real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real pC   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
29    
30  C--   COMMON /CG2D_WK_R/  Work array common block  C--   COMMON /CG2D_WK_R/  Work array common block
31  C     cg2d_q - Intermediate matrix-vector product term  C     cg2d_q - Intermediate matrix-vector product term
# Line 36  C              the result). Line 37  C              the result).
37  C     cg2d_b   Right-hand side vector  C     cg2d_b   Right-hand side vector
38        COMMON /CG2D_WK_R/        COMMON /CG2D_WK_R/
39       & cg2d_q, cg2d_r, cg2d_s, cg2d_x, cg2d_Ax, cg2d_b       & cg2d_q, cg2d_r, cg2d_s, cg2d_x, cg2d_Ax, cg2d_b
40        REAL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41        REAL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
42        REAL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
43        REAL cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
44        REAL cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_Ax(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
45        REAL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        Real cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
46    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22