diff --git a/Overlap/overlap.f90 b/Overlap/overlap.f90 index 8c9cc3eff91938519ed29185e29229d4524e31a9..ce775bab062cd78b78252726131e60a5799e5733 100644 --- a/Overlap/overlap.f90 +++ b/Overlap/overlap.f90 @@ -101,11 +101,15 @@ contains assoc_eddies = inters_lines(e1%out_cont%polyline, p_shifted, & min(min_inters_speed, min_inters_out)) else - p_shifted = copy_shift(e2%speed_cont%polyline, delta_long) - assoc_eddies = inters_lines(e1%speed_cont%polyline, & - p_shifted, min_inters_speed) + if (min_inters_speed <= 1.) then + p_shifted = copy_shift(e2%speed_cont%polyline, delta_long) + assoc_eddies = inters_lines(e1%speed_cont%polyline, & + p_shifted, min_inters_speed) + else + assoc_eddies = .false. + end if - if (.not. assoc_eddies) then + if (.not. assoc_eddies .and. min_inters_out <= 1.) then p_shifted = copy_shift(e2%out_cont%polyline, delta_long) assoc_eddies = inters_lines(e1%out_cont%polyline, & p_shifted, min_inters_out)