Polish

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
 

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

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