Minor fixes related to new fire mortality diagnostics

rgknox · Jan 8, 2019 · 1828428 · 1828428
1 parent 2b5330b
commit 1828428
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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