From 7ce62ea4ffb76ac5ebec695b435222d61b63f07d Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 29 Jan 2016 13:32:12 +0000
Subject: [PATCH] Philippe 29/01/2016: added default value for YLUOUT filename
(minor bug seen by valgrind)
---
src/MNH/close_file_mnh.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/close_file_mnh.f90 b/src/MNH/close_file_mnh.f90
index 7815d4168..d0ff7a49b 100644
--- a/src/MNH/close_file_mnh.f90
+++ b/src/MNH/close_file_mnh.f90
@@ -90,6 +90,8 @@ SELECT CASE(CPROGRAM)
CASE('MESONH','SPAWN ')
CALL GET_MODEL_NUMBER_ll (IMI)
WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' '
+ CASE DEFAUT
+ YLUOUT = ''
END SELECT
!
!-------------------------------------------------------------------------------
--
GitLab