Remove intermediary variable m

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.]), &