From eaafae55cc327e38998911740bac6b31b8f89c82 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 7 Feb 2023 10:18:54 +0100
Subject: [PATCH] Philippe 07/02/2023: bugfix for YSALTLONGNAMES allocation
---
src/MNH/ini_nsv.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90
index 31def2079..0f456adce 100644
--- a/src/MNH/ini_nsv.f90
+++ b/src/MNH/ini_nsv.f90
@@ -816,7 +816,7 @@ IF ( LSALT ) THEN
IF( .NOT. ALLOCATED( CSALTNAMES ) ) THEN
ALLOCATE( CSALTNAMES(NSV_SLT_A(KMI)) )
- ALLOCATE( YSALTLONGNAMES(NSV_DST_A(KMI)) )
+ ALLOCATE( YSALTLONGNAMES(NSV_SLT_A(KMI)) )
!Loop on all dust modes
IF ( INMOMENTS_SLT == 1 ) THEN
DO JMODE = 1, NMODE_SLT
--
GitLab