removed the finalize for type_list. This is a special thing for photo…

…chemical model. Instead I will extend the type there.

yaml_types.f90

@@ -98,7 +98,6 @@ subroutine node_dump(self,unit,indent)
       procedure :: set_path => list_set_path
       procedure :: finalize => list_finalize
       procedure :: size     => list_size
-      final :: list_destroy
    end type
 
    type type_error
@@ -611,19 +610,5 @@ function list_size(self) result(n)
      enddo
 
    end function list_size
-
-   subroutine list_destroy(self)
-     type(type_list), intent(inout) :: self
-
-     type (type_list_item),pointer :: item, next
-
-     item => self%first
-     do while (associated(item))
-        next => item%next
-        deallocate(item)
-        item => next
-     end do
-     nullify(self%first)
-   end subroutine
 
 end module yaml_types