bugfix on prior

NGEET · Mar 19, 2018 · e77104a · e77104a
1 parent 1079d2d
commit e77104a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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: ', &