From f1f9ddc981075362bd7969b599686d9f7a9de35b Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Tue, 30 Jan 2018 14:16:20 +0100 Subject: [PATCH] Philippe 30/01/2018: IO: IO_FILE_FIND_BYNAME: bug correction in use of OOLD optional argument --- src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index 48727cbf3..a58b00024 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 @@ -824,6 +824,7 @@ CHARACTER(LEN=*), INTENT(IN) :: HNAME ! Name of the file to find TYPE(TFILEDATA),POINTER,INTENT(OUT) :: TPFILE ! File structure to return INTEGER, INTENT(OUT) :: KRESP ! Return value LOGICAL, OPTIONAL, INTENT(IN) :: OOLD ! FALSE if new file (should not be found) + ! TRUE if file may be in the list ! TYPE(TFILEDATA),POINTER :: TZFILE ! File structure LOGICAL :: GOLD @@ -859,11 +860,15 @@ ELSE END IF ! IF (.NOT.ASSOCIATED(TPFILE)) THEN - IF (GOLD) CALL PRINT_MSG(NVERB_WARNING,'IO','IO_FILE_FIND_BYNAME','file '//TRIM(HNAME)//' not found in list') + CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_FILE_FIND_BYNAME','file '//TRIM(HNAME)//' not found in list') KRESP = -1 !File not found ELSE - CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_FILE_FIND_BYNAME',TRIM(HNAME)//' was found') -END IF + IF (GOLD) THEN + CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_FILE_FIND_BYNAME',TRIM(HNAME)//' was found') + ELSE !File should not be found + CALL PRINT_MSG(NVERB_ERROR,'IO','IO_FILE_FIND_BYNAME',TRIM(HNAME)//' was found (unexpected)') + END IF +END IF ! END SUBROUTINE IO_FILE_FIND_BYNAME ! -- GitLab