diff --git a/get_1_outerm.f b/get_1_outerm.f
index 23cfa0380192940fa0a611eb81c60427588df884..cbb2bd2ae1c5e1a6524c56f55936aa5e8122ba85 100644
--- a/get_1_outerm.f
+++ b/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
diff --git a/set_max_speed.f b/set_max_speed.f
index 9390c0b0e1a1cd9dae918938c691007e8e90a632..eb2b3c971ddf1cf71a17aa3a1842b7552df96af7 100644
--- a/set_max_speed.f
+++ b/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(:, :)