Philippe 27/06/2024: ini_spawn_lsn: add missing initialisations

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
 !