diff --git a/src/MNH/aircraft_balloon.f90 b/src/MNH/aircraft_balloon.f90
index eb5b0d7772e90c443c79829daf29fdc584d6f075..02b18e25d549afd99061d0923e865547900429b4 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                                     )