From 51ed387aef321d5b9b0fe5e09426d300c9d19465 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Tue, 15 Dec 2020 18:05:27 -0700 Subject: [PATCH] Delete forgotten code --- src/tracer/MOM_lateral_boundary_diffusion.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/tracer/MOM_lateral_boundary_diffusion.F90 b/src/tracer/MOM_lateral_boundary_diffusion.F90 index d155a782d0..570b4b9ad8 100644 --- a/src/tracer/MOM_lateral_boundary_diffusion.F90 +++ b/src/tracer/MOM_lateral_boundary_diffusion.F90 @@ -702,9 +702,6 @@ subroutine fluxes_layer_method(boundary, ke, hbl_L, hbl_R, h_L, h_R, phi_L, phi_ tmp1 = 0.0; tmp2 = 0.0 do k = 1,ke - tmp1 = tmp1 + h_L(k) - tmp2 = tmp2 + h_R(k) - ! apply flux_limiter if (CS%limiter .and. F_layer(k) /= 0.) then call flux_limiter(F_layer(k), area_L, area_R, phi_L(k), phi_R(k), h_L(k), h_R(k))