From 0693c8443cde57b631b2c2c1839809a0f3884cc7 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 1 Jul 2021 10:58:53 +0200
Subject: [PATCH] Polish
---
Inst_eddies/Documentation_texfol/documentation.tex | 4 ++--
Overlap/Tests/write_snapshot.f90 | 2 --
Overlap/overlap.f90 | 6 +++---
3 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/Inst_eddies/Documentation_texfol/documentation.tex b/Inst_eddies/Documentation_texfol/documentation.tex
index 9eb0fe48..9376137f 100644
--- a/Inst_eddies/Documentation_texfol/documentation.tex
+++ b/Inst_eddies/Documentation_texfol/documentation.tex
@@ -433,8 +433,8 @@ séparer les contours et les positions des extremums.
\begin{itemize}
\item \verb+extremum.shp+ : points
\item \verb+extremum.dbf+ : valeur de SSH, indice de date, indice de
- tourbillon à cette date, cyclone (logique), valid (logique), valeur
- de vitesse sur le contour de vitesse maximale
+ tourbillon à cette date, valid (logique), valeur de vitesse sur le
+ contour de vitesse maximale
\item \verb+outermost_contour.shp+ : polygones
\item \verb+outermost_contour.dbf+ : aire, valeur de SSH, indice de
date, indice de tourbillon à cette date, radius4
diff --git a/Overlap/Tests/write_snapshot.f90 b/Overlap/Tests/write_snapshot.f90
index f7082f71..613da3d7 100644
--- a/Overlap/Tests/write_snapshot.f90
+++ b/Overlap/Tests/write_snapshot.f90
@@ -44,9 +44,7 @@ contains
CALL shpc_close(hshp)
print *, 'Created shapefiles in SHPC.'
-
print *, "Number of extrema:", s%number_vis_extr
-
print *, "s%ind_extr:"
do i = 1, s%number_vis_extr
diff --git a/Overlap/overlap.f90 b/Overlap/overlap.f90
index 0a71d186..112d3812 100644
--- a/Overlap/overlap.f90
+++ b/Overlap/overlap.f90
@@ -7,9 +7,9 @@ contains
subroutine overlap(flow, nlon, nlat, periodic, dist_lim, d, delta, j)
! This procedure finds edges between flow(j - delta) and flow(j),
- ! corresponding to dates d - delta and d. It calls write_overlap
- ! for these edges. It updates flow(j - delta)%list_vis%delta_out,
- ! and flow(j)%list_vis%delta_in.
+ ! corresponding to dates d - delta and d. It writes these
+ ! edges. It updates flow(j - delta)%list_vis%delta_out and
+ ! flow(j)%list_vis%delta_in.
! Libraries:
use contour_531, only: polyline
--
GitLab