From 156d02c122207cb273d286db3dfdac8242cd5fea Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Wed, 4 Aug 2021 16:26:24 -0600 Subject: [PATCH] Make use_drag_rate independent of MEKE_damping Remove MEKE_damping from use_drag_rate so we can use linear dissipation without bottom drag. This is needed for the GEOMETRIC scheme. --- src/parameterizations/lateral/MOM_MEKE.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/parameterizations/lateral/MOM_MEKE.F90 b/src/parameterizations/lateral/MOM_MEKE.F90 index 850f94cff2..50fd35bae9 100644 --- a/src/parameterizations/lateral/MOM_MEKE.F90 +++ b/src/parameterizations/lateral/MOM_MEKE.F90 @@ -175,8 +175,7 @@ subroutine step_forward_MEKE(MEKE, h, SN_u, SN_v, visc, dt, G, GV, US, CS, hu, h if (.not.associated(MEKE)) call MOM_error(FATAL, & "MOM_MEKE: MEKE must be initialized before it is used.") - if ((CS%MEKE_damping > 0.0) .or. (CS%MEKE_Cd_scale > 0.0) .or. (CS%MEKE_Cb>0.) & - .or. CS%visc_drag) then + if ((CS%MEKE_Cd_scale > 0.0) .or. (CS%MEKE_Cb>0.) .or. CS%visc_drag) then use_drag_rate = .true. else use_drag_rate = .false.