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