diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90 index 1be7ab86393f02388da6b08e37de5c80dbec0ab1..7ba8aaf33c404f1501ac1749980e7e1152eadec5 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 d1b6a37b8ce3633e3d5087be668130fcd6212c66..1dfbb9ba186ca573240718a2d501f03dd6034a6b 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)