Skip to content

Commit

Permalink
Update biogeophys/FatesPlantHydraulicsMod.F90
Browse files Browse the repository at this point in the history
Co-authored-by: Rosie Fisher <[email protected]>
  • Loading branch information
rgknox and rosiealice authored Sep 27, 2021
1 parent 695a439 commit 12f9d20
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion biogeophys/FatesPlantHydraulicsMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand Down

0 comments on commit 12f9d20

Please sign in to comment.