From 9868d7927a1aa995cf71e7c062159cd6fbf27853 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 28 Feb 2024 22:24:43 +0100
Subject: [PATCH] Move instructions around
Preparing for the new structure. Note that the code is
degraded (temporarily) because the definition of `polyline_1` is
repeated uselessly inside the loop on `l`.
---
Overlap/overlap.f90 | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/Overlap/overlap.f90 b/Overlap/overlap.f90
index 057c2cf9..dcbde96a 100644
--- a/Overlap/overlap.f90
+++ b/Overlap/overlap.f90
@@ -72,14 +72,6 @@ contains
n_select = size(selection)
- if (n_select /= 0) then
- if (e1%speed_cont%n_points /= 0) then
- polyline_1 = e1%speed_cont%polyline
- else
- polyline_1 = e1%out_cont%polyline
- end if
- end if
-
DO l = 1, n_select
i2 = selection(l)
associate (e2 => flow(j)%list(i2))
@@ -87,6 +79,12 @@ contains
! delta}
delta_long = e1%extr%coord(1) - e2%extr%coord(1)
+ if (e1%speed_cont%n_points /= 0) then
+ polyline_1 = e1%speed_cont%polyline
+ else
+ polyline_1 = e1%out_cont%polyline
+ end if
+
if (e2%speed_cont%n_points /= 0) then
polyline_2 = copy_shift(e2%speed_cont%polyline, delta_long)
else
--
GitLab