2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
5 |
C /==========================================================\ |
CBOP |
6 |
C | CG3D.h | |
C !ROUTINE: CG3D.h |
7 |
C | o Three-dimensional conjugate gradient solver header. | |
C !INTERFACE: |
8 |
C |==========================================================| |
C include "CG3D.h" |
9 |
C | The common blocks set up here are used in the elliptic | |
C !DESCRIPTION: \bv |
10 |
C | equation inversion. They are also used as the interface | |
C *==========================================================* |
11 |
C | to the rest of the model. To set the source term for the | |
C | CG3D.h |
12 |
C | solver set the appropriate array below. To read the | |
C | o Three-dimensional conjugate gradient solver header. |
13 |
C | solution read from the appropriate array below. | |
C *==========================================================* |
14 |
C \==========================================================/ |
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 |
C-- COMMON /CG3D_R/ DEL**2 Laplacian operators |
24 |
C aW3d - East-west operator. |
C aW3d - East-west operator. |