From 2c6bdf9256e1324b5c4c5eafcb94676e283e06c8 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Wed, 20 Nov 2019 13:45:29 -0700 Subject: [PATCH] Create a separate param for MEKE bottom drag (CDRAG_MEKE) --- src/parameterizations/lateral/MOM_MEKE.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/parameterizations/lateral/MOM_MEKE.F90 b/src/parameterizations/lateral/MOM_MEKE.F90 index a009aea1f6..c03764395a 100644 --- a/src/parameterizations/lateral/MOM_MEKE.F90 +++ b/src/parameterizations/lateral/MOM_MEKE.F90 @@ -1197,10 +1197,10 @@ logical function MEKE_init(Time, G, US, param_file, diag, CS, MEKE, restart_CS) units="nondim", default=0.0) ! Nonlocal module parameters - call get_param(param_file, mdl, "CDRAG", CS%cdrag, & + call get_param(param_file, mdl, "CDRAG_MEKE", CS%cdrag, & "CDRAG is the drag coefficient relating the magnitude of "//& "the velocity field to the bottom stress.", units="nondim", & - default=0.003) + default=0.001) call get_param(param_file, mdl, "LAPLACIAN", laplacian, default=.false., do_not_log=.true.) call get_param(param_file, mdl, "BIHARMONIC", biharmonic, default=.false., do_not_log=.true.)