From d2744e8a5800840e3006cd75611183f8bc466718 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 24 May 2018 16:31:35 +0200
Subject: [PATCH] Philippe 24/05/2018: NEWLFI: initialize CLACTI variable
(detected with valgrind)
---
src/LIB/NEWLFI/src/NEWLFI_ALL.f | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/LIB/NEWLFI/src/NEWLFI_ALL.f b/src/LIB/NEWLFI/src/NEWLFI_ALL.f
index 2daebeafb..5354d0493 100644
--- a/src/LIB/NEWLFI/src/NEWLFI_ALL.f
+++ b/src/LIB/NEWLFI/src/NEWLFI_ALL.f
@@ -3037,6 +3037,8 @@ C
LOGICAL LLSTTU, LLVERF, LLVERG, LLECRD, LLIMST
C
#include "lficom2.h"
+C
+ CLACTI=''
C**
C 1. - CONTROLES DES PARAMETRES D'APPEL, PUIS INITIALISATIONS.
C-----------------------------------------------------------------------
--
GitLab