From 555f607a579d561092031fd205e6b0b55703230a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 18 Jan 2023 13:27:58 +0100
Subject: [PATCH] Philippe 18/01/2023: bugfix: correct pack size for flyer
 communications

---
 src/MNH/aircraft_balloon.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/aircraft_balloon.f90 b/src/MNH/aircraft_balloon.f90
index f8ff487e0..4311c5406 100644
--- a/src/MNH/aircraft_balloon.f90
+++ b/src/MNH/aircraft_balloon.f90
@@ -256,7 +256,7 @@ END IF
 
 CALL BALLOONS_MOVE_TO_NEW_RANKS()
 
-END SUBROUTINE BALLOONS_INIT_POSITIONs
+END SUBROUTINE BALLOONS_INIT_POSITIONS
 !----------------------------------------------------------------------------
 !----------------------------------------------------------------------------
 SUBROUTINE BALLOONS_MOVE_TO_NEW_RANKS()
@@ -372,7 +372,7 @@ ISTORE_CUR = TPFLYER%TFLYER_TIME%N_CUR
 
 ! Determine size of data to send
 ! Characters, integers and logicals will be converted to reals. CMODEL and CTYPE will be coded by 1 real
-IPACKSIZE = 16 + LEN(TPFLYER%CTITLE) + ISTORE_CUR * ( 18 + NSV * 2 + IKU * ( 9 + NRR * 2 ) )
+IPACKSIZE = 16 + LEN(TPFLYER%CTITLE) + ISTORE_CUR * ( 18 + NRR + NSV * 2 + IKU * ( 9 + NRR ) )
 IF (  CCLOUD == 'LIMA' ) IPACKSIZE = IPACKSIZE + ISTORE_CUR * IKU * 2
 
 SELECT TYPE ( TPFLYER )
-- 
GitLab