23 |
C GM_useK3D :: use the 3 dimensional calculation for K |
C GM_useK3D :: use the 3 dimensional calculation for K |
24 |
C GM_K3D_beta_eq_0 :: Ignores the beta term when calculating grad(q) |
C GM_K3D_beta_eq_0 :: Ignores the beta term when calculating grad(q) |
25 |
C GM_K3D_likeGM :: Makes the PV closure similar to the GM closure (for debugging only!) |
C GM_K3D_likeGM :: Makes the PV closure similar to the GM closure (for debugging only!) |
26 |
C GM_K3D_PVsheet :: Use a PV sheet (should pretty much always be true) |
C GM_K3D_ThickSheet:: Use a thick PV sheet (should pretty much always be false) |
27 |
C GM_K3D_smooth :: Expand PV closure in terms of baroclinic modes (for debugging only!) |
C GM_K3D_smooth :: Expand PV closure in terms of baroclinic modes (for debugging only!) |
28 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
29 |
LOGICAL GM_AdvSeparate |
LOGICAL GM_AdvSeparate |
35 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
36 |
LOGICAL GM_useK3D |
LOGICAL GM_useK3D |
37 |
LOGICAL GM_K3D_likeGM |
LOGICAL GM_K3D_likeGM |
38 |
LOGICAL GM_K3D_PVsheet |
LOGICAL GM_K3D_ThickSheet |
39 |
LOGICAL GM_K3D_beta_eq_0 |
LOGICAL GM_K3D_beta_eq_0 |
40 |
LOGICAL GM_K3D_smooth |
LOGICAL GM_K3D_smooth |
41 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
44 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
45 |
& GM_InMomAsStress, |
& GM_InMomAsStress, |
46 |
& GM_useK3D, GM_K3D_likeGM, GM_K3D_smooth, |
& GM_useK3D, GM_K3D_likeGM, GM_K3D_smooth, |
47 |
& GM_K3D_beta_eq_0, GM_K3D_PVsheet |
& GM_K3D_beta_eq_0, GM_K3D_ThickSheet |
48 |
|
|
49 |
C-- GM/Redi Integer-type parameters |
C-- GM/Redi Integer-type parameters |
50 |
C GM_BVP_modeNumber :: vertical mode number used for speed "c" in BVP transport |
C GM_BVP_modeNumber :: vertical mode number used for speed "c" in BVP transport |
91 |
C subMeso_Lmax :: maximum horizontal grid-scale length [m] |
C subMeso_Lmax :: maximum horizontal grid-scale length [m] |
92 |
C Variable K with PV diffusion parameters: |
C Variable K with PV diffusion parameters: |
93 |
C GM_K3D_gamma :: mixing efficiency for 3D eddy diffusivity [-] |
C GM_K3D_gamma :: mixing efficiency for 3D eddy diffusivity [-] |
94 |
|
C GM_K3D_b1 :: an empirically determined constant of O(1) |
95 |
C GM_K3D_EadyMinDepth :: upper depth for Eady calculation |
C GM_K3D_EadyMinDepth :: upper depth for Eady calculation |
96 |
C GM_K3D_EadyMaxDepth :: lower depth for Eady calculation |
C GM_K3D_EadyMaxDepth :: lower depth for Eady calculation |
97 |
C GM_maxK3D :: Upper bound on the diffusivity |
C GM_maxK3D :: Upper bound on the diffusivity |
98 |
C GM_K3D_constK :: Constant diffusivity to use when GM_useK3D=.TRUE. and GM_K3D_likeGM=.TRUE. |
C GM_K3D_constK :: Constant diffusivity to use when GM_useK3D=.TRUE. and GM_K3D_likeGM=.TRUE. |
99 |
C GM_K3D_maxLurms:: Upper bound on th length scale used for calculating urms |
C GM_K3D_Rmax :: Upper bound on the length scale used for calculating urms |
100 |
C GM_K3D_minLurms:: Lower bound on th length scale used for calculating urms |
C GM_K3D_Rmin :: Lower bound on the length scale used for calculating the eddy radius |
101 |
C GM_K3D_minCori :: minimum value for f (to stop things blowing up near the equator) |
C GM_K3D_minCori :: minimum value for f (to stop things blowing up near the equator) |
102 |
C GM_K3D_minN2 :: minimum value for the square of the buoyancy frequency |
C GM_K3D_minN2 :: minimum value for the square of the buoyancy frequency |
103 |
C GM_K3D_surfMinDepth :: minimum value for the depth of the surface layer |
C GM_K3D_surfMinDepth :: minimum value for the depth of the surface layer |
117 |
_RL GM_Visbeck_minVal_K |
_RL GM_Visbeck_minVal_K |
118 |
_RL GM_Visbeck_maxVal_K |
_RL GM_Visbeck_maxVal_K |
119 |
_RL GM_K3D_gamma |
_RL GM_K3D_gamma |
120 |
|
_RL GM_K3D_b1 |
121 |
_RL GM_K3D_EadyMinDepth |
_RL GM_K3D_EadyMinDepth |
122 |
_RL GM_K3D_EadyMaxDepth |
_RL GM_K3D_EadyMaxDepth |
123 |
_RL GM_K3D_Lambda |
_RL GM_K3D_Lambda |
124 |
_RL GM_K3D_smallK |
_RL GM_K3D_smallK |
|
_RL GM_K3D_maxSlope |
|
125 |
_RL GM_K3D_maxC |
_RL GM_K3D_maxC |
126 |
_RL GM_maxK3D |
_RL GM_maxK3D |
127 |
_RL GM_K3D_constK |
_RL GM_K3D_constK |
128 |
_RL GM_K3D_maxLurms |
_RL GM_K3D_Rmax |
129 |
_RL GM_K3D_minLurms |
_RL GM_K3D_Rmin |
130 |
_RL GM_K3D_minCori |
_RL GM_K3D_minCori |
131 |
_RL GM_K3D_minN2 |
_RL GM_K3D_minN2 |
132 |
_RL GM_K3D_surfMinDepth |
_RL GM_K3D_surfMinDepth |
150 |
& GM_Visbeck_depth, |
& GM_Visbeck_depth, |
151 |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
152 |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
153 |
& GM_K3D_gamma, GM_K3D_EadyMinDepth, |
& GM_K3D_gamma, GM_K3D_b1, GM_K3D_EadyMinDepth, |
154 |
& GM_K3D_EadyMaxDepth, GM_K3D_Lambda, |
& GM_K3D_EadyMaxDepth, GM_K3D_Lambda, |
155 |
& GM_K3D_smallK, GM_K3D_maxSlope, GM_K3D_maxC, |
& GM_K3D_smallK, GM_K3D_maxC, |
156 |
& GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2, |
& GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2, |
157 |
& GM_K3D_surfMinDepth, GM_K3D_maxLurms, |
& GM_K3D_surfMinDepth, GM_K3D_Rmax, GM_K3D_Rmin, |
158 |
& GM_K3D_constK, GM_K3D_vecFreq, GM_K3D_minLurms, |
& GM_K3D_constK, GM_K3D_vecFreq, |
159 |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
160 |
& GM_Scrit, GM_Sd, GM_BVP_cMin, |
& GM_Scrit, GM_Sd, GM_BVP_cMin, |
161 |
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin |
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin |