66 |
C KPPmixingMaps - if true, include KPP diagnostic maps in STDOUT |
C KPPmixingMaps - if true, include KPP diagnostic maps in STDOUT |
67 |
C KPPwriteState - if true, write KPP state to file |
C KPPwriteState - if true, write KPP state to file |
68 |
C minKPPhbl - KPPhbl minimum value (m) |
C minKPPhbl - KPPhbl minimum value (m) |
69 |
|
C KPP_ghatUseTotalDiffus - |
70 |
|
C if T : Compute the non-local term using |
71 |
|
C the total vertical diffusivity ; |
72 |
|
C if F (=default): use KPP vertical diffusivity |
73 |
|
C Note: prior to checkpoint55h_post, was using the total Kz |
74 |
C |
C |
75 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
76 |
|
|
77 |
LOGICAL KPPmixingMaps, KPPwriteState |
LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
78 |
|
|
79 |
COMMON /KPP_PARM_L/ |
COMMON /KPP_PARM_L/ |
80 |
& KPPmixingMaps, KPPwriteState |
& KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus |
81 |
|
|
82 |
_KPP_RL minKPPhbl |
_KPP_RL minKPPhbl |
83 |
|
|