diff --git a/Inst_eddies/Documentation_texfol/documentation.tex b/Inst_eddies/Documentation_texfol/documentation.tex index f46582de9180faf302642735578c02322724137c..39a9ae86249ca7968e8813884ba0fda72b8d5c72 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 6c2f0e476085b0608e86de19e86e3bb555bde457..130604ce90467715ddd1cb8654dbf1471289e7bc 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