diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90 index 1a96628570ad504132e94d20ee2316ca22055080..b0064200d8510f54ab81976a362cb09445185c6b 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