Count outermost contours

Inst_eddies/Tests/test_set_all_outerm.f90

@@ -49,6 +49,8 @@ program test_set_all_outerm
   end do
 
   print *, "test_set_all_outerm: s%number_extr = ", s%number_extr
+  print *, "test_set_all_outerm: Number of outermost contours = ", &
+       count(s%list%out_cont%closed)
   print *, "test_set_all_outerm: Average number of points per outermost ", &
        "contour: ", sum(s%list%out_cont%n_points) / real(s%number_extr)
   call shpc_create(hshp_cyclo, shpc_dir = "SHPC", cyclone = .true., slice = 0, &