1 |
C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD_SOM_VARS.h,v 1.1 2007/01/16 04:38:34 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
CBOP |
5 |
C !ROUTINE: GAD_SOM_VARS.h |
6 |
C !INTERFACE: |
7 |
C include "GAD_SOM_VARS.h" |
8 |
C !DESCRIPTION: |
9 |
C \bv |
10 |
C *==========================================================* |
11 |
C | GAD_SOM_VARS.h |
12 |
C | o state variables for 2nd Order-Moment Advection |
13 |
C *==========================================================* |
14 |
C | Storage needed for Temperature and Salinity when using |
15 |
C | 2nd Order-Moment (SOM) Advection |
16 |
C *==========================================================* |
17 |
C \ev |
18 |
CEOP |
19 |
|
20 |
#ifdef GAD_ALLOW_TS_SOM_ADV |
21 |
C-- COMMON /GAD_SOM_VARS_R/ REAL, state variables for 2nd Order-Moment Advection |
22 |
C moments are stored in this order (3-D case): 1rst Order moments (3:x,y,z) |
23 |
C and 2nd Order moments (6:xx,yy,zz,xy,xz,yz). |
24 |
C som_T :: Pot.Temp 1rst & 2nd Order Moments |
25 |
C som_S :: Salinity 1rst & 2nd Order Moments |
26 |
|
27 |
COMMON /GAD_SOM_VARS_R/ |
28 |
& som_T, |
29 |
& som_S |
30 |
_RL som_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
31 |
_RL som_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
32 |
|
33 |
#endif /* GAD_ALLOW_TS_SOM_ADV */ |