From bf3684da3a862810e39abc5c2c5638a3bb640f09 Mon Sep 17 00:00:00 2001 From: Sam Rabin Date: Wed, 2 Oct 2024 17:43:53 -0600 Subject: [PATCH] Bugfix: Update FATES_VEGC_APPF even if cohort is new. See Issue NGEET/fates#1261. --- main/FatesHistoryInterfaceMod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90 index 3345c25818..6da14a8de1 100644 --- a/main/FatesHistoryInterfaceMod.F90 +++ b/main/FatesHistoryInterfaceMod.F90 @@ -4860,13 +4860,13 @@ subroutine update_history_dyn2_ageclass(this,nc,nsites,sites,bc_in) total_m = alive_m + store_m + struct_m hio_biomass_si_age(io_si,cpatch%age_class) = hio_biomass_si_age(io_si,cpatch%age_class) & + total_m * weight + hio_biomass_si_agepft(io_si,iagepft) = hio_biomass_si_agepft(io_si,iagepft) + & + total_m * weight if (.not. (ccohort%isnew)) then hio_npp_si_agepft(io_si,iagepft) = hio_npp_si_agepft(io_si,iagepft) + & ccohort%npp_acc_hold / days_per_year / sec_per_day & ! [kgC/indiv/yr] -> [kgC/s] * weight - hio_biomass_si_agepft(io_si,iagepft) = hio_biomass_si_agepft(io_si,iagepft) + & - total_m * weight ! Canopy vs. understory variables mort = ccohort%SumMortForHistory(per_year = .true.)