From e5883fc61bb35a5a06e30f849ad432e31d0c8b15 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 1 Feb 2023 15:10:03 +0100
Subject: [PATCH] Polish

---
 .../Documentation_texfol/documentation.tex       | 16 ++++++++--------
 Inst_eddies/get_1_outerm.f90                     |  6 +++---
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/Inst_eddies/Documentation_texfol/documentation.tex b/Inst_eddies/Documentation_texfol/documentation.tex
index 0cda17b1..01fca054 100644
--- a/Inst_eddies/Documentation_texfol/documentation.tex
+++ b/Inst_eddies/Documentation_texfol/documentation.tex
@@ -1207,9 +1207,9 @@ Pour la région 1, coin en :
 \begin{equation*}
   \lambda = \np{5.125}^\circ, \phi = -\np{36.375}^\circ
 \end{equation*}
-soit $(\np[rad]{0.0894}, - \np[rad]{0.6349})$. Indices base 1 du coin
-: 21, 215. 5 minimums et 3 maximums dans ce cadre. Cf. figure
-(\ref{fig:extrema}).
+soit $(\np[rad]{0.0894}, - \np[rad]{0.6349})$. Indices dans le domaine
+global, base 1, du coin de la région 1 : 21, 215. 5 minimums et 3
+maximums dans ce cadre. Cf. figure (\ref{fig:extrema}).
 \begin{figure}[htbp]
   \centering
   \includegraphics[width=\textwidth]{extrema}
@@ -1222,11 +1222,11 @@ Minimum cible pour le test \verb+Get_1_outerm+ en :
 \begin{equation*}
   \lambda = \np{9.625}^\circ, \phi = - \np{33.875}^\circ
 \end{equation*}
-Indices base 1 de ce minimum : 39, 225. SSH en ce mimimum :
-\np{0.2759}. Cyclone numéro 4 dans ce cadre. Contour le plus intérieur
-: SSH = \np{0.293300003} m. Contour le plus extérieur : SSH =
-\np{0.460744} m. Contour de vitesse maximale : SSH = \np{0.3815}
-m. Cf. figures (\ref{fig:test_get_eddy}) et
+Indices dans le domaine global, base 1, de ce minimum : 39, 225. SSH
+en ce mimimum : \np{0.2759}. Cyclone numéro 4 dans ce cadre. Contour
+le plus intérieur : SSH = \np{0.293300003} m. Contour le plus
+extérieur : SSH = \np{0.460744} m. Contour de vitesse maximale : SSH =
+\np{0.3815} m. Cf. figures (\ref{fig:test_get_eddy}) et
 (\ref{fig:test_get_snapshot}).
 \begin{figure}[htbp]
   \centering
diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index af40342b..216bf250 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/Inst_eddies/get_1_outerm.f90
@@ -84,9 +84,9 @@ contains
     cont_list(1)%polyline = good_contour(corner, step, ssh, innermost_level_2, &
          coord_extr, outside_points)
 
-    if (cont_list(1)%n_points == 0) then
+    test_n_points: if (cont_list(1)%n_points == 0) then
        out_cont = null_ssh_contour()
-    else
+    else test_n_points
        n_cont = 1
        cont_list(1)%ssh = innermost_level_2
        level_good = innermost_level_2
@@ -136,7 +136,7 @@ contains
        cont_list(n_cont)%area = spher_polyline_area(cont_list(n_cont)%polyline)
        call ccw_orient(cont_list(n_cont))
        out_cont = cont_list(n_cont)
-    end if
+    end if test_n_points
 
   end subroutine get_1_outerm
 
-- 
GitLab