/[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.9 - (show annotations) (download)
Fri Sep 21 03:54:36 2001 UTC (22 years, 8 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint44e_post, checkpoint44f_post, checkpoint43a-release1mods, chkpt44d_post, release1_p1, release1_p2, checkpoint44e_pre, release1_b1, checkpoint43, release1_chkpt44d_post, release1-branch_tutorials, chkpt44a_post, checkpoint44h_pre, chkpt44c_pre, checkpoint45a_post, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, checkpoint44g_post, release1-branch-end, release1_final_v1, checkpoint44b_post, checkpoint44h_post, ecco_c44_e22, chkpt44a_pre, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, release1_beta1, checkpoint44b_pre, checkpoint42, checkpoint41, checkpoint44, checkpoint45, chkpt44c_post, checkpoint44f_pre, release1-branch_branchpoint
Branch point for: release1_final, release1-branch, release1, ecco-branch, release1_coupled
Changes since 1.8: +18 -9 lines
File MIME type: text/plain 
Starting to bring comments up to date and format comments
for document extraction of "prototypes".
1 C $Header: /u/gcmpack/models/MITgcmUV/model/inc/CG2D.h,v 1.8 2001/05/29 14:01:36 adcroft 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 _RL cg2d_r(1-1:sNx+1,1-1:sNy+1,nSx,nSy)
58 _RL cg2d_s(1-1:sNx+1,1-1:sNy+1,nSx,nSy)
  ViewVC Help
Powered by ViewVC 1.1.22