Polish.

get_1_outerm.f

@@ -10,7 +10,8 @@ contains
     ! Gets one outermost contour, if it can find one. Method:
     ! dichotomy on level of ssh. If the procedure cannot find an
     ! outermost contour, it return a null polyline, zero area and ssh
-    ! equal to ssh extremum.
+    ! equal to ssh extremum. An outermost contour is not found if, and
+    ! only if, there is no good contour at innermost level.
 
     use contour_531, only: polyline, convert_to_reg_coord
     use derived_types, only: ssh_contour

set_max_speed.f

@@ -22,7 +22,7 @@ contains
 
     type(eddy), intent(inout):: e
     ! e%out_cont, e%cyclone, e%ssh_extr and e%coord_extr
-    ! should be defined on input
+    ! should be defined on input.
 
     integer, intent(in):: ind_targ_extr(:) ! (2) indices of the target extremum
     integer, intent(in):: extr_map(:, :)