From 13cbe446a1c97c297ab6193c90b6558852f665e5 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 28 Mar 2023 08:15:46 +0200
Subject: [PATCH] Polish

---
 .../Documentation_texfol/documentation.tex     | 18 ++++++++++++------
 Inst_eddies/set_all_outerm.f90                 |  4 ++--
 2 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/Inst_eddies/Documentation_texfol/documentation.tex b/Inst_eddies/Documentation_texfol/documentation.tex
index f46582de..39a9ae86 100644
--- a/Inst_eddies/Documentation_texfol/documentation.tex
+++ b/Inst_eddies/Documentation_texfol/documentation.tex
@@ -1071,7 +1071,9 @@ itération sur les extremums pour trouver les contours et une seconde
 itération pour trouver le contour de vitesse maximale. (On reviendrait
 ainsi à l'organisation envisagée jusqu'à la commission 8fe2368c.)
 L'avantage serait une économie de mémoire vive : on ne stockerait pas
-tous les contours dans le snasphot.
+tous les contours dans le snasphot. Inversement, il y a un avantage de
+souplesse à séparer les deux phases : laisser la voix à d'autres
+processus de recherche des contours.
 
 Notons ici :
 \begin{align*}
@@ -1617,14 +1619,18 @@ Algorithme principal :
   \STATE appel de set\_all\_speed
 \end{algorithmic}
 
-\verb+set_all_contours+ : remplit s\%list\%cont\_list sauf
-speed. Conserver tous les bons contours trouvés lors de la recherche
-par dichotomie du contour extérieur. Ils serviront lors de la
-recherche du contour de vitesse maximale. Trier la liste de contour
+\verb+set_all_contours+ : remplit s\%list\%cont\_list sauf la
+composante speed. Conserver tous les bons contours trouvés lors de la
+recherche par dichotomie du contour extérieur. Ils serviront lors de
+la recherche du contour de vitesse maximale. Trier la liste de contour
 par ordre de ssh et compléter la liste de contours pour qu'il y ait un
 intervalle de ssh maximal entre deux contours successifs. Le projet de
 compléter la liste justifie que ce tableau ait une taille fixe au lieu
-d'être alloué par \verb+get_1_outerm+.
+d'être alloué par \verb+get_1_outerm+. L'idée est de créer une
+procédure pour compléter la liste, qui serait appelée après
+\verb+get_1_outerm+, à l'intérieur de l'itération sur les extremums,
+avant affectation de la liste à une composante du type eddy. La
+composante \verb+cont_list+ du type eddy serait allocatable.
 
 \verb+set_all_speed+ : remplit s\%list\%i\_max\_speed,
 s\%list\%cont\_list\%speed
diff --git a/Inst_eddies/set_all_outerm.f90 b/Inst_eddies/set_all_outerm.f90
index 6c2f0e47..130604ce 100644
--- a/Inst_eddies/set_all_outerm.f90
+++ b/Inst_eddies/set_all_outerm.f90
@@ -65,8 +65,8 @@ contains
     integer, parameter:: n_max_cont = 31
 
     type(ssh_contour) cont_list(n_max_cont)
-    ! Contour list. The outermost contour is element n_cont. The
-    ! contours are in monotonic order of ssh.
+    ! Contour list. The outermost contour is element with subscript
+    ! n_cont. The contours are in monotonic order of ssh.
 
     integer n_cont ! number of good contours found and stored in cont_list
 
-- 
GitLab