diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index 4876f199dbe490b0d5e7ebbd525101fb194143df..10e3b003d9253b34e5825363cb0bd045970b849f 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/Inst_eddies/set_max_speed.f90
@@ -23,16 +23,8 @@ contains
 
     use, intrinsic:: IEEE_ARITHMETIC, only: IEEE_IS_NAN
 
-    ! Lbraries:
-    use contour_531, only: convert_to_ind
-    use geometry, only: polygon_point_dist_2d
-
     use ccw_orient_m, only: ccw_orient
-    use derived_types, only: eddy, null_ssh_contour, missing_ssh, ssh_contour, &
-         missing_speed
-    use good_contour_m, only: good_contour
-    use inside_4_m, only: inside_4
-    use max_speed_contour_ssh_m, only: max_speed_contour_ssh
+    use derived_types, only: eddy, null_ssh_contour, ssh_contour, missing_speed
     use mean_speed_m, only: mean_speed
     use spher_polyline_area_m, only: spher_polyline_area