From 906f26d7c1c0480c0d234450f92a21d1d1ba16a7 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 22 Jul 2021 14:16:13 +0200
Subject: [PATCH] Philippe 22/07/2021: bugfix: replace OUTPUT by MNHOUTPUT for
filetype
---
src/LIB/SURCOUCHE/src/mode_io_file.f90 | 2 +-
src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_file.f90 b/src/LIB/SURCOUCHE/src/mode_io_file.f90
index c78973780..e269accf0 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_file.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_file.f90
@@ -555,7 +555,7 @@ SELECT CASE(TPFILE%CTYPE)
!Remark: 'MNH' is more general than MNHBACKUP and could be in fact a MNHBACKUP file
CASE ('MNH', 'MNHBACKUP', 'MNHDIACHRONIC', 'MNHDIAG', 'MNHOUTPUT', 'PGD')
!Do not close (non-existing) '.des' file if OUTPUT
- IF(TPFILE%CTYPE/='OUTPUT' .AND. CPROGRAM/='LFICDF') THEN
+ IF(TPFILE%CTYPE/='MNHOUTPUT' .AND. CPROGRAM/='LFICDF') THEN
CALL IO_File_find_byname(TRIM(TPFILE%CNAME)//'.des',TZFILE_DES,IRESP)
IF (IRESP/=0) CALL PRINT_MSG(NVERB_ERROR,'IO','IO_File_close','file '//TRIM(TPFILE%CNAME)//'.des not in filelist')
CALL IO_File_close(TZFILE_DES,KRESP=IRESP,HPROGRAM_ORIG=HPROGRAM_ORIG)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 6329b59e7..f7954781f 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -959,7 +959,7 @@ SELECT CASE(TPFILE%CTYPE)
TPFILE%NLFITYPE = ILFITYPE
TPFILE%NLFIVERB = ILFIVERB
!
- IF (TRIM(HTYPE)=='OUTPUT') THEN
+ IF (TRIM(HTYPE)=='MNHOUTPUT') THEN
TPFILE%LNCREDUCE_FLOAT_PRECISION = LOUT_REDUCE_FLOAT_PRECISION(IMI)
TPFILE%LNCCOMPRESS = LOUT_COMPRESS(IMI)
TPFILE%NNCCOMPRESS_LEVEL = NOUT_COMPRESS_LEVEL(IMI)
--
GitLab