From 68d2bf6f557c19432a765363eb33c5c182994b60 Mon Sep 17 00:00:00 2001
From: Ryan Knox <rgknox@lbl.gov>
Date: Thu, 7 Jun 2018 17:13:02 -0600
Subject: [PATCH] Small adjustment to sapwood capping

---
 biogeochem/FatesAllometryMod.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
index 41980b001c..432e1efb1b 100644
--- a/biogeochem/FatesAllometryMod.F90
+++ b/biogeochem/FatesAllometryMod.F90
@@ -671,7 +671,7 @@ subroutine bsap_allom(d,ipft,canopy_trim,bsap,dbsapdd)
        bsap_cap = max_frac*(bagw+bbgw)
 
        if(bsap>bsap_cap) then
-          bsap     = min( bsap_cap,bsap)
+          bsap     = bsap_cap
           if(present(dbsapdd))then
              dbsapdd = max_frac*(dbagwdd+dbbgwdd)
           end if