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

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

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

Revision 1.10 - (show annotations) (download)
Tue Mar 16 00:04:00 2010 UTC (14 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint63g, checkpoint64, checkpoint65, checkpoint63, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint65o, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, HEAD
Changes since 1.9: +11 -11 lines
File MIME type: text/plain 
avoid unbalanced quote (single or double) in commented line
1 C $Header: /u/gcmpack/MITgcm/model/inc/CG3D.h,v 1.9 2005/12/20 20:08:34 jmc Exp $
2 C $Name: $
3
4 #ifdef ALLOW_NONHYDROSTATIC
5 CBOP
6 C !ROUTINE: CG3D.h
7 C !INTERFACE:
8 C include "CG3D.h"
9 C !DESCRIPTION: \bv
10 C *==========================================================*
11 C | CG3D.h
12 C | o Three-dimensional conjugate gradient solver header.
13 C *==========================================================*
14 C | The common blocks set up here are used in the elliptic
15 C | equation inversion. They are also used as the interface
16 C | to the rest of the model. To set the source term for the
17 C | solver set the appropriate array below. To read the
18 C | solution read from the appropriate array below.
19 C *==========================================================*
20 C \ev
21 CEOP
22
23 C-- COMMON /CG3D_R/ DEL**2 Laplacian operators
24 C aW3d :: East-west operator.
25 C aS3d :: North-south operator.
26 C aV3d :: Vertical operator.
27 C aC3d :: 3D operator main diagonal term.
28 C zMC, zML, zMU :: preconditioner 3D solver
29 C cg3dNorm - A matrix normalisation factor.
30 COMMON /CG3D_R/
31 & aW3d, aS3d, aV3d,
32 & aC3d,
33 & zMC, zML, zMU,
34 & cg3dNorm
35 _RS aW3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
36 _RS aS3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37 _RS aV3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38 _RS aC3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39 _RS zMC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
40 _RS zML (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
41 _RS zMU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
42 _RL cg3dNorm
43
44 C-- COMMON /CG3D_WK_R/ Work array common block
45 C cg3d_q - Intermediate matrix-vector product term
46 C cg3d_r - idem
47 C cg3d_s - idem
48 COMMON /CG3D_WK_R/
49 & cg3d_q, cg3d_r, cg3d_s
50 _RL cg3d_q(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy)
51 _RL cg3d_r(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy)
52 _RL cg3d_s(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy)
53
54 #endif /* ALLOW_NONHYDROSTATIC */
  ViewVC Help
Powered by ViewVC 1.1.22