From 8d028eb7ea6c2f1f0c67cb4adad988b2422ee955 Mon Sep 17 00:00:00 2001
From: Ryan Knox <rgknox@lbl.gov>
Date: Mon, 10 Jun 2024 11:58:43 -0600
Subject: [PATCH] removed redundant zero flush in history

---
 main/FatesHistoryInterfaceMod.F90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90
index 156da135c2..6c34f48292 100644
--- a/main/FatesHistoryInterfaceMod.F90
+++ b/main/FatesHistoryInterfaceMod.F90
@@ -5253,8 +5253,6 @@ subroutine update_history_hifrq2(this,nc,nsites,sites,bc_in,bc_out,dt_tstep)
          patch_area_by_age(1:nlevage) = 0._r8
          canopy_area_by_age(1:nlevage) = 0._r8
 
-         call this%zero_site_hvars(sites(s), upfreq_in=group_hifr_complx)
-
          cpatch => sites(s)%oldest_patch
          do while(associated(cpatch))