Skip to content

fix get_param STOKES_MOST and WAVE_ENHANCED_USTAR in MOM.F90 #418

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
gustavo-marques merged 4 commits into from
Apr 9, 2026
+5 −1
Merged

fix get_param STOKES_MOST and WAVE_ENHANCED_USTAR in MOM.F90 #418

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
8b3d4a3
fix get_param STOKES_MOST and WAVE_ENHANCED_USTAR in MOM.F90 by openi…
alperaltuntas Apr 8, 2026
ed96f68
remove unnecessary comment
alperaltuntas Apr 8, 2026
810ed7b
remove more unnecessary comment
alperaltuntas Apr 8, 2026
19d35b9
do not log MLE block from MOM.F90
alperaltuntas Apr 8, 2026
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
6 changes: 5 additions & 1 deletion src/core/MOM.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,6 +34,7 @@ module MOM
use MOM_error_handler, only : MOM_set_verbosity, callTree_showQuery
use MOM_error_handler, only : callTree_enter, callTree_leave, callTree_waypoint
use MOM_file_parser, only : read_param, get_param, log_version, param_file_type
use MOM_file_parser, only : openParameterBlock, closeParameterBlock
use MOM_forcing_type, only : forcing, mech_forcing, find_ustar
use MOM_forcing_type, only : MOM_forcing_chksum, MOM_mech_forcing_chksum
use MOM_get_input, only : Get_MOM_Input, directories
Expand Down Expand Up @@ -2469,12 +2470,15 @@ subroutine initialize_MOM(Time, Time_init, param_file, dirs, CS, &
call MOM_error(FATAL, "initialize_MOM: "//&
"FPMIX=True only works when SPLIT=True.")
endif
! STOKES_MOST and needed to
call openParameterBlock(param_file, 'KPP', do_not_log=.true.)
call get_param(param_file, '', 'STOKES_MOST', CS%StokesMOST, &
'If True, use Stokes Similarity package.', &
default=.False., do_not_log=.true.)
call closeParameterBlock(param_file)
call openParameterBlock(param_file,'MLE', do_not_log=.true.)
call get_param(param_file, '', "WAVE_ENHANCED_USTAR", CS%wave_enhanced_ustar, &
"If true, enhance ustar in Bodner23.", default=.false., do_not_log=.true.)
call closeParameterBlock(param_file)
call get_param(param_file, "MOM", "BOUSSINESQ", Boussinesq, &
"If true, make the Boussinesq approximation.", default=.true., do_not_log=.true.)
call get_param(param_file, "MOM", "SEMI_BOUSSINESQ", semi_Boussinesq, &
Expand Down
Loading