/[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.12 - (show annotations) (download)
Mon Sep 29 19:24:30 2003 UTC (20 years, 8 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint58f_post, checkpoint52f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint51f_post, checkpoint51t_post, checkpoint51n_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint57t_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint57y_pre, checkpoint55g_post, checkpoint51q_post, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint57c_post, checkpoint52f_pre, checkpoint55d_post, checkpoint58e_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint51r_post, checkpoint51i_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint52a_pre, checkpoint52i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint56a_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, branch-netcdf, checkpoint52n_post, checkpoint53b_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint51o_post, checkpoint57k_post, checkpoint53b_post, checkpoint52a_post, checkpoint57w_post, checkpoint51g_post, ecco_c52_e35, checkpoint57x_post, checkpoint58c_post, checkpoint51m_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.11: +3 -3 lines
File MIME type: text/plain
 o convert all comments with single quotes (such as "can't", "don't", etc.)
     to unabbreviated form (eg. "do not") since these unmatched quotes
     tend to break the Fortran parser used to generate the HTML-ified
     code browser (see: http://mitgcm.org/dev_docs/code_reference/)

1 C $Header: /u/u3/gcmpack/MITgcm/model/inc/CG2D.h,v 1.11 2002/07/12 20:01:23 jmc 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 - *same*
53 C cg2d_s - *same*
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