From 2742692523a67bcbb8fd811ea9ce43f0ac8d45aa Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 29 Jan 2016 13:35:49 +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 +-
src/MNH/mnhget_desfmn.f90 | 2 ++
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/close_file_mnh.f90 b/src/MNH/close_file_mnh.f90
index d0ff7a49b..39c99465d 100644
--- a/src/MNH/close_file_mnh.f90
+++ b/src/MNH/close_file_mnh.f90
@@ -90,7 +90,7 @@ SELECT CASE(CPROGRAM)
CASE('MESONH','SPAWN ')
CALL GET_MODEL_NUMBER_ll (IMI)
WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' '
- CASE DEFAUT
+ CASE DEFAULT
YLUOUT = ''
END SELECT
!
diff --git a/src/MNH/mnhget_desfmn.f90 b/src/MNH/mnhget_desfmn.f90
index dac0daae7..e282ced5b 100644
--- a/src/MNH/mnhget_desfmn.f90
+++ b/src/MNH/mnhget_desfmn.f90
@@ -97,6 +97,8 @@ SELECT CASE(CPROGRAM)
CASE('MESONH','SPAWN ')
IMI = GET_CURRENT_MODEL_INDEX()
WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' '
+ CASE DEFAULT
+ YLUOUT = ''
END SELECT
!
CALL FMLOOK_ll(YLUOUT,YLUOUT,ILUOUT,IRESP)
--
GitLab