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

Rename variable `min_inters` to `min_inters_speed`

Because we are going to introduce another variable for the
intersection of outermost contours.
parent f10ebcbf
No related branches found
No related tags found
No related merge requests found
......@@ -13,7 +13,7 @@ module config_graph_m
! the extremum of a given eddy.
logical, protected:: cyclone = .true.
real, protected:: min_inters = 0.5 ! minimum intersection between contours
real, protected:: min_inters_speed = 0.5 ! minimum intersection between contours
contains
......@@ -30,7 +30,7 @@ contains
integer, intent(in):: rank
! Local:
namelist /config_graph_nml/ max_delta, dist_lim, cyclone, min_inters
namelist /config_graph_nml/ max_delta, dist_lim, cyclone, min_inters_speed
!-----------------------------------------------------------------
......@@ -50,7 +50,7 @@ contains
call ezmpi_bcast(max_delta, root = 0)
call ezmpi_bcast(dist_lim, root = 0)
call ezmpi_bcast(cyclone, root = 0)
call ezmpi_bcast(min_inters, root = 0)
call ezmpi_bcast(min_inters_speed, root = 0)
call ezmpi_bcast(copy, root = 0)
#endif
......
......@@ -17,7 +17,7 @@ contains
use jumble, only: twopi
use candidate_overlap_m, only: candidate_overlap
use config_graph_m, only: dist_lim, min_inters
use config_graph_m, only: dist_lim, min_inters_speed
use derived_types, only: snapshot
use read_grid_m, only: nlon, nlat, periodic
use spher_polygon_area_m, only: spher_polygon_area
......@@ -105,7 +105,7 @@ contains
if (res_pol%nparts /= 0) then
! polyline_1 and polyline_2 overlap
if (spher_polygon_area(res_pol) >= min_inters &
if (spher_polygon_area(res_pol) >= min_inters_speed &
* min(abs(spher_polyline_area(polyline_1)), &
abs(spher_polyline_area(polyline_2)))) then
write(unit_edge, fmt = *) &
......
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