Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 16 additions & 0 deletions src/parameterizations/vertical/MOM_CVMix_KPP.F90
Original file line number Diff line number Diff line change
Expand Up @@ -125,6 +125,9 @@ module MOM_CVMix_KPP
real :: MLD_guess_min !< The minimum estimate of the mixed layer depth used to
!! calculate the Langmuir number for Langmuir turbulence
!! enhancement with KPP [Z ~> m]
real :: KPP_ER_Cb !< Entrainment Rule TKE buoyancy production weight [nondim]
real :: KPP_ER_Cs !< Entrainment Rule TKE Stokes production weight [nondim]
real :: KPP_ER_Cu !< Entrainment Rule TKE shear production weight [nondim]
logical :: STOKES_MIXING !< Flag if model is mixing down Stokes gradient
!! This is relevant for which current to use in RiB
integer :: answer_date !< The vintage of the order of arithmetic in the CVMix KPP
Expand Down Expand Up @@ -532,6 +535,16 @@ logical function KPP_init(paramFile, G, GV, US, diag, Time, CS, passive)
'Parameter for Stokes MOST convection entrainment (unresolved shear)', &
units="nondim", default=1.6)

call get_param(paramFile, mdl, "KPP_ER_Cb", CS%KPP_ER_Cb, &
'Entrainment Rule TKE buoyancy production weight', &
units="nondim", default=0.96)
call get_param(paramFile, mdl, "KPP_ER_Cs", CS%KPP_ER_Cs, &
'Entrainment Rule TKE Stokes production weight', &
units="nondim", default=0.038)
call get_param(paramFile, mdl, "KPP_ER_Cu", CS%KPP_ER_Cu, &
'Entrainment Rule TKE shear production weight', &
units="nondim", default=0.023)

call get_param(paramFile, mdl, "ANSWER_DATE", CS%answer_date, &
"The vintage of the order of arithmetic in the CVMix KPP calculations. Values "//&
"below 20240501 recover the answers from early in 2024, while higher values "//&
Expand All @@ -548,6 +561,9 @@ logical function KPP_init(paramFile, G, GV, US, diag, Time, CS, passive)
vonKarman=CS%vonKarman, &
surf_layer_ext=CS%surf_layer_ext, &
CVt2=CS%KPP_CVt2, &
ER_Cb=CS%KPP_ER_Cb, &
ER_Cs=CS%KPP_ER_Cs, &
ER_Cu=CS%KPP_ER_Cu, &
interp_type=CS%interpType, &
interp_type2=CS%interpType2, &
lEkman=CS%computeEkman, &
Expand Down