/[MITgcm]/MITgcm/pkg/gmredi/GMREDI.h
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/GMREDI.h

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

revision 1.5 by cnh, Sun Feb 4 14:38:49 2001 UTC revision 1.6 by jmc, Sun Dec 16 18:54:49 2001 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  C     Package flag  C     Package flag
7        logical GMREDIisON        logical GMREDIisON
8        COMMON /GM_PACKAGE/ GMREDIisON        logical GM_AdvForm
9          logical GM_ExtraDiag
10          COMMON /GM_PACKAGE/ GMREDIisON, GM_AdvForm, GM_ExtraDiag
11    
12  C     GM/Redi parameters  C     GM/Redi parameters
13          _RL GM_isopycK
14        _RL GM_background_K        _RL GM_background_K
15        _RL GM_maxSlope        _RL GM_maxSlope
16          _RL GM_Kmin_horiz
17        _RL GM_Visbeck_alpha        _RL GM_Visbeck_alpha
18        _RL GM_Visbeck_length        _RL GM_Visbeck_length
19        _RL GM_Visbeck_depth        _RL GM_Visbeck_depth
# Line 17  C     GM/Redi parameters Line 21  C     GM/Redi parameters
21        CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme        CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
22        _RL GM_Scrit        _RL GM_Scrit
23        _RL GM_Sd        _RL GM_Sd
24        COMMON /GM_PARAMS/ GM_background_K,        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
25       &                   GM_maxSlope,       &                   GM_maxSlope,
26         &                   GM_Kmin_horiz,
27       &                   GM_Visbeck_alpha,       &                   GM_Visbeck_alpha,
28       &                   GM_Visbeck_length,       &                   GM_Visbeck_length,
29       &                   GM_Visbeck_depth,       &                   GM_Visbeck_depth,
# Line 31  C     GM/Redi parameters Line 36  C     GM/Redi parameters
36  C     More GM/Redi parameters diagnosed from previous block  C     More GM/Redi parameters diagnosed from previous block
37  C     (not directly user configured)  C     (not directly user configured)
38        _RL GM_rMaxSlope        _RL GM_rMaxSlope
39        COMMON /GM_PARAMS2/ GM_rMaxSlope        _RL GM_skewflx
40          _RL GM_advect
41          COMMON /GM_PARAMS2/ GM_rMaxSlope,
42         &                    GM_skewflx, GM_advect
43    
44  C     GM/Redi tensor elements  C     GM/Redi tensor elements
45    
# Line 46  C     Kwz is K_33 element, Z direction a Line 53  C     Kwz is K_33 element, Z direction a
53        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz        COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
54    
55  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
56  C     First/second rows of tensor corresponds to U/V points  C     Horizontal part of the tensor
57  C     Kux is K_11 element, X direction at U point  C     Kux is K_11 element, X direction at U point
58  C     Kvy is K_22 element, Y direction at V point  C     Kvy is K_22 element, Y direction at V point
59        _RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
60        _RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
61        COMMON /GM_UVtensor/ Kux,Kvy        COMMON /GM_HorTensor/ Kux,Kvy
62  #else  #else
63        _RL Kux,Kvy        _RL Kux,Kvy
64        PARAMETER(Kux=1.,Kvy=1.)        PARAMETER(Kux=1.,Kvy=1.)
65  #endif  #endif
66    
67    #ifdef GM_EXTRA_DIAGONAL
68    C     First/second rows of tensor corresponds to U/V points
69    C     Kuz is K_13 element, Z direction at U point
70    C     Kvz is K_23 element, Z direction at V point
71          _RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72          _RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
73          COMMON /GM_UVtensor/ Kuz,Kvz
74    #else
75          _RL Kuz,Kvz
76          PARAMETER(Kuz=1.,Kvz=1.)
77    #endif
78    
79    #ifdef GM_BOLUS_ADVEC
80    C     GM advection formulation: bolus velocities are derived from 2
81    C        streamfunctions PsiX and PsiY :
82          _RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
83          _RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
84          COMMON /GM_BOLUS/ GM_PsiX,GM_PsiY
85    #endif
86    
87  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
88  C     GM mixing/stirring coefficient (spatially variable in horizontal  C     GM mixing/stirring coefficient (spatially variable in horizontal
89  C     for Visbeck et al. parameterization)  C     for Visbeck et al. parameterization)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22