Fix calls to find_eta and calc_Visbeck_coeffs

NOAA-GFDL · Jan 22, 2019 · d3aaa9d · d3aaa9d
1 parent 019ee95
commit d3aaa9d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
@@ -415,12 +415,12 @@ subroutine calc_slope_functions(h, tv, dt, G, GV, CS)
 
   if (CS%calculate_Eady_growth_rate .or. CS%use_stored_slopes &
       .or. CS%use_GME_VarMix) then
-    call find_eta(h, tv, GV%g_Earth, G, GV, e, halo_size=2)
+    call find_eta(h, tv, G, GV, e, halo_size=2)
     if (CS%use_stored_slopes) then
       call calc_isoneutral_slopes(G, GV, h, e, tv, dt*CS%kappa_smooth, &
                                   CS%slope_x, CS%slope_y, CS%N2_u, CS%N2_v, 1)
       if (CS%calculate_Eady_growth_rate) then
-        call calc_Visbeck_coeffs(h, e, CS%slope_x, CS%slope_y, CS%N2_u, CS%N2_v, G, GV, CS)
+        call calc_Visbeck_coeffs(h, CS%slope_x, CS%slope_y, CS%N2_u, CS%N2_v, G, GV, CS)
       endif
 !     call calc_slope_functions_using_just_e(h, G, CS, e, .false.)
     else