Merge pull request #684 from rgknox/store_c_transfer_frac

Added carbon storage buffer to drought deciduous leaf-out
NGEET · Oct 22, 2020 · b6657ee · b6657ee
2 parents ae94905 + 428f9ea
commit b6657ee
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/biogeochem/EDPhysiologyMod.F90 b/biogeochem/EDPhysiologyMod.F90
@@ -1235,14 +1235,15 @@ subroutine phenology_leafonoff(currentSite)
 
                   if(store_c>nearzero) then
 
-                     store_c_transfer_frac = &
-                            min(EDPftvarcon_inst%phenflush_fraction(ipft)*currentCohort%laimemory, store_c)/store_c
+                     store_c_transfer_frac = & 
+                          min((EDPftvarcon_inst%phenflush_fraction(ipft)*currentCohort%laimemory)/store_c, &
+                          (1.0_r8-carbon_store_buffer))
 
                      if(prt_params%woody(ipft).ne.itrue)then
 
                         totalmemory=currentCohort%laimemory+currentCohort%sapwmemory+currentCohort%structmemory
-                        store_c_transfer_frac = min(EDPftvarcon_inst%phenflush_fraction(ipft)* &
-                                                totalmemory, store_c)/store_c
+                        store_c_transfer_frac = min(EDPftvarcon_inst%phenflush_fraction(ipft)*totalmemory/store_c, &
+                             (1.0_r8-carbon_store_buffer))
 
                      endif