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

---
 src/MNH/ini_spawn_lsn.f90 | 32 ++++++++++++++++++++++++++++----
 1 file changed, 28 insertions(+), 4 deletions(-)

diff --git a/src/MNH/ini_spawn_lsn.f90 b/src/MNH/ini_spawn_lsn.f90
index 7a291f256..d8cce9d4b 100644
--- a/src/MNH/ini_spawn_lsn.f90
+++ b/src/MNH/ini_spawn_lsn.f90
@@ -262,13 +262,27 @@ GVERT_INTERP = .TRUE.
 ALLOCATE(ZTLSUM(IDIMX,IDIMY,SIZE(PLSUM,3)))
 ALLOCATE(ZTLSVM(IDIMX,IDIMY,SIZE(PLSVM,3)))
 ALLOCATE(ZTLSWM(IDIMX,IDIMY,SIZE(PLSWM,3)))
+ZTLSUM(:,:,:) = 0.
+ZTLSVM(:,:,:) = 0.
+ZTLSWM(:,:,:) = 0.
+
 ALLOCATE(ZTLSTHM(IDIMX,IDIMY,SIZE(PLSTHM,3)))
-IF(SIZE(PLSZWSM) /= 0) ALLOCATE(ZTZWS(IDIMX,IDIMY))
-IF(SIZE(PLSRVM) /= 0) ALLOCATE(ZTLSRVM(IDIMX,IDIMY,SIZE(PLSRVM,3)))
+ZTLSTHM(:,:,:) = 0.
+
+IF(SIZE(PLSZWSM) /= 0) THEN
+  ALLOCATE(ZTZWS(IDIMX,IDIMY))
+  ZTZWS(:,:) = 0.
+END IF
+IF(SIZE(PLSRVM) /= 0) THEN
+  ALLOCATE(ZTLSRVM(IDIMX,IDIMY,SIZE(PLSRVM,3)))
+  ZTLSRVM(:,:,:) = 0.
+END IF
 !
 IF(GVERT_INTERP) THEN
   ALLOCATE(ZTZS(IDIMX,IDIMY,1))
+  ZTZS(:,:,:) = 0.
   ALLOCATE(ZTZSMT(IDIMX,IDIMY,1))
+  ZTZSMT(:,:,:) = 0.
   ALLOCATE(ZZS(SIZE(XZS,1),SIZE(XZS,2),1))
   ZZS(:,:,1)=XZS(:,:)
   ALLOCATE(ZZSMT(SIZE(XZS,1),SIZE(XZS,2),1))
@@ -280,9 +294,19 @@ IF ( SIZE(PLSTHS,1) /= 0 ) THEN
   ALLOCATE(ZTLSVS(IDIMX,IDIMY,SIZE(PLSVS,3)))
   ALLOCATE(ZTLSWS(IDIMX,IDIMY,SIZE(PLSWS,3)))
   ALLOCATE(ZTLSTHS(IDIMX,IDIMY,SIZE(PLSTHS,3)))
+  ZTLSUS(:,:,:)  = 0.
+  ZTLSVS(:,:,:)  = 0.
+  ZTLSWS(:,:,:)  = 0.
+  ZTLSTHS(:,:,:) = 0.
 ENDIF
-IF ( SIZE(PLSZWSS) /= 0 ) ALLOCATE(ZTZWSS(IDIMX,IDIMY))
-IF ( SIZE(PLSRVS) /= 0 ) ALLOCATE(ZTLSRVS(IDIMX,IDIMY,SIZE(PLSRVS,3)))
+IF ( SIZE(PLSZWSS) /= 0 ) THEN
+  ALLOCATE(ZTZWSS(IDIMX,IDIMY))
+  ZTZWSS(:,:) = 0.
+END IF
+IF ( SIZE(PLSRVS) /= 0 ) THEN
+  ALLOCATE(ZTLSRVS(IDIMX,IDIMY,SIZE(PLSRVS,3)))
+  ZTLSRVS(:,:,:) = 0.
+END IF
 !
 !         1.3  Specify the ls "source" fields and receiver fields
 !
-- 
GitLab