let cp_destroy_probability = new float_cp ~group ["topology";"destroy_probability"] ~short_name:"dp" 0.01
  "When modifying the topology, probability to destroy a thing"