Removed code that had been commented out.

components/elm/src/data_types/ColumnDataType.F90

@@ -9002,7 +9002,7 @@ subroutine col_nf_zero_forfates_veg(this, bounds, num_soilc, filter_soilc)
     integer                , intent(in)    :: filter_soilc(:) ! filter for soil columns
     ! locals
     integer :: fc
-    integer :: c,k,j
+    integer :: c
 
     if(.not.use_fates) return
 
@@ -9013,15 +9013,6 @@ subroutine col_nf_zero_forfates_veg(this, bounds, num_soilc, filter_soilc)
     end do
 
 
-    !do k = 1, ndecomp_pools
-    !   do j = 1, nlevdecomp_full
-    !      do fc = 1,num_soilc
-    !         c = filter_soilc(fc)
-    !         this%m_decomp_npools_to_fire_vr(c,j,k) = 0._r8
-    !      enddo
-    !   end do 
-    !end do  
-
 
   end subroutine col_nf_zero_forfates_veg