Fix crash related to bedrock depth

fmyuan · Jul 30, 2024 · 1503cd6 · 1503cd6
1 parent 013b882
commit 1503cd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/elm/src/biogeophys/SoilWaterMovementMod.F90 b/components/elm/src/biogeophys/SoilWaterMovementMod.F90
@@ -1278,7 +1278,7 @@ subroutine Compute_EffecRootFrac_And_VertTranSink_Default(bounds, num_filterc, &
       do fc = 1, num_filterc
          c = filterc(fc)
          nlevbed = nlev2bed(c)
-         do j = 1, nlevbed
+         do j = 1, nlevsoi
             rootr_col(c,j) = 0._r8
          end do
       end do