From 5e81d7c2bc3e8bad192bf2184c17a3f9dda1cc25 Mon Sep 17 00:00:00 2001 From: Jessica Needham Date: Mon, 25 Nov 2019 16:56:26 -0800 Subject: [PATCH] Fix a typo bug I accidently introduced. --- biogeochem/FatesAllometryMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90 index eaf574342a..5e943b51b0 100644 --- a/biogeochem/FatesAllometryMod.F90 +++ b/biogeochem/FatesAllometryMod.F90 @@ -491,7 +491,7 @@ subroutine carea_allom(dbh,nplant,site_spread,ipft,c_area,inverse) call carea_2pwr(dbh_eff,site_spread,d2bl_p2,d2bl_ediff,d2ca_min,d2ca_max,c_area,do_inverse) capped_allom = .true. case(2) ! "2par_pwr") - call carea_2pw(dbh,site_spread,d2bl_p2,d2bl_ediff,d2ca_min,d2ca_max,c_area,do_inverse) + call carea_2pwr(dbh,site_spread,d2bl_p2,d2bl_ediff,d2ca_min,d2ca_max,c_area,do_inverse) capped_allom = .false. case(3) dbh_eff = min(dbh,dbh_maxh)