From 2ae0f8af25283f908b7b8fd68a4ddb3d671cc0b4 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 28 Feb 2024 22:02:38 +0100
Subject: [PATCH] Polish
---
Overlap/config_graph.F90 | 3 ++-
Overlap/inters_lines.f90 | 5 ++++-
Overlap/overlap.f90 | 2 +-
3 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/Overlap/config_graph.F90 b/Overlap/config_graph.F90
index 556c539b..9e772fa8 100644
--- a/Overlap/config_graph.F90
+++ b/Overlap/config_graph.F90
@@ -15,7 +15,8 @@ module config_graph_m
logical, protected:: cyclone = .true.
real, protected:: min_inters_speed = 0.5
- ! minimum intersection between maximum-speed contours
+ ! minimum intersection between maximum-speed contours, computed as a
+ ! fraction of surface
contains
diff --git a/Overlap/inters_lines.f90 b/Overlap/inters_lines.f90
index 8b6b4e09..5d3f407f 100644
--- a/Overlap/inters_lines.f90
+++ b/Overlap/inters_lines.f90
@@ -17,7 +17,10 @@ contains
use spher_polyline_area_m, only: spher_polyline_area
type(polyline), intent(in):: polyline_1, polyline_2
- real, intent(in):: min_inters ! minimum intersection between contours
+
+ real, intent(in):: min_inters
+ ! minimum intersection between polylines, computed as a fraction
+ ! of surface
! Local:
type(polygon) res_pol
diff --git a/Overlap/overlap.f90 b/Overlap/overlap.f90
index 06b70cf1..5a4174b1 100644
--- a/Overlap/overlap.f90
+++ b/Overlap/overlap.f90
@@ -14,11 +14,11 @@ contains
! Libraries:
use contour_531, only: polyline
- use inters_lines_m, only: inters_lines
use copy_shift_m, only: copy_shift
use candidate_overlap_m, only: candidate_overlap
use config_graph_m, only: dist_lim, min_inters_speed
use derived_types, only: snapshot
+ use inters_lines_m, only: inters_lines
use read_grid_m, only: nlon, nlat, periodic
use unit_edge_m, only: unit_edge
--
GitLab