From 93d26ea06930e7483b4220b91200bb4ddd09a42c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 19 Jan 2023 14:04:49 +0100
Subject: [PATCH] Philippe 19/01/2023: flyers: write X and Y (flyer horizontal
position) only in shape level 'Point' (and not 'Vertical_profile' anymore)
---
src/MNH/write_diachro.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index bde51d154..3a45d50f9 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -1509,7 +1509,7 @@ select case ( idims )
end select
!Write X and Y position of the flyer
-if ( Present( tpflyer ) ) then
+if ( Present( tpflyer ) .and. yshape == 'Point' ) then
if ( lcartesian ) then
ystdnameprefix = 'plane'
else
--
GitLab