From ae7c1ccf097d1324ea7ebdee571f3bae6f9a52bc Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 30 Jun 2021 16:40:22 +0200
Subject: [PATCH] Remove intermediary variable m
---
Overlap/overlap.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/Overlap/overlap.f90 b/Overlap/overlap.f90
index 852765d5..d135fed3 100644
--- a/Overlap/overlap.f90
+++ b/Overlap/overlap.f90
@@ -42,7 +42,7 @@ contains
integer i1 ! eddy index of predecessor
integer i2 ! eddy index of successor
- integer l, n_select, m
+ integer l, n_select
type(polyline) polyline_1, polyline_2
type(polygon) res_pol
@@ -99,9 +99,9 @@ contains
! Shift the longitudes of polyline_2 to values close to the
! longitude of extremum i1:
- m = floor((flow(j - delta)%list_vis(i1)%coord_extr(1) &
- - flow(j)%list_vis(i2)%coord_extr(1)) / twopi + 0.5)
- polyline_2%points(1, :) = polyline_2%points(1, :) + m * twopi
+ polyline_2%points(1, :) = polyline_2%points(1, :) &
+ + floor((flow(j - delta)%list_vis(i1)%coord_extr(1) &
+ - flow(j)%list_vis(i2)%coord_extr(1)) / twopi + 0.5) * twopi
call gpc_polygon_clip_f(GPC_INT, &
polygon(nparts = 1, part = [polyline_1], hole = [.false.]), &
--
GitLab