From beaa0e850751deddab522b6344d207f6cb7a0505 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 22 Sep 2023 16:20:48 +0200
Subject: [PATCH] Philippe 22/09/2023: minor: add a missing comment
---
src/MNH/aircraft_balloon_evol.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90
index 6d2f5a80b..dcbdd6349 100644
--- a/src/MNH/aircraft_balloon_evol.f90
+++ b/src/MNH/aircraft_balloon_evol.f90
@@ -326,6 +326,7 @@ SELECT TYPE ( TPFLYER )
END IF
! In flight
+ ! The condition "ABS( TPFLYER%TPOS_CUR - TDTCUR ) < XTIMETHRESH" is necessary if the balloon changes of model
INFLIGHTONMODEL: IF ( TPFLYER%LFLY .AND. .NOT. TPFLYER%LCRASH .AND. TPFLYER%NMODEL == IMI &
.AND. ABS( TPFLYER%TPOS_CUR - TDTCUR ) < XTIMETHRESH ) THEN
ISOWNERBAL: IF ( TPFLYER%NRANK_CUR == ISP ) THEN
--
GitLab