Polish

Inst_eddies/get_1_outerm.f90

@@ -56,8 +56,8 @@ contains
     ! 1, the outermost contour is element with subscript n_cont. The
     ! contours are in monotonic order of ssh. For i /= n_cont - 1,
     ! cont_list(i)%area has its default initialization value and the
-    ! order of points in cont_list(i) (clockwise or counter-clockwise)
-    ! is not specified.
+    ! order of points in cont_list(i)%polyline (clockwise or
+    ! counter-clockwise) is not specified.
 
     integer, intent(out):: n_cont
     ! number of good contours found and stored, 0 <= n_cont <= n_max_cont - 1

Inst_eddies/set_all_contours.f90

@@ -72,8 +72,8 @@ contains
     ! 1, the outermost contour is element with subscript n_cont. The
     ! contours are in monotonic order of ssh. If i /= n_cont - 1,
     ! cont_list(i)%area has its default initialization value and the
-    ! order of points in cont_list(i) (clockwise or counter-clockwise)
-    ! is not specified.
+    ! order of points in cont_list(i)%polyline (clockwise or
+    ! counter-clockwise) is not specified.
 
     integer n_cont
     ! number of good contours found and stored in cont_list, 0 <=

Inst_eddies/set_max_speed.f90

@@ -32,9 +32,10 @@ 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, has its default initialization value and
-    ! the order of points in cont_list(i) (clockwise or
-    ! counter-clockwise) is not specified.
+    ! 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.
 
     integer, intent(inout):: n_cont
     ! Number of good contours found and stored in cont_list. On entry,