From 434ff081cb98c93214e873acda0d2dd79917b498 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Fri, 3 May 2019 16:11:38 -0600 Subject: [PATCH] Willy was silly. --- src/parameterizations/lateral/MOM_hor_visc.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90 index 34d9234313..5203fa718e 100644 --- a/src/parameterizations/lateral/MOM_hor_visc.F90 +++ b/src/parameterizations/lateral/MOM_hor_visc.F90 @@ -1269,6 +1269,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, Barotropic, if (k==1) then do j=js,je ; do i=is,ie MEKE%mom_src(i,j) = 0. + MEKE%GME_snk(i,j) = 0. enddo ; enddo endif if (MEKE%backscatter_Ro_c /= 0.) then @@ -1310,7 +1311,6 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, Barotropic, if (CS%use_GME) then if (associated(MEKE%GME_snk)) then do j=js,je ; do i=is,ie - ! MEKE%mom_src now is sign definite because it only uses the dissipation MEKE%GME_snk(i,j) = MEKE%GME_snk(i,j) + FrictWork_GME(i,j,k) enddo ; enddo endif