Small adjustment to sapwood capping

NordicESMhub · Jun 7, 2018 · 68d2bf6 · 68d2bf6
1 parent d2b79d9
commit 68d2bf6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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