Skip to content

Commit

Permalink
initialize wave option flags to false
Browse files Browse the repository at this point in the history
  • Loading branch information
alperaltuntas committed Dec 8, 2021
1 parent c880a15 commit e2ab77e
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions src/user/MOM_wave_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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]
Expand Down

0 comments on commit e2ab77e

Please sign in to comment.