Fix spvale->spval

lanl · Mar 31, 2024 · 3331938 · 3331938
1 parent 519a945
commit 3331938
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/elm/src/data_types/VegetationPropertiesType.F90 b/components/elm/src/data_types/VegetationPropertiesType.F90
@@ -315,7 +315,7 @@ subroutine veg_vp_init(this)
     allocate(this%bendresist(0:numpft))                          ; this%bendresist(:)            =spval
     allocate(this%vegshape(0:numpft))                            ; this%vegshape(:)              =spval
     allocate(this%stocking(0:numpft))                            ; this%stocking(:)              =spval
-    allocate(this%taper(0:numpft))                               ; this%taper(:)                 =spvale
+    allocate(this%taper(0:numpft))                               ; this%taper(:)                 =spval
 
     do m = 0,numpft