Philippe 29/01/2016: added default value for YLUOUT filename (minor bug seen by valgrind)
authorPhilippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Fri, 29 Jan 2016 13:32:12 +0000 (13:32 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/close_file_mnh.f90

index 7815d41..d0ff7a4 100644 (file)
@@ -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
 !
 !-------------------------------------------------------------------------------