Philippe 23/05/2018: IO: close files that where previously opened

src/MNH/diag.f90

@@ -753,6 +753,8 @@ IF (GCLOSE_OUT) THEN
   CALL IO_FILE_CLOSE_ll(TOUTDATAFILE)
 END IF
 !
+CALL IO_FILE_CLOSE_ll(TINIFILE)
+IF (LEN_TRIM(CINIFILEPGD)>0) CALL IO_FILE_CLOSE_ll(TINIFILEPGD)
 CALL IO_FILE_CLOSE_ll(TLUOUT)
 !
 CALL SECOND_MNH2(ZTIME2)

src/MNH/prep_real_case.f90

@@ -1180,6 +1180,7 @@ END IF
 !-------------------------------------------------------------------------------
 !
 CALL IO_FILE_CLOSE_ll(TINIFILE)
+CALL IO_FILE_CLOSE_ll(TPGDFILE)
 !
 IF(NIO_VERB>=NVERB_DEBUG) CALL IO_FILE_PRINT_LIST()
 !

src/MNH/spectre.f90

@@ -187,13 +187,17 @@ ENDIF
 !
 IF (CTYPEFILE=='MESONH') THEN
   CALL SPECTRE_MESONH(YOUTFILE)
-  CALL IO_FILE_CLOSE_ll(TLUOUT)
+  !
+  CALL IO_FILE_CLOSE_ll(LUNIT_MODEL(1)%TINIFILE)
+  IF(NIO_VERB>=NVERB_DEBUG) CALL IO_FILE_PRINT_LIST()
   CALL IO_FILE_CLOSE_ll(TLUOUT0)
+  CALL IO_FILE_CLOSE_ll(TLUOUT)
 ELSEIF (CTYPEFILE=='AROME ')THEN
  CALL SPECTRE_AROME(CINIFILE,YOUTFILE,XDELTAX,XDELTAY,NI,NJ,NK)
 ELSE
   print*,"This type of file is not accept for SPECTRE PROGRAM"
 ENDIF
+!
 !-------------------------------------------------------------------------------
 !
 !*      4.    FINALIZE THE PARALLEL SESSION
@@ -201,8 +205,6 @@ ENDIF
 !
 CALL END_PARA_ll(IINFO_ll)
 !
-IF(NIO_VERB>=NVERB_DEBUG) CALL IO_FILE_PRINT_LIST()
-!
 PRINT*, ' '
 PRINT*, '****************************************************'
 PRINT*, '*            EXIT  SPECTRE CORRECTLY          *'
@@ -210,3 +212,4 @@ PRINT*, '****************************************************'
 PRINT*, ' '
 !-------------------------------------------------------------------------------
 END PROGRAM SPECTRE
+