21 |
C GM_MNC :: |
C GM_MNC :: |
22 |
C GM_MDSIO :: |
C GM_MDSIO :: |
23 |
C GM_useK3D :: use the 3 dimensional calculation for K |
C GM_useK3D :: use the 3 dimensional calculation for K |
24 |
C GM_smoothXi :: Associated with GM_useK3D. use an expansion to smooth Xi. |
C GM_K3D_likeGM :: Makes the PV closure similar to the GM closure (for debugging only!) |
|
C GM_K3D_constK :: Associated with GM_useK3D. use a constant K. |
|
25 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
26 |
LOGICAL GM_AdvSeparate |
LOGICAL GM_AdvSeparate |
27 |
LOGICAL GM_useBVP |
LOGICAL GM_useBVP |
31 |
LOGICAL GM_MNC |
LOGICAL GM_MNC |
32 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
33 |
LOGICAL GM_useK3D |
LOGICAL GM_useK3D |
34 |
LOGICAL GM_smoothXi |
LOGICAL GM_K3D_likeGM |
|
LOGICAL GM_K3D_constK |
|
35 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
36 |
& GM_AdvForm, GM_AdvSeparate, |
& GM_AdvForm, GM_AdvSeparate, |
37 |
& GM_useBVP, GM_useSubMeso, |
& GM_useBVP, GM_useSubMeso, |
38 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
39 |
& GM_InMomAsStress, |
& GM_InMomAsStress, |
40 |
& GM_useK3D, GM_smoothXi, GM_K3D_constK |
& GM_useK3D, GM_K3D_likeGM |
41 |
|
|
42 |
C-- GM/Redi Integer-type parameters |
C-- GM/Redi Integer-type parameters |
43 |
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 |
87 |
C GM_K3D_EadyMinDepth :: upper depth for Eady calculation |
C GM_K3D_EadyMinDepth :: upper depth for Eady calculation |
88 |
C GM_K3D_EadyMaxDepth :: lower depth for Eady calculation |
C GM_K3D_EadyMaxDepth :: lower depth for Eady calculation |
89 |
C GM_maxK3D :: Upper bound on the diffusivity |
C GM_maxK3D :: Upper bound on the diffusivity |
90 |
|
C GM_K3D_constK :: Constant diffusivity to use when GM_useK3D=.TRUE. and GM_K3D_likeGM=.TRUE. |
91 |
C GM_K3D_maxLurms:: Upper bound on th length scale used for calculating urms |
C GM_K3D_maxLurms:: Upper bound on th length scale used for calculating urms |
92 |
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) |
93 |
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 |
114 |
_RL GM_K3D_maxSlope |
_RL GM_K3D_maxSlope |
115 |
_RL GM_K3D_maxC |
_RL GM_K3D_maxC |
116 |
_RL GM_maxK3D |
_RL GM_maxK3D |
117 |
|
_RL GM_K3D_constK |
118 |
_RL GM_K3D_maxLurms |
_RL GM_K3D_maxLurms |
119 |
_RL GM_K3D_minCori |
_RL GM_K3D_minCori |
120 |
_RL GM_K3D_minN2 |
_RL GM_K3D_minN2 |
143 |
& GM_K3D_smallK, GM_K3D_maxSlope, GM_K3D_maxC, |
& GM_K3D_smallK, GM_K3D_maxSlope, GM_K3D_maxC, |
144 |
& GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2, |
& GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2, |
145 |
& GM_K3D_surfMinDepth, GM_K3D_maxLurms, |
& GM_K3D_surfMinDepth, GM_K3D_maxLurms, |
146 |
|
& GM_K3D_constK, |
147 |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
148 |
& GM_Scrit, GM_Sd, GM_BVP_cMin, |
& GM_Scrit, GM_Sd, GM_BVP_cMin, |
149 |
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin |
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin |