diff --git a/Inst_eddies/set_max_speed.F90 b/Inst_eddies/set_max_speed.F90
index 2532e499696231dd48ad782d5a6d9995f9f917be..eecb124a442e3bf7c3314cbe10bc699305bff9c1 100644
--- a/Inst_eddies/set_max_speed.F90
+++ b/Inst_eddies/set_max_speed.F90
@@ -7,11 +7,9 @@ contains
   subroutine set_max_speed(speed_cont, max_speed, cont_list, n_cont, &
        extr_coord, ssh, u, v, corner, step)
 
-    ! This procedure defines the components speed_cont and max_speed
-    ! of argument e. On return, e%speed_cont may be a null ssh contour
-    ! and e%max_speed may be set to missing_speed. e%max_speed is
-    ! never NaN. On return, if e%speed_cont is not a null ssh contour
-    ! then e%max_speed is the speed on e%speed_cont.
+    ! This procedure defines speed_cont and max_speed. On return,
+    ! speed_cont may be a null ssh contour and max_speed may be set to
+    ! missing_speed. max_speed is never NaN.
 
     ! The length of the interval of longitudes of the domain, step(1)
     ! * (size(ssh, 1) - 1), should be < 180 degrees, so that the