Skip to content

Commit

Permalink
Merge pull request #47 from alperaltuntas/introduce_cvmix_tidal
Browse files Browse the repository at this point in the history
fix tidal_mixing_init return (not tested)
  • Loading branch information
gustavo-marques authored Apr 17, 2018
2 parents 86e7074 + 01578c5 commit 869d32f
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions src/parameterizations/vertical/MOM_tidal_mixing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -238,6 +238,11 @@ logical function tidal_mixing_init(Time, G, GV, param_file, diag, diag_to_Z_CSp,
"If true, use an internal tidal dissipation scheme to \n"//&
"drive diapycnal mixing, along the lines of St. Laurent \n"//&
"et al. (2002) and Simmons et al. (2004).", default=CS%use_cvmix_tidal)

! return if tidal mixing is inactive
tidal_mixing_init = CS%int_tide_dissipation
if (.not. tidal_mixing_init) return

if (CS%int_tide_dissipation) then
default_profile_string = STLAURENT_PROFILE_STRING
if (CS%use_cvmix_tidal) default_profile_string = SIMMONS_PROFILE_STRING
Expand Down

0 comments on commit 869d32f

Please sign in to comment.