/[MITgcm]/MITgcm/model/inc/CG3D.h
ViewVC logotype

Diff of /MITgcm/model/inc/CG3D.h

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

revision 1.7 by edhill, Fri Oct 31 20:35:32 2003 UTC revision 1.8 by jmc, Tue Nov 8 06:03:21 2005 UTC
# Line 47  C--   COMMON /CG3D_WK_R/  Work array com Line 47  C--   COMMON /CG3D_WK_R/  Work array com
47  C     cg3d_q - Intermediate matrix-vector product term  C     cg3d_q - Intermediate matrix-vector product term
48  C     cg3d_r -   "  C     cg3d_r -   "
49  C     cg3d_s -   "  C     cg3d_s -   "
 C     cg3d_x   Solution vector  
 C     cg3d_b   Right-hand side vector  
50        COMMON /CG3D_WK_R/        COMMON /CG3D_WK_R/
51       & cg3d_q, cg3d_r, cg3d_s       & cg3d_q, cg3d_r, cg3d_s
52        _RL  cg3d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL  cg3d_q(1-1  :sNx+1  ,1-1  :sNy+1  ,Nr,nSx,nSy)
53        _RL  cg3d_r(1-1  :sNx+1  ,1-1  :sNy+1  ,nR,nSx,nSy)        _RL  cg3d_r(1-1  :sNx+1  ,1-1  :sNy+1  ,Nr,nSx,nSy)
54        _RL  cg3d_s(1-1  :sNx+1  ,1-1  :sNy+1  ,nR,nSx,nSy)        _RL  cg3d_s(1-1  :sNx+1  ,1-1  :sNy+1  ,Nr,nSx,nSy)
55    
56  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22