diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index c3e3a3e34bf5b1742b4c9b5dad73ba26d12104cd..b1a61064b8d4e50a5b13414a5aeee4c293a750d6 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/Inst_eddies/get_1_outerm.f90
@@ -23,8 +23,8 @@ contains
     ! duplicated in the array cont_list. In cont_list, the contours,
     ! including the outermost contour, are in monotonic order of ssh:
     ! ascending if the extremum is a minimum, descending if the
-    ! extremum is a maximum. The area is only computed for the
-    ! outermost contour. On return, the array
+    ! extremum is a maximum. The area is not computed for contours in
+    ! cont_list. On return, the array
     ! abs(ediff1d(cont_list(:n_cont)%ssh)) is in descending
     ! order. (See notes for a proof.) On return, n_cont == 1 means we
     ! have only found one good contour at innermost_level_2 and it has
@@ -52,11 +52,12 @@ contains
     use spher_polyline_area_m, only: spher_polyline_area
 
     type(ssh_contour), intent(out):: out_cont
+    ! points given by longitude, latitude, in rad
 
     type(ssh_contour), intent(out):: cont_list(:) ! (n_max_cont)
     ! Contour list. Defined only for subscripts 1:n_cont. If n_cont >=
     ! 1, the outermost contour is element with subscript n_cont. The
-    ! contours are in monotonic order of ssh. For i <= n_cont - 1,
+    ! contours are in monotonic order of ssh. For i <= n_cont,
     ! cont_list(i)%area has its default initialization value and the
     ! order of points in cont_list(i)%polyline (clockwise or
     ! counter-clockwise) is not specified.
diff --git a/Inst_eddies/set_contours.f90 b/Inst_eddies/set_contours.f90
index 1d040ee252c6781c2b8cbf919ac4b18206b56017..cd7be4be4b2189a3af35ae917afc762889aecd98 100644
--- a/Inst_eddies/set_contours.f90
+++ b/Inst_eddies/set_contours.f90
@@ -67,7 +67,7 @@ contains
     type(ssh_contour) cont_list(n_max_cont)
     ! Contour list. Defined only for subscripts 1:n_cont. If n_cont >=
     ! 1, the outermost contour is element with subscript n_cont. The
-    ! contours are in monotonic order of ssh. If i <= n_cont - 1,
+    ! contours are in monotonic order of ssh. For i <= n_cont,
     ! cont_list(i)%area has its default initialization value and the
     ! order of points in cont_list(i)%polyline (clockwise or
     ! counter-clockwise) is not specified.
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index 6b51edb94cf4adc2829b06dcf2858d9cdddab956..263d0e3b30c97715e73cfb2adf9e1b05df9397bf 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/Inst_eddies/set_max_speed.f90
@@ -46,10 +46,9 @@ contains
     ! Contour list. Defined only for subscripts 1:n_cont. On entry,
     ! the outermost contour is element with subscript n_cont. The
     ! contours between 1 and i_outer are in monotonic order of
-    ! ssh. For i < i_outer, cont_list(i)%area has its default
-    ! initialization value and the order of points in
-    ! cont_list(i)%polyline (clockwise or counter-clockwise) is not
-    ! specified.
+    ! ssh. cont_list%area has its default initialization value and the
+    ! order of points in the polyline components (clockwise or
+    ! counter-clockwise) is not specified.
 
     integer, intent(inout):: n_cont
     ! Number of good contours found and stored in cont_list. On entry,