14 |
C-- COMMON /GM_PARAMS_L/ GM/Redi Logical-type parameters |
C-- COMMON /GM_PARAMS_L/ GM/Redi Logical-type parameters |
15 |
C GM_AdvForm :: use Advective Form (instead of Skew-Flux form) |
C GM_AdvForm :: use Advective Form (instead of Skew-Flux form) |
16 |
C GM_AdvSeparate :: do separately advection by Eulerian and Bolus velocity |
C GM_AdvSeparate :: do separately advection by Eulerian and Bolus velocity |
17 |
|
C GM_useBVP :: use Boundary-Value-Problem method for Bolus transport |
18 |
|
C GM_useSubMeso :: use parameterization of mixed layer (Sub-Mesoscale) eddies |
19 |
C GM_ExtraDiag :: select extra diagnostics |
C GM_ExtraDiag :: select extra diagnostics |
20 |
C GM_InMomAsStress :: apply GM as a stress in momentum Eq. |
C GM_InMomAsStress :: apply GM as a stress in momentum Eq. |
21 |
C GM_MNC :: |
C GM_MNC :: |
22 |
C GM_MDSIO :: |
C GM_MDSIO :: |
23 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
24 |
LOGICAL GM_AdvSeparate |
LOGICAL GM_AdvSeparate |
25 |
|
LOGICAL GM_useBVP |
26 |
|
LOGICAL GM_useSubMeso |
27 |
LOGICAL GM_ExtraDiag |
LOGICAL GM_ExtraDiag |
28 |
LOGICAL GM_InMomAsStress |
LOGICAL GM_InMomAsStress |
29 |
LOGICAL GM_MNC |
LOGICAL GM_MNC |
30 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
31 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
32 |
& GM_AdvForm, GM_AdvSeparate, |
& GM_AdvForm, GM_AdvSeparate, |
33 |
|
& GM_useBVP, GM_useSubMeso, |
34 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
35 |
& GM_InMomAsStress |
& GM_InMomAsStress |
36 |
|
|
37 |
|
C-- GM/Redi Integer-type parameters |
38 |
|
C GM_BVP_modeNumber :: vertical mode number used for speed "c" in BVP transport |
39 |
|
INTEGER GM_BVP_modeNumber |
40 |
|
COMMON /GM_PARAMS_I/ |
41 |
|
& GM_BVP_modeNumber |
42 |
|
|
43 |
C-- COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters |
C-- COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters |
44 |
C GM_taper_scheme :: select which tapering/clipping scheme to use |
C GM_taper_scheme :: select which tapering/clipping scheme to use |
45 |
C GM_iso2dFile :: input file for 2.D horiz scaling of Isopycnal diffusivity |
C GM_iso2dFile :: input file for 2.D horiz scaling of Isopycnal diffusivity |
63 |
C GM_Kmin_horiz :: minimum horizontal diffusivity [m^2/s] |
C GM_Kmin_horiz :: minimum horizontal diffusivity [m^2/s] |
64 |
C GM_Small_Number :: epsilon used in computing the slope |
C GM_Small_Number :: epsilon used in computing the slope |
65 |
C GM_slopeSqCutoff :: slope^2 cut-off value |
C GM_slopeSqCutoff :: slope^2 cut-off value |
66 |
C- transition layer thickness definition: |
C- Transition layer thickness definition: |
67 |
C GM_facTrL2dz :: minimum Trans. Layer Thick. as a factor of local dz |
C GM_facTrL2dz :: minimum Trans. Layer Thick. as a factor of local dz |
68 |
C GM_facTrL2ML :: maximum Trans. Layer Thick. as a factor of Mix-Layer Depth |
C GM_facTrL2ML :: maximum Trans. Layer Thick. as a factor of Mix-Layer Depth |
69 |
C GM_maxTransLay :: maximum Trans. Layer Thick. [m] |
C GM_maxTransLay :: maximum Trans. Layer Thick. [m] |
70 |
|
C- Boundary-Value-Problem method parameters: |
71 |
|
C GM_BVP_cMin :: minimum value for wave speed parameter "c" in BVP [m/s] |
72 |
|
C- mixed layer (Sub-Mesoscale) eddies parameterization: |
73 |
|
C subMeso_Ceff :: efficiency coefficient of Mixed-Layer Eddies [-] |
74 |
|
C subMeso_invTau :: inverse of mixing time-scale in sub-meso parameteriz. [s^-1] |
75 |
|
C subMeso_LfMin :: minimum value for length-scale "Lf" [m] |
76 |
|
C subMeso_Lmax :: maximum horizontal grid-scale length [m] |
77 |
|
|
78 |
_RL GM_isopycK |
_RL GM_isopycK |
79 |
_RL GM_background_K |
_RL GM_background_K |
80 |
_RL GM_maxSlope |
_RL GM_maxSlope |
93 |
_RL GM_maxTransLay |
_RL GM_maxTransLay |
94 |
_RL GM_Scrit |
_RL GM_Scrit |
95 |
_RL GM_Sd |
_RL GM_Sd |
96 |
COMMON /GM_PARAMS_R/ |
_RL GM_BVP_cMin |
97 |
|
_RL subMeso_Ceff |
98 |
|
_RL subMeso_invTau |
99 |
|
_RL subMeso_LfMin |
100 |
|
_RS subMeso_Lmax |
101 |
|
COMMON /GM_PARAMS_RL/ |
102 |
& GM_isopycK, GM_background_K, |
& GM_isopycK, GM_background_K, |
103 |
& GM_maxSlope, |
& GM_maxSlope, |
104 |
& GM_Kmin_horiz, |
& GM_Kmin_horiz, |
108 |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
109 |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
110 |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
111 |
& GM_Scrit, GM_Sd |
& GM_Scrit, GM_Sd, GM_BVP_cMin, |
112 |
|
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin |
113 |
|
COMMON /GM_PARAMS_RS/ |
114 |
|
& subMeso_Lmax |
115 |
|
|
116 |
C-- COMMON /GM_DERIVED_PAR/ other GM/Redi parameters |
C-- COMMON /GM_DERIVED_PAR/ other GM/Redi parameters |
117 |
C (derived from previous block and not directly user configured) |
C (derived from previous block and not directly user configured) |
118 |
_RL GM_rMaxSlope |
_RL GM_rMaxSlope |
119 |
_RL GM_skewflx |
_RL GM_skewflx |
120 |
_RL GM_advect |
_RL GM_advect |
121 |
|
_RL GM_BVP_rModeNumber |
122 |
|
_RL GM_BVP_cHat2Min |
123 |
COMMON /GM_DERIVED_PAR/ |
COMMON /GM_DERIVED_PAR/ |
124 |
& GM_rMaxSlope, |
& GM_rMaxSlope, |
125 |
& GM_skewflx, GM_advect |
& GM_skewflx, GM_advect, |
126 |
|
& GM_BVP_rModeNumber, GM_BVP_cHat2Min |
127 |
|
|
128 |
|
|
129 |
C-- COMMON /GM_COEFFICIENTS/ GM/Redi scaling coefficients |
C-- COMMON /GM_COEFFICIENTS/ GM/Redi scaling coefficients |
130 |
C defined at grid-cell center (tracer location) |
C defined at grid-cell center (tracer location) |