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. ...@@ -433,8 +433,8 @@ séparer les contours et les positions des extremums.
\begin{itemize} \begin{itemize}
\item \verb+extremum.shp+ : points \item \verb+extremum.shp+ : points
\item \verb+extremum.dbf+ : valeur de SSH, indice de date, indice de \item \verb+extremum.dbf+ : valeur de SSH, indice de date, indice de
tourbillon à cette date, cyclone (logique), valid (logique), valeur tourbillon à cette date, valid (logique), valeur de vitesse sur le
de vitesse sur le contour de vitesse maximale contour de vitesse maximale
\item \verb+outermost_contour.shp+ : polygones \item \verb+outermost_contour.shp+ : polygones
\item \verb+outermost_contour.dbf+ : aire, valeur de SSH, indice de \item \verb+outermost_contour.dbf+ : aire, valeur de SSH, indice de
date, indice de tourbillon à cette date, radius4 date, indice de tourbillon à cette date, radius4
......
...@@ -44,9 +44,7 @@ contains ...@@ -44,9 +44,7 @@ contains
CALL shpc_close(hshp) CALL shpc_close(hshp)
print *, 'Created shapefiles in SHPC.' print *, 'Created shapefiles in SHPC.'
print *, "Number of extrema:", s%number_vis_extr print *, "Number of extrema:", s%number_vis_extr
print *, "s%ind_extr:" print *, "s%ind_extr:"
do i = 1, s%number_vis_extr do i = 1, s%number_vis_extr
......
...@@ -7,9 +7,9 @@ contains ...@@ -7,9 +7,9 @@ contains
subroutine overlap(flow, nlon, nlat, periodic, dist_lim, d, delta, j) subroutine overlap(flow, nlon, nlat, periodic, dist_lim, d, delta, j)
! This procedure finds edges between flow(j - delta) and flow(j), ! This procedure finds edges between flow(j - delta) and flow(j),
! corresponding to dates d - delta and d. It calls write_overlap ! corresponding to dates d - delta and d. It writes these
! for these edges. It updates flow(j - delta)%list_vis%delta_out, ! edges. It updates flow(j - delta)%list_vis%delta_out and
! and flow(j)%list_vis%delta_in. ! flow(j)%list_vis%delta_in.
! Libraries: ! Libraries:
use contour_531, only: polyline 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