From 254a75843f68526efaa60d415219171b6021bffc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 13 Feb 2019 12:34:03 +0100
Subject: [PATCH] Philippe 13/02/2019: initialize PLBXSVM and PLBYSVM in all
cases
---
src/MNH/ini_lb.f90 | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index eb93466cf..087ffad67 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -132,6 +132,7 @@ SUBROUTINE INI_LB(TPINIFILE,OLSOURCE,KSV, &
!! J.-P. Pinty 09/02/16 Add LIMA that is LBC for CCN and IFN
!! M.Leriche 09/02/16 Treat gas and aq. chemicals separately
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! P. Wautelet 13/02/2019: initialize PLBXSVM and PLBYSVM in all cases
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -469,7 +470,10 @@ END IF
!
!* 2.6 LB-Scalar Variables
!
-IF (KSV > 0) THEN
+PLBXSVM(:,:,:,:) = 0.
+PLBYSVM(:,:,:,:) = 0.
+!
+IF (KSV > 0) THEN
IF (ANY(HGETSVM(1:KSV)=='READ')) THEN
TZFIELD%CMNHNAME = 'HORELAX_SV'
TZFIELD%CSTDNAME = ''
--
GitLab