From a4f5e2f19a6f099c708d45d0958297142ee4a64c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 6 Aug 2024 18:13:53 +0200
Subject: [PATCH] Quentin 06/08/2024: typo bugfix of commit 9364366a2
---
src/MNH/ini_modeln.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 738a9dcfe..42bf02412 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -791,9 +791,9 @@ IF (LMEAN_FIELD) THEN
ELSE
ALLOCATE(XTKEM_MEAN(0,0,0))
ALLOCATE(XTKEM_MAX(0,0,0))
- ALLOCATE(XTKEMAX_MAX(0,0,0))
- ALLOCATE(XTKE10MAX_MAX(0,0,0))
- ALLOCATE(XTKE20MAX_MAX(0,0,0))
+ ALLOCATE(XTKEMAX_MAX(0,0))
+ ALLOCATE(XTKE10MAX_MAX(0,0))
+ ALLOCATE(XTKE20MAX_MAX(0,0))
END IF
ALLOCATE(XPABSM_MEAN(IIU,IJU,IKU)) ; XPABSM_MEAN = 0.0
ALLOCATE(XQ_MEAN(IIU,IJU,IKU)) ; XQ_MEAN = 0.0
--
GitLab