From df3149919de5f14627f33e606b3092e992ea27c8 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 14 Sep 2022 11:36:30 +0200
Subject: [PATCH] Philippe 14/09/2022: bugfix: NBALLOONS => NAIRCRAFTS
---
src/MNH/aircraft_balloon.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/aircraft_balloon.f90 b/src/MNH/aircraft_balloon.f90
index eb5b0d777..02b18e25d 100644
--- a/src/MNH/aircraft_balloon.f90
+++ b/src/MNH/aircraft_balloon.f90
@@ -151,7 +151,7 @@ DO JI = 1, NBALLOONS
TBALLOONS(JI), PSEA )
END DO
!
-DO JI = 1, NBALLOONS
+DO JI = 1, NAIRCRAFTS
CALL AIRCRAFT_BALLOON_EVOL( PTSTEP, PXHAT, PYHAT, PZ, PMAP, PLONOR, PLATOR, &
PU, PV, PW, PP, PTH, PR, PSV, PTKE, PTS, PRHODREF, PCIT, &
TAIRCRAFTS(JI), PSEA )
--
GitLab