Skip to content

Commit

Permalink
Deletes code related to GME_Varmix
Browse files Browse the repository at this point in the history
  • Loading branch information
gustavo-marques committed Jun 6, 2019
1 parent f52375b commit f74be3f
Showing 1 changed file with 0 additions and 10 deletions.
10 changes: 0 additions & 10 deletions src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
Original file line number Diff line number Diff line change
Expand Up @@ -55,8 +55,6 @@ module MOM_lateral_mixing_coeffs
!! This parameter is set depending on other parameters.
logical :: calculate_Eady_growth_rate !< If true, calculate all the Eady growth rate.
!! This parameter is set depending on other parameters.
logical :: use_GME_VarMix !< If true, calculates slopes and Brunt-Vaisala frequency for use with
!! the GME closure.
real, dimension(:,:), pointer :: &
SN_u => NULL(), & !< S*N at u-points [s-1]
SN_v => NULL(), & !< S*N at v-points [s-1]
Expand Down Expand Up @@ -1121,14 +1119,6 @@ subroutine VarMix_init(Time, G, GV, US, param_file, diag, CS)
oneOrTwo = 2.0
endif

call get_param(param_file, mdl, "USE_GME", CS%use_GME_VarMix, &
"If true, use the GM+E backscatter scheme in association \n"//&
"with the Gent and McWilliams parameterization.", default=.false.)

if (CS%use_GME_VarMix .and. .not. CS%use_stored_slopes) &
call MOM_error(FATAL,"ERROR: use_stored_slopes must be TRUE when "// &
"using GME.")

do J=js-1,Jeq ; do I=is-1,Ieq
CS%f2_dx2_q(I,J) = (G%dxBu(I,J)**2 + G%dyBu(I,J)**2) * &
max(US%s_to_T**2 * G%CoriolisBu(I,J)**2, absurdly_small_freq2)
Expand Down

0 comments on commit f74be3f

Please sign in to comment.