From 9317dffe322cfbf9539bc643d07eb2a79255ff9b Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 23 May 2018 17:25:34 +0200 Subject: [PATCH] Philippe 23/05/2018: IO: close files that where previously opened --- src/MNH/diag.f90 | 2 ++ src/MNH/prep_real_case.f90 | 1 + src/MNH/spectre.f90 | 9 ++++++--- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90 index 641a6020f..35bf35b9a 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 7d27a7b74..1bbe26ecb 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 cb1fed073..ef3367cdc 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 + -- GitLab