From 26708cee91da6690f11bd0e8b1efbd2cb1cc9607 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 11 Jul 2024 09:31:24 +0200
Subject: [PATCH] Philippe 11/07/2024: bugfix: reset CCPLFILE before reading it
again
---
src/MNH/ini_segn.f90 | 3 ++-
src/MNH/read_exsegn.f90 | 1 +
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index 1be7ab863..7ba8aaf33 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -461,7 +461,8 @@ CALL READ_EXSEG_n(KMI,TZFILE_DES,YCONF,GFLAT,GUSERV,GUSERC, &
!
IF (CPROGRAM=='SPAWN ' .OR. CPROGRAM=='DIAG ' .OR. CPROGRAM=='SPEC ' &
.OR. CPROGRAM=='REAL ') THEN
- CINIFILE_n = YINIFILE
+ CINIFILE_n = YINIFILE
+ CCPLFILE(:) = ''
NMODEL=1
LSTEADYLS=.TRUE.
END IF
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index d1b6a37b8..1dfbb9ba1 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -523,6 +523,7 @@ CALL INIT_NAM_FIREn
!
WRITE(UNIT=ILUOUT,FMT="(/,'READING THE EXSEG.NAM FILE')")
CALL POSNAM( TPEXSEGFILE, 'NAM_LUNITN', GFOUND )
+CCPLFILE(:) = ''
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_LUNITn)
CALL POSNAM( TPEXSEGFILE, 'NAM_CONFN', GFOUND )
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_CONFn)
--
GitLab