Skip to content
Snippets Groups Projects
Commit 0693c844 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Polish

parent 19c2ecb6
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment