From 9f4997554d7d7bff358740137b6f0132f87b82ad Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Wed, 2 Oct 2024 14:51:34 +0200
Subject: [PATCH] Philippe 02/10/2024: LFI2CDF: do not create .des files
---
src/LIB/SURCOUCHE/src/mode_io_file.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_file.f90 b/src/LIB/SURCOUCHE/src/mode_io_file.f90
index d65fd8235..2ae121fe4 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_file.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_file.f90
@@ -165,7 +165,7 @@ SELECT CASE(TPFILE%CTYPE)
!Associate a '.des' file if useful and not if is a "subfile" (tmainfile is associated)
IF ( ( TPFILE%CTYPE=='MNH' .OR. TPFILE%CTYPE=='MNHBACKUP' .OR. TPFILE%CTYPE=='MNHDIACHRONIC' ) &
- .and. .not.associated(tpfile%tmainfile) ) THEN
+ .and. .not.associated(tpfile%tmainfile) .and. cprogram/='LFICDF' ) THEN
!OOLD=T because the file may already be in the list
CALL IO_File_add2list(TZFILE_DES,TRIM(TPFILE%CNAME)//'.des','DES',TPFILE%CMODE,TPDATAFILE=TPFILE,OOLD=.TRUE.)
CALL IO_File_open(TZFILE_DES,HPROGRAM_ORIG=HPROGRAM_ORIG)
--
GitLab