Added water storage flux to termination mortality.

rgknox · Jan 10, 2018 · c0ca0a2 · c0ca0a2
1 parent 898c3ae
commit c0ca0a2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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