From db3dc772f3ac38a8cc7bc15c17083bf1d48fd6b2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 3 May 2018 11:30:59 +0200
Subject: [PATCH] Philippe 03/05/2018: IO: bugfix: check if NAM_BACKUP is
present only for MESONH
---
src/MNH/read_exsegn.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index 583b69f6c..89b59328e 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)
--
GitLab