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_ExtraDiag :: select extra diagnostics |
C GM_ExtraDiag :: select extra diagnostics |
19 |
C GM_InMomAsStress :: apply GM as a stress in momentum Eq. |
C GM_InMomAsStress :: apply GM as a stress in momentum Eq. |
20 |
C GM_MNC :: |
C GM_MNC :: |
21 |
C GM_MDSIO :: |
C GM_MDSIO :: |
22 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
23 |
LOGICAL GM_AdvSeparate |
LOGICAL GM_AdvSeparate |
24 |
|
LOGICAL GM_useBVP |
25 |
LOGICAL GM_ExtraDiag |
LOGICAL GM_ExtraDiag |
26 |
LOGICAL GM_InMomAsStress |
LOGICAL GM_InMomAsStress |
27 |
LOGICAL GM_MNC |
LOGICAL GM_MNC |
28 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
29 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
30 |
& GM_AdvForm, GM_AdvSeparate, |
& GM_AdvForm, GM_AdvSeparate, GM_useBVP, |
31 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
32 |
& GM_InMomAsStress |
& GM_InMomAsStress |
33 |
|
|
34 |
|
C-- GM/Redi Integer-type parameters |
35 |
|
C GM_BVP_modeNumber :: vertical mode number used for speed "c" in BVP transport |
36 |
|
INTEGER GM_BVP_modeNumber |
37 |
|
COMMON /GM_PARAMS_I/ |
38 |
|
& GM_BVP_modeNumber |
39 |
|
|
40 |
C-- COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters |
C-- COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters |
41 |
C GM_taper_scheme :: select which tapering/clipping scheme to use |
C GM_taper_scheme :: select which tapering/clipping scheme to use |
42 |
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 |
64 |
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 |
65 |
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 |
66 |
C GM_maxTransLay :: maximum Trans. Layer Thick. [m] |
C GM_maxTransLay :: maximum Trans. Layer Thick. [m] |
67 |
|
C GM_BVP_cMin :: minimum value for wave speed parameter "c" in BVP [m/s] |
68 |
_RL GM_isopycK |
_RL GM_isopycK |
69 |
_RL GM_background_K |
_RL GM_background_K |
70 |
_RL GM_maxSlope |
_RL GM_maxSlope |
83 |
_RL GM_maxTransLay |
_RL GM_maxTransLay |
84 |
_RL GM_Scrit |
_RL GM_Scrit |
85 |
_RL GM_Sd |
_RL GM_Sd |
86 |
|
_RL GM_BVP_cMin |
87 |
COMMON /GM_PARAMS_R/ |
COMMON /GM_PARAMS_R/ |
88 |
& GM_isopycK, GM_background_K, |
& GM_isopycK, GM_background_K, |
89 |
& GM_maxSlope, |
& GM_maxSlope, |
94 |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
95 |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
96 |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
97 |
& GM_Scrit, GM_Sd |
& GM_Scrit, GM_Sd, GM_BVP_cMin |
98 |
|
|
99 |
C-- COMMON /GM_DERIVED_PAR/ other GM/Redi parameters |
C-- COMMON /GM_DERIVED_PAR/ other GM/Redi parameters |
100 |
C (derived from previous block and not directly user configured) |
C (derived from previous block and not directly user configured) |
101 |
_RL GM_rMaxSlope |
_RL GM_rMaxSlope |
102 |
_RL GM_skewflx |
_RL GM_skewflx |
103 |
_RL GM_advect |
_RL GM_advect |
104 |
|
_RL GM_BVP_rModeNumber |
105 |
|
_RL GM_BVP_cHat2Min |
106 |
COMMON /GM_DERIVED_PAR/ |
COMMON /GM_DERIVED_PAR/ |
107 |
& GM_rMaxSlope, |
& GM_rMaxSlope, |
108 |
& GM_skewflx, GM_advect |
& GM_skewflx, GM_advect, |
109 |
|
& GM_BVP_rModeNumber, GM_BVP_cHat2Min |
110 |
|
|
111 |
|
|
112 |
C-- COMMON /GM_COEFFICIENTS/ GM/Redi scaling coefficients |
C-- COMMON /GM_COEFFICIENTS/ GM/Redi scaling coefficients |
113 |
C defined at grid-cell center (tracer location) |
C defined at grid-cell center (tracer location) |