destroy_propertylist Subroutine

  subroutine destroy_propertylist(header, property)
    ! ---------------------------------------------------------------------- !
    !> Pointer to list of property headers to destroy
    type(tem_prophead_type), pointer :: header(:)
    !> Pointer to list of properties to destroy
    type(tem_property_type), pointer :: property(:)
    ! ---------------------------------------------------------------------- !

    deallocate(property)
    deallocate(header)
  end subroutine destroy_propertylist