From 2a4dc520a469d6e49de3aeb11178c0c9e9d58c53 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 27 Jun 2024 09:04:00 +0200
Subject: [PATCH] Philippe 27/06/2024: one_wayn: add missing initialisations

---
 src/MNH/one_wayn.f90 | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/src/MNH/one_wayn.f90 b/src/MNH/one_wayn.f90
index aa78ac781..1d95c3ff3 100644
--- a/src/MNH/one_wayn.f90
+++ b/src/MNH/one_wayn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1996-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1996-2024 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.
@@ -352,9 +352,19 @@ ZTWT(:,:,:)=0
 
 ALLOCATE(ZTTHT(IDIMX,IDIMY,SIZE(XTHT,3)))
 ZTTHT(:,:,:)=0
-IF (SIZE(XTKET) /= 0) ALLOCATE(ZTTKET(IDIMX,IDIMY,SIZE(XTKET,3)))
-IF (IRR /= 0) ALLOCATE(ZTRT(IDIMX,IDIMY,SIZE(XRT,3),IRR))
-IF (NSV_A(KMI)/= 0) ALLOCATE(ZTSVT(IDIMX,IDIMY,SIZE(XSVT,3),NSV_A(KMI)))
+IF (SIZE(XTKET) /= 0) THEN
+  ALLOCATE(ZTTKET(IDIMX,IDIMY,SIZE(XTKET,3)))
+  ZTTKET(:,:,:) = 0.
+END IF
+
+IF (IRR /= 0) THEN
+  ALLOCATE(ZTRT(IDIMX,IDIMY,SIZE(XRT,3),IRR))
+  ZTRT(:,:,:,:) = 0.
+END IF
+IF (NSV_A(KMI)/= 0) THEN
+  ALLOCATE(ZTSVT(IDIMX,IDIMY,SIZE(XSVT,3),NSV_A(KMI)))
+  ZTSVT(:,:,:,:) = 0.
+END IF
 !
 !         1.3  Specify the ls "source" fields and receiver fields
 !
-- 
GitLab