destroy_propertylist Subroutine

  subroutine destroy_propertylist(header, property)
    ! ---------------------------------------------------------------------------
    !>
    type(tem_prophead_type),  pointer :: header(:)
    !>
    type(tem_property_type),  pointer :: property(:)

    deallocate(property)
    deallocate(header)
  end subroutine destroy_propertylist