63 |
C the total vertical diffusivity ; |
C the total vertical diffusivity ; |
64 |
C if F (=default): use KPP vertical diffusivity |
C if F (=default): use KPP vertical diffusivity |
65 |
C Note: prior to checkpoint55h_post, was using the total Kz |
C Note: prior to checkpoint55h_post, was using the total Kz |
66 |
|
C KPPuseDoubleDiff - if TRUE, include double diffusive |
67 |
|
C contributions |
68 |
C LimitHblStable - if TRUE (the default), limits the depth of the |
C LimitHblStable - if TRUE (the default), limits the depth of the |
69 |
C hbl under stable conditions. |
C hbl under stable conditions. |
70 |
C |
C |
71 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
72 |
|
|
73 |
LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
74 |
|
LOGICAL KPPuseDoubleDiff |
75 |
LOGICAL LimitHblStable |
LOGICAL LimitHblStable |
76 |
COMMON /KPP_PARM_L/ |
COMMON /KPP_PARM_L/ |
77 |
& KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus, |
& KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus, |
78 |
& LimitHblStable |
& KPPuseDoubleDiff, LimitHblStable |
79 |
|
|
80 |
_RL minKPPhbl |
_RL minKPPhbl |
81 |
COMMON /KPP_PARM_R/ minKPPhbl |
COMMON /KPP_PARM_R/ minKPPhbl |