Skip to content

Commit

Permalink
Open parameter block before querying BODNER23
Browse files Browse the repository at this point in the history
Fix the error caused by readinging `MLE%BODNER23`, and instead
explicitly opening and closing the parameter blocks.
  • Loading branch information
kshedstrom authored and marshallward committed Jan 31, 2024
1 parent f1e0f01 commit 5ca70ba
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/parameterizations/lateral/MOM_mixed_layer_restrat.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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', do_not_log=.true.)
call get_param(param_file, mdl, "USE_BODNER23", use_Bodner, &
default=.false., do_not_log=.true.)
call closeParameterBlock(param_file)
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.)
Expand Down

0 comments on commit 5ca70ba

Please sign in to comment.