Polish

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.

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.

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,