diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 index fe532b688e..8e6a6ee7e8 100644 --- 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