Remove redundant zeroing of boundary_forcing_tend

andrew-c-ross · Aug 9, 2024 · f954adc · f954adc
1 parent 109d6a9
commit f954adc
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/tracer/MOM_generic_tracer.F90 b/src/tracer/MOM_generic_tracer.F90
@@ -612,7 +612,6 @@ subroutine MOM_generic_tracer_column_physics(h_old, h_new, ea, eb, fluxes, Hml,
         if (g_tracer_is_prog(g_tracer)) then
           do k=1,nk ;do j=jsc,jec ; do i=isc,iec
             h_work(i,j,k) = h_old(i,j,k)
-            g_tracer%boundary_forcing_tend(i,j,k) = 0
             if (g_tracer%diag_id_boundary_forcing_tend .gt. 0) then
                g_tracer%boundary_forcing_tend(i,j,k) = g_tracer%field(i,j,k,1)
             endif