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) |
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 |
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_beta_eq_0, GM_K3D_PVsheet |
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 |