diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90 index ca2f7047ab9bb419fb5afe656a1caf8092bbfd41..c469bd5d4a7cfd62ab8afdd1901ce098521d0c30 100644 --- a/src/MNH/read_exsegn.f90 +++ b/src/MNH/read_exsegn.f90 @@ -855,7 +855,7 @@ IF (KMI == 1) THEN IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_FLYERS) IF ( NAIRCRAFTS > 0 ) THEN - CALL AIRCRAFTS_NML_ALLOCATE( NBALLOONS ) + CALL AIRCRAFTS_NML_ALLOCATE( NAIRCRAFTS ) CALL POSNAM(ILUSEG,'NAM_AIRCRAFTS',GFOUND,ILUOUT) IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_AIRCRAFTS) END IF