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