From f7f54ee96196d2cdec0de9e1354dbf4e9862a211 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 3 Feb 2023 13:46:21 +0100
Subject: [PATCH] Philippe 03/02/2023: bugfix: READ_VER_GRID: set correct size
if SAMEGR and no NKMAX in namelist
---
src/MNH/read_ver_grid.f90 | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/MNH/read_ver_grid.f90 b/src/MNH/read_ver_grid.f90
index 44665594e..fe77bede8 100644
--- a/src/MNH/read_ver_grid.f90
+++ b/src/MNH/read_ver_grid.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -215,7 +215,10 @@ SELECT CASE(YZGRID_TYPE)
!
CASE('SAMEGR')
IF (PRESENT(PZHAT) .AND. PRESENT(OSLEVE) .AND. PRESENT(PLEN1) .AND. PRESENT(PLEN2)) THEN
- IF (NKMAX_n==0) NKMAX_n=SIZE(PZHAT)-2*JPVEXT
+ IF (NKMAX_n==0) THEN
+ NKMAX_n=SIZE(PZHAT)-2*JPVEXT
+ IKU = SIZE(PZHAT)
+ END IF
ALLOCATE( XZHAT (IKU) )
ALLOCATE( XZHATM(IKU) )
--
GitLab