From 1a94034eb23f1e94b4aa20a1fa367fea4e03af78 Mon Sep 17 00:00:00 2001 From: Rich Fiorella Date: Thu, 9 May 2024 12:59:32 -0600 Subject: [PATCH] Remove ispolygon from landunit_varcon import ispolygon is part of lun_pp data structure and not landunit_varcon so does not need to be imported to FracH2OSfc subroutine --- components/elm/src/biogeophys/CanopyHydrologyMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/elm/src/biogeophys/CanopyHydrologyMod.F90 b/components/elm/src/biogeophys/CanopyHydrologyMod.F90 index a32f31bc4b99..6fb6fb59d0cc 100755 --- a/components/elm/src/biogeophys/CanopyHydrologyMod.F90 +++ b/components/elm/src/biogeophys/CanopyHydrologyMod.F90 @@ -783,7 +783,7 @@ subroutine FracH2OSfc(bounds, num_h2osfc, filter_h2osfc, & ! !USES: use shr_const_mod , only : shr_const_pi use shr_spfn_mod , only : erf => shr_spfn_erf - use landunit_varcon , only : istsoil, istcrop, ispolygon + use landunit_varcon , only : istsoil, istcrop ! ! !ARGUMENTS: type(bounds_type) , intent(in) :: bounds