diff --git a/biogeochem/EDPatchDynamicsMod.F90 b/biogeochem/EDPatchDynamicsMod.F90 index e6e8afeb0a..2c4cf1b7e7 100644 --- a/biogeochem/EDPatchDynamicsMod.F90 +++ b/biogeochem/EDPatchDynamicsMod.F90 @@ -550,7 +550,7 @@ subroutine spawn_patches( currentSite, bc_in) nc%n * currentCohort%crownfire_mort / hlm_freq_day currentSite%fmort_carbonflux(levcan) = currentSite%fmort_carbonflux(levcan) + & (nc%n * currentCohort%fire_mort) * & - currentCohort%b_total() * g_per_kg * days_per_sec * ha_per_m2 + total_c * g_per_kg * days_per_sec * ha_per_m2 ! loss of individual from fire in new patch. nc%n = nc%n * (1.0_r8 - currentCohort%fire_mort) diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90 index a50f0f7ae3..1160eb8bfd 100644 --- a/main/FatesHistoryInterfaceMod.F90 +++ b/main/FatesHistoryInterfaceMod.F90 @@ -8,7 +8,8 @@ module FatesHistoryInterfaceMod use FatesConstantsMod , only : calloc_abs_error use FatesGlobals , only : fates_log use FatesGlobals , only : endrun => fates_endrun - + use EDTypesMod , only : nclmax + use EDTypesMod , only : ican_upper use FatesIODimensionsMod , only : fates_io_dimension_type use FatesIOVariableKindMod , only : fates_io_variable_kind_type use FatesHistoryVariableType , only : fates_history_variable_type