From 748f3d5ed3cbe36fd5be31ee3cdfb2a55dc421fc Mon Sep 17 00:00:00 2001 From: Rich Fiorella Date: Wed, 15 May 2024 13:43:19 -0600 Subject: [PATCH] Fix indexing of ispolygon landunit logical. Logical test of lun_pp%ispolygon needed to have column specified in a place where the whole vector had previously been specified. --- components/elm/src/biogeophys/ActiveLayerMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/elm/src/biogeophys/ActiveLayerMod.F90 b/components/elm/src/biogeophys/ActiveLayerMod.F90 index d48f001a1dd1..3ff4d2f098c0 100644 --- a/components/elm/src/biogeophys/ActiveLayerMod.F90 +++ b/components/elm/src/biogeophys/ActiveLayerMod.F90 @@ -190,7 +190,7 @@ subroutine alt_calc(num_soilc, filter_soilc, & ! update ice wedge polygon microtopographic parameters if in polygonal ground ! TODO: need to retrieve landunit this column is on. - if (lun_pp%ispolygon) then + if (lun_pp%ispolygon(c)) then if (lun_pp%polygontype(c) .eq. ilowcenpoly) then rmax(c) = 0.4_r8 vexc(c) = 0.2_r8