diff --git a/Overlap/config_graph.F90 b/Overlap/config_graph.F90 index 556c539b9e286e123ce058097765e5f863dbf3dc..9e772fa825c79a326f37c034edb2a3fe3fe2b4eb 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 8b6b4e090804485ad97b1ac078ac0e221a0dd7ad..5d3f407feee3b9e4e5317d7e1e33aeda8d487cb7 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 06b70cf10ed972e40497a6834042824928987770..5a4174b187cedd1322c62eeab01d30b0aa810d1d 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