Skip to content

Commit

Permalink
move get_param("KPP_CVt2") out of if block
Browse files Browse the repository at this point in the history
Make sure that KPP_CVt2 is read whenever KPP is enabled (may eventually want to
only provide it if using Stokes MOST?)
  • Loading branch information
mnlevy1981 committed Oct 31, 2024
1 parent 9251185 commit dade9d5
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions src/parameterizations/vertical/MOM_CVMix_KPP.F90
Original file line number Diff line number Diff line change
Expand Up @@ -437,9 +437,6 @@ logical function KPP_init(paramFile, G, GV, US, diag, Time, CS, passive)
case default ; call MOM_error(FATAL,"KPP_init: "//&
"Unrecognized KPP_LT_K_SHAPE option: "//trim(string))
end select
call get_param(paramFile, mdl, "KPP_CVt2", CS%KPP_CVt2, &
'Parameter for Stokes MOST convection entrainment', &
units="nondim", default=1.6)
call get_param(paramFile, mdl, "KPP_LT_K_METHOD", string , &
'Method to enhance mixing coefficient in KPP. '// &
'Valid options are: \n'// &
Expand Down Expand Up @@ -518,6 +515,10 @@ logical function KPP_init(paramFile, G, GV, US, diag, Time, CS, passive)
units="m", default=1.0, scale=US%m_to_Z)
endif

call get_param(paramFile, mdl, "KPP_CVt2", CS%KPP_CVt2, &
'Parameter for Stokes MOST convection entrainment', &
units="nondim", default=1.6)

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 Down

0 comments on commit dade9d5

Please sign in to comment.