Skip to content
Snippets Groups Projects
Commit db3dc772 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 03/05/2018: IO: bugfix: check if NAM_BACKUP is present only for MESONH

parent 4984995a
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment