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_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_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!) |
27 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
34 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
35 |
LOGICAL GM_useK3D |
LOGICAL GM_useK3D |
36 |
LOGICAL GM_K3D_likeGM |
LOGICAL GM_K3D_likeGM |
37 |
|
LOGICAL GM_K3D_beta_eq_0 |
38 |
LOGICAL GM_K3D_smooth |
LOGICAL GM_K3D_smooth |
39 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
40 |
& GM_AdvForm, GM_AdvSeparate, |
& GM_AdvForm, GM_AdvSeparate, |
41 |
& GM_useBVP, GM_useSubMeso, |
& GM_useBVP, GM_useSubMeso, |
42 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
43 |
& GM_InMomAsStress, |
& GM_InMomAsStress, |
44 |
& GM_useK3D, GM_K3D_likeGM, GM_K3D_smooth |
& GM_useK3D, GM_K3D_likeGM, GM_K3D_smooth, |
45 |
|
& GM_K3D_beta_eq_0 |
46 |
|
|
47 |
C-- GM/Redi Integer-type parameters |
C-- GM/Redi Integer-type parameters |
48 |
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 |