From 2e5cf480ba509c81eda2e67d930bf94b4d6aeddc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 14 Jun 2016 12:03:18 +0200
Subject: [PATCH] Juan 14/06/2016: bug corrections: unitialized variables
(cherry picked from commit f7d3e2dfdcf6b3c7cefbd7c6fe5732a87dd2cdd5)
---
src/LIB/NEWLFI/src/NEWLFI_ALL.f | 3 +++
src/MNH/modd_conf.f90 | 2 +-
2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/LIB/NEWLFI/src/NEWLFI_ALL.f b/src/LIB/NEWLFI/src/NEWLFI_ALL.f
index 3ce0beb2f..2daebeafb 100644
--- a/src/LIB/NEWLFI/src/NEWLFI_ALL.f
+++ b/src/LIB/NEWLFI/src/NEWLFI_ALL.f
@@ -6737,6 +6737,9 @@ C
IRANMS=0
INBARI=0
LLVERG=.FALSE.
+CJUAN
+ CLACTI='UNKNOWN'
+
C
C Appel legerement anticipe a LFINUM, permettant une initialisa-
C tion des variables globales du logiciel a la 1ere utilisation.
diff --git a/src/MNH/modd_conf.f90 b/src/MNH/modd_conf.f90
index 24c36a3c1..0e793ac08 100644
--- a/src/MNH/modd_conf.f90
+++ b/src/MNH/modd_conf.f90
@@ -67,7 +67,7 @@ LOGICAL,SAVE :: LTHINSHELL ! Logical for thinshell approximation
LOGICAL,SAVE :: LCARTESIAN ! Logical for cartesian geometry :
! .TRUE. = cartesian geometry
! .FALSE. = conformal projection
-LOGICAL,SAVE :: L2D ! Logical for 2D model version
+LOGICAL,SAVE :: L2D = .FALSE. ! Logical for 2D model version
! .TRUE. = 2D model version
! .FALSE. = 3D model version
LOGICAL,SAVE :: L1D ! Logical for 1D model version
--
GitLab