From 83a7a4c792ee194c02218821e8ab2de8001902c2 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Mon, 22 May 2023 21:44:52 +0200
Subject: [PATCH] Polish

---
 Inst_eddies/get_1_outerm.f90     | 4 ++--
 Inst_eddies/set_all_contours.f90 | 4 ++--
 Inst_eddies/set_max_speed.f90    | 7 ++++---
 3 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index 68477fd4..8bfc4ed3 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/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
diff --git a/Inst_eddies/set_all_contours.f90 b/Inst_eddies/set_all_contours.f90
index 307e9c26..b6cbc9ee 100644
--- a/Inst_eddies/set_all_contours.f90
+++ b/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 <=
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index 7e1facf6..5f095eca 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/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,
-- 
GitLab