From ea14e775e690f360fc6ea3060d7cdcf05dde649c Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Mon, 27 Sep 2021 11:56:41 -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 dadfe65391..58babee43a 100644 --- a/biogeophys/FatesPlantHydraulicsMod.F90 +++ b/biogeophys/FatesPlantHydraulicsMod.F90 @@ -4457,7 +4457,7 @@ subroutine shellGeom(l_aroot, rs1, area_site, dz, r_out_shell, r_node_shell, v_s ! r_node_shell(1:nshells) = 0 ! v_shell(1:k) = 0 - end if ! end line 4439 + end if return end subroutine shellGeom