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 LimitHblStable - if TRUE (the default), limits the depth of the |
67 |
|
C hbl under stable conditions. |
68 |
C |
C |
69 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
70 |
|
|
71 |
LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
72 |
|
LOGICAL LimitHblStable |
73 |
COMMON /KPP_PARM_L/ |
COMMON /KPP_PARM_L/ |
74 |
& KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
& KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus, |
75 |
|
& LimitHblStable |
76 |
|
|
77 |
_RL minKPPhbl |
_RL minKPPhbl |
78 |
COMMON /KPP_PARM_R/ minKPPhbl |
COMMON /KPP_PARM_R/ minKPPhbl |