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_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!) |
25 |
|
C GM_K3D_smooth :: Expand PV closure in terms of baroclinic modes (for debugging only!) |
26 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
27 |
LOGICAL GM_AdvSeparate |
LOGICAL GM_AdvSeparate |
28 |
LOGICAL GM_useBVP |
LOGICAL GM_useBVP |
33 |
LOGICAL GM_MDSIO |
LOGICAL GM_MDSIO |
34 |
LOGICAL GM_useK3D |
LOGICAL GM_useK3D |
35 |
LOGICAL GM_K3D_likeGM |
LOGICAL GM_K3D_likeGM |
36 |
|
LOGICAL GM_K3D_smooth |
37 |
COMMON /GM_PARAMS_L/ |
COMMON /GM_PARAMS_L/ |
38 |
& GM_AdvForm, GM_AdvSeparate, |
& GM_AdvForm, GM_AdvSeparate, |
39 |
& GM_useBVP, GM_useSubMeso, |
& GM_useBVP, GM_useSubMeso, |
40 |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
& GM_ExtraDiag, GM_MNC, GM_MDSIO, |
41 |
& GM_InMomAsStress, |
& GM_InMomAsStress, |
42 |
& GM_useK3D, GM_K3D_likeGM |
& GM_useK3D, GM_K3D_likeGM, GM_K3D_smooth |
43 |
|
|
44 |
C-- GM/Redi Integer-type parameters |
C-- GM/Redi Integer-type parameters |
45 |
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 |