From e77104aa65f312b458bba951ce45c7c7da01fd04 Mon Sep 17 00:00:00 2001
From: ckoven <ckoven@gmail.com>
Date: Mon, 19 Mar 2018 11:34:20 -0600
Subject: [PATCH] bugfix on prior

---
 biogeochem/FatesAllometryMod.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
index d5a68ef5a3..ae4d9bf859 100644
--- a/biogeochem/FatesAllometryMod.F90
+++ b/biogeochem/FatesAllometryMod.F90
@@ -631,6 +631,10 @@ subroutine bfineroot(d,ipft,canopy_trim,bfr,dbfrdd)
        
        call blmax_allom(d,ipft,blmax,dblmaxdd)
        call bfrmax_const(d,blmax,dblmaxdd,ipft,bfrmax,dbfrmaxdd)
+       bfr    = bfrmax
+       if(present(dbfrdd))then
+          dbfrdd = dbfrmaxdd
+       end if
 
     case DEFAULT 
        write(fates_log(),*) 'An undefined fine root allometry was specified: ', &