From 967f2bbb682fe7cb3f66a1e8650cdb4a2a572ffa Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 9 Dec 2022 15:55:44 +0100
Subject: [PATCH] Philippe 09/12/2022: balloons: add LPOSITION_INIT field
---
src/MNH/aircraft_balloon_evol.f90 | 3 ++-
src/MNH/modd_aircraft_balloon.f90 | 1 +
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90
index 933c9c319..75ea925f4 100644
--- a/src/MNH/aircraft_balloon_evol.f90
+++ b/src/MNH/aircraft_balloon_evol.f90
@@ -304,7 +304,8 @@ SELECT TYPE ( TPFLYER )
! Initialize model number (and rank)
! This is not done in initialisation phase because some data is not yet available at this early stage
! (XXHAT_ll of all models are needed by FIND_PROCESS_AND_MODEL_FROM_XY_POS)
- IF ( .NOT. TPFLYER%LFLY .AND. .NOT. TPFLYER%LCRASH .AND. TPFLYER%NRANK_CUR < 0 ) THEN
+ IF ( .NOT. TPFLYER%LPOSITION_INIT ) THEN
+ TPFLYER%LPOSITION_INIT = .TRUE.
! Get rank of the process where the balloon is and the model number
CALL FLYER_GET_RANK_MODEL_ISCRASHED( TPFLYER, PX = TPFLYER%XXLAUNCH, PY = TPFLYER%XYLAUNCH )
IF ( TPFLYER%LCRASH ) THEN
diff --git a/src/MNH/modd_aircraft_balloon.f90 b/src/MNH/modd_aircraft_balloon.f90
index 0ed8002ec..e59cdcd0e 100644
--- a/src/MNH/modd_aircraft_balloon.f90
+++ b/src/MNH/modd_aircraft_balloon.f90
@@ -152,6 +152,7 @@ TYPE, EXTENDS( TFLYERDATA ) :: TAIRCRAFTDATA
END TYPE TAIRCRAFTDATA
TYPE, EXTENDS( TFLYERDATA ) :: TBALLOONDATA
+ LOGICAL :: LPOSITION_INIT = .FALSE. ! True if initial position has been computed
!
!* balloon dynamical characteristics
!
--
GitLab