diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90 index 583b69f6cab3e443f39ddc9e87b88715d9b72ce8..89b59328e4d334dbe1398a3a073caa627f013d04 100644 --- a/src/MNH/read_exsegn.f90 +++ b/src/MNH/read_exsegn.f90 @@ -543,7 +543,7 @@ IF (KMI == 1) THEN IF (GFOUND) THEN CALL PRINT_MSG(NVERB_FATAL,'IO','READ_EXSEG_n','use namelist NAM_BACKUP instead of namelist NAM_FMOUT') ELSE - CALL PRINT_MSG(NVERB_ERROR,'IO','READ_EXSEG_n','namelist NAM_BACKUP not found') + IF (CPROGRAM=='MESONH') CALL PRINT_MSG(NVERB_ERROR,'IO','READ_EXSEG_n','namelist NAM_BACKUP not found') END IF END IF CALL POSNAM(ILUSEG,'NAM_OUTPUT',GFOUND,ILUOUT)