Philippe 01/04/2022: bugfix: YAEROLONGNAMES allocation was made in a loop

src/MNH/ini_nsv.f90

@@ -460,6 +460,8 @@ IF (LORILAM.AND.(NEQ .GT. 0)) THEN
   NSV_AEREND_A(KMI)= ISV+NSV_AER_A(KMI)
   ISV              = NSV_AEREND_A(KMI)
   NSV_CHEM_LIST_A(KMI) = NSV_CHEM_LIST_A(KMI) + NSV_AER_A(KMI)
+
+  ALLOCATE( YAEROLONGNAMES(NSV_AER_A(KMI)) )
 ELSE
   NSV_AER_A(KMI)   = 0
 ! force First index to be superior to last index
@@ -1069,8 +1071,6 @@ DO JSV = NSV_AERBEG_A(KMI), NSV_AEREND_A(KMI)
 
   WRITE( YNUM3, '( I3.3 )' ) JSV
 
-  ALLOCATE( YAEROLONGNAMES(NSV_AER_A(KMI)) )
-
   !Determine moment to add meaning of the ppv unit
   JAER = JSV - NSV_AERBEG_A(KMI) + 1
   IF ( ANY( JAER == [JP_CH_M0i, JP_CH_M0j] ) ) THEN