From 362ad0b434df11e3bf607ed5c7e52a8cb763037c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 1 Apr 2022 09:54:02 +0200
Subject: [PATCH] Philippe 01/04/2022: bugfix: YAEROLONGNAMES allocation was
 made in a loop

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

diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90
index 1a9662857..b0064200d 100644
--- a/src/MNH/ini_nsv.f90
+++ b/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
-- 
GitLab