From 12f9d2049bf0db33cd65d07564700a45e4ff9d4d Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Mon, 27 Sep 2021 11:56:23 -0400 Subject: [PATCH] Update biogeophys/FatesPlantHydraulicsMod.F90 Co-authored-by: Rosie Fisher --- biogeophys/FatesPlantHydraulicsMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/biogeophys/FatesPlantHydraulicsMod.F90 b/biogeophys/FatesPlantHydraulicsMod.F90 index b38d58a2d3..dadfe65391 100644 --- a/biogeophys/FatesPlantHydraulicsMod.F90 +++ b/biogeophys/FatesPlantHydraulicsMod.F90 @@ -4370,7 +4370,7 @@ function zeng2001_crootfr(a, b, z, z_max) result(crootfr) if(present(z_max))then ! If the soil depth is larger than the maximum rooting depth of the cohort, - ! then the cumulative root frection of that layer equals that of the maximum rooting depth + ! then the cumulative root fraction of that layer equals that of the maximum rooting depth crootfr = 1._r8 - .5_r8*(exp(-a*min(z,z_max)) + exp(-b*min(z,z_max))) ! end of Junyan addition crootfr_max = 1._r8 - .5_r8*(exp(-a*z_max) + exp(-b*z_max))