From e2ab77e995adf00daa67047ad787912d758d6935 Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Wed, 8 Dec 2021 11:27:53 -0700 Subject: [PATCH] initialize wave option flags to false --- src/user/MOM_wave_interface.F90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/user/MOM_wave_interface.F90 b/src/user/MOM_wave_interface.F90 index 86a1d011f2..ac2180df88 100644 --- a/src/user/MOM_wave_interface.F90 +++ b/src/user/MOM_wave_interface.F90 @@ -56,13 +56,13 @@ module MOM_wave_interface type, public :: wave_parameters_CS ; private ! Main surface wave options and publicly visible variables - logical, public :: UseWaves = .false. !< Flag to enable surface gravity wave feature - logical, public :: Stokes_VF !< Developmental: - !! True if Stokes vortex force is used - logical, public :: Stokes_PGF !< Developmental: - !! True if Stokes shear pressure Gradient force is used - logical, public :: Passive_Stokes_PGF !< Keeps Stokes_PGF on, but doesn't affect dynamics - logical, public :: Stokes_DDT !< Developmental: + logical, public :: UseWaves = .false. !< Flag to enable surface gravity wave feature + logical, public :: Stokes_VF = .false. !< Developmental: + !! True if Stokes vortex force is used + logical, public :: Stokes_PGF = .false. !< Developmental: + !! True if Stokes shear pressure Gradient force is used + logical, public :: Passive_Stokes_PGF = .false. !< Keeps Stokes_PGF on, but doesn't affect dynamics + logical, public :: Stokes_DDT = .false. !< Developmental: !! True if Stokes d/dt is used real, allocatable, dimension(:,:,:), public :: & Us_x !< 3d zonal Stokes drift profile [L T-1 ~> m s-1]