Merge pull request #620 from rgknox/rgknox-hist-elem-zerofix

Zeroing a litter diagnostic that was not being zerod
NGEET · Mar 16, 2020 · ab1647a · ab1647a
2 parents f55eb83 + 26de3bb
commit ab1647a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90
@@ -2679,13 +2679,13 @@ subroutine update_history_dyn(this,nc,nsites,sites)
 
          hio_cwd_elcwd(io_si,:)   = 0._r8
 
-
+         
          do el = 1, num_elements
 
             flux_diags => sites(s)%flux_diags(el)
 
             ! Sum up all input litter fluxes (above below, fines, cwd)
-            hio_litter_in_elem(io_si, el) = hio_litter_in_elem(io_si, el) + &
+            hio_litter_in_elem(io_si, el) =  & 
                  sum(flux_diags%cwd_ag_input(:)) + & 
                  sum(flux_diags%cwd_bg_input(:)) + &
                  sum(flux_diags%leaf_litter_input(:)) + &
@@ -2701,6 +2701,7 @@ subroutine update_history_dyn(this,nc,nsites,sites)
             hio_seed_decay_elem(io_si,el)     = 0._r8
             hio_seeds_in_local_elem(io_si,el) = 0._r8
             hio_seed_in_extern_elem(io_si,el) = 0._r8
+            hio_litter_out_elem(io_si,el)     = 0._r8
 
             cpatch => sites(s)%oldest_patch
             do while(associated(cpatch))
@@ -2715,7 +2716,7 @@ subroutine update_history_dyn(this,nc,nsites,sites)
                      sum(litt%root_fines_frag(:,:)) + &
                      sum(litt%ag_cwd_frag(:)) + & 
                      sum(litt%bg_cwd_frag(:,:))) * area_frac
-               
+
                hio_seed_bank_elem(io_si,el) = hio_seed_bank_elem(io_si,el) + & 
                     sum(litt%seed(:)) * area_frac