Polish

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