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

Contents of /MITgcm/model/inc/CG2D.h

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

Revision 1.11 - (show annotations) (download)
Fri Jul 12 20:01:23 2002 UTC (21 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint50c_post, checkpoint46f_post, checkpoint48e_post, checkpoint50c_pre, checkpoint46b_post, checkpoint48i_post, checkpoint46l_pre, checkpoint51, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, checkpoint48h_post, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint46j_post, checkpoint46k_post, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint47j_post, branch-exfmods-tag, branchpoint-genmake2, checkpoint46e_pre, checkpoint48c_post, checkpoint46b_pre, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint46g_post, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint47f_post, checkpoint50e_post, checkpoint46i_post, checkpoint46c_post, checkpoint50d_pre, checkpoint46e_post, checkpoint51e_post, checkpoint47, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51f_pre, checkpoint48g_post, checkpoint47h_post, checkpoint46d_post, checkpoint50b_post, checkpoint51a_post
Branch point for: branch-exfmods-curt, branch-genmake2
Changes since 1.10: +6 -1 lines
File MIME type: text/plain 
correct array size for LETS_MAKE_JAM case
1 C $Header: /u/gcmpack/MITgcm/model/inc/CG2D.h,v 1.10 2002/05/30 02:26:01 heimbach Exp $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: CG2D.h
6 C !INTERFACE:
7 C include "CG2D.h"
8 C
9 C !DESCRIPTION:
10 C \bv
11 C *==========================================================*
12 C | CG2D.h
13 C | o Two-dimensional conjugate gradient solver header.
14 C *==========================================================*
15 C | Internal (private) data structures.
16 C *==========================================================*
17 C \ev
18 CEOP
19
20 C-- COMMON /CG2D_I_L/ cg2dNormaliseRHS
21 C cg2dNormaliseRHS - flag set to TRUE if normalise RHS in the Solver
22 COMMON /CG2D_I_L/ cg2dNormaliseRHS
23 LOGICAL cg2dNormaliseRHS
24
25 C-- COMMON /CG2D_R/ DEL**2 Laplacian operators
26 C aW2d - East-west operator.
27 C aS2d - North-south operator.
28 C pW - East-west off-diagonal term of preconditioner.
29 C pS - North-south off-diagonal term of preconditioner.
30 C pC - Main diagonal term of preconditioner.
31 C etaNBuf - Shared buffers for accumulating con. grad vector product.
32 C alphaBuf
33 C errBuf
34 C nrmBuf
35 C cg2dNorm - A matrix normalisation factor.
36 C cg2dTolerance - cg2d solver Tolerance (solver unit = m2/s2 or no unit,
37 C depending on cg2dNormaliseRHS)
38 COMMON /CG2D_I_R/
39 & aW2d,
40 & aS2d,
41 & pW, pS, pC,
42 & cg2dNorm, cg2dTolerance
43 _RS aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
44 _RS aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
45 _RS pW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46 _RS pS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47 _RS pC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48 _RL cg2dNorm, cg2dTolerance
49
50 C-- COMMON /CG2D_I_WK_R/ Work array common block
51 C cg2d_q - Intermediate matrix-vector product term
52 C cg2d_r - "
53 C cg2d_s - "
54 COMMON /CG2D_I_WK_R/
55 & cg2d_q, cg2d_r, cg2d_s
56 _RL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57 #ifdef LETS_MAKE_JAM
58 _RL cg2d_r(1-1:sNx+1,1-1:sNy+1,nSx,nSy)
59 _RL cg2d_s(1-1:sNx+1,1-1:sNy+1,nSx,nSy)
60 #else
61 _RL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
62 _RL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
63 #endif
  ViewVC Help
Powered by ViewVC 1.1.22