fix c/p mistake

Author: peterdschwartz

components/elm/src/biogeophys/SoilStateType.F90

@@ -471,8 +471,8 @@ subroutine InitCold(this, bounds)
     if (.not. readvar ) then
        call ieee_set_flag(ieee_all,.false.)
        call ieee_set_halting_mode(ieee_inexact, .false.)
-       do j = 1, nlevgrnd
-          zsoi(j) = scalez*(exp(zecoeff*(dble(j)-0.5_r8))-1._r8)    !node depths
+       do j = 1, nlevsoifl
+          zsoifl(j) = scalez*(exp(zecoeff*(dble(j)-0.5_r8))-1._r8)    !node depths
        enddo
     end if