From c0ca0a20b3fe8a297983c6beccd4b99c05c0bd1b Mon Sep 17 00:00:00 2001
From: Ryan Knox <rgknox@lbl.gov>
Date: Tue, 9 Jan 2018 16:47:11 -0800
Subject: [PATCH] Added water storage flux to termination mortality.

---
 biogeochem/EDCohortDynamicsMod.F90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/biogeochem/EDCohortDynamicsMod.F90 b/biogeochem/EDCohortDynamicsMod.F90
index 755c5277..034f312a 100755
--- a/biogeochem/EDCohortDynamicsMod.F90
+++ b/biogeochem/EDCohortDynamicsMod.F90
@@ -653,7 +653,10 @@ subroutine terminate_cohorts( currentSite, patchptr, level )
                   currentSite%root_litter_diagnostic_input_carbonflux(currentCohort%pft) + &
                   currentCohort%n * (currentCohort%br+currentCohort%bstore) * hlm_days_per_year  / AREA
 
-             if (hlm_use_planthydro.eq.itrue) call DeallocateHydrCohort(currentCohort)
+             if( hlm_use_planthydro == itrue ) then
+                call AccumulateMortalityWaterStorage(currentSite,currentCohort,currentCohort%n)
+                call DeallocateHydrCohort(currentCohort)
+             end if
 
              deallocate(currentCohort)     
           endif