diff --git a/src/MNH/one_wayn.f90 b/src/MNH/one_wayn.f90
index aa78ac7811a3b9a60b93f245969f9da744894efe..1d95c3ff3fec948eb0d396ef30a2c5b2e06c3a10 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
 !