add local variable initialization for get_harvest_debt

NGEET · Jan 26, 2023 · d80ef20 · d80ef20
1 parent 2504716
commit d80ef20
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/biogeochem/EDLoggingMortalityMod.F90 b/biogeochem/EDLoggingMortalityMod.F90
@@ -1147,6 +1147,12 @@ subroutine get_harvest_debt(site_in, bc_in, harvest_tag)
       real(r8) :: harvest_debt_sec_young
 
       if(logging_time) then
+
+         ! Initialize the local variables
+         harvest_debt_pri = 0._r8
+         harvest_debt_sec_mature = 0._r8
+         harvest_debt_sec_young = 0._r8
+
          ! First we need to get harvest rate for all three categories
          do h_index = 1, hlm_num_lu_harvest_cats
             ! Primary forest harvest rate