diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90
index 641a6020f793e4eb8e065a73445a6b8d3db06f22..35bf35b9affda53a7d54c5437c516397d42c8637 100644
--- a/src/MNH/diag.f90
+++ b/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)
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index 7d27a7b7490a01db206e15af192761c85bb2e175..1bbe26ecb894e34c1c89dde21fe674c6bae779ee 100644
--- a/src/MNH/prep_real_case.f90
+++ b/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()
 !
diff --git a/src/MNH/spectre.f90 b/src/MNH/spectre.f90
index cb1fed0735efff9735acf6707f6a925c15c3b7a3..ef3367cdc9e0a60eb485978090a64bc2b1302db1 100644
--- a/src/MNH/spectre.f90
+++ b/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
+