From 5b4ea5b83bff93961f0fdeb51d1cc4ba37f8a2fb Mon Sep 17 00:00:00 2001 From: Kate Hedstrom Date: Tue, 9 Jan 2024 09:12:50 -0900 Subject: [PATCH] Fixing issue #539? --- src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 b/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 index e21c33beaf..6069002092 100644 --- a/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 +++ b/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 @@ -1767,8 +1767,10 @@ subroutine mixedlayer_restrat_register_restarts(HI, GV, US, param_file, CS, rest units="s", default=0., scale=US%s_to_T, do_not_log=.true.) call get_param(param_file, mdl, "MLE_MLD_DECAY_TIME2", CS%MLE_MLD_decay_time2, & units="s", default=0., scale=US%s_to_T, do_not_log=.true.) - call get_param(param_file, mdl, "MLE%USE_BODNER23", use_Bodner, & + call openParameterBlock(param_file,'MLE') ! Prepend MLE% to all parameters + call get_param(param_file, mdl, "USE_BODNER23", use_Bodner, & default=.false., do_not_log=.true.) + call closeParameterBlock(param_file) ! The remaining parameters do not have MLE% prepended if (CS%MLE_MLD_decay_time>0. .or. CS%MLE_MLD_decay_time2>0. .or. use_Bodner) then ! CS%MLD_filtered is used to keep a running mean of the PBL's actively mixed MLD. allocate(CS%MLD_filtered(HI%isd:HI%ied,HI%jsd:HI%jed), source=0.)