From 50ab1ccdc63b4ff3179ce0daa7ba24e24a6f4be5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 26 Jan 2018 09:13:35 +0100
Subject: [PATCH] Philippe 26/01/2018: minor: use PRINT_MSG for 2 error
messages
---
src/LIB/SURCOUCHE/src/mode_fm.f90 | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 8cf959a71..7880b048a 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -327,9 +327,7 @@ IF (TPFILE%LMASTER) THEN
CALL PRINT_MSG(NVERB_DEBUG,'IO','FMOPEN_ll','NF90_OPEN for '//TRIM(YFILEM)//'.nc')
INCERR = NF90_OPEN(ADJUSTL(TRIM(YFILEM))//".nc", NF90_NOWRITE, TPFILE%NNCID)
IF (INCERR /= NF90_NOERR) THEN
- !PRINT *, 'FMOPEN_ll, NF90_OPEN error : ', NF90_STRERROR(INCERR)
- PRINT *, 'Error in opening (FMOPEN_ll/NF90_OPEN) ', TRIM(YFILEM)//'.nc', ' : ', NF90_STRERROR(INCERR)
- STOP
+ CALL PRINT_MSG(NVERB_FATAL,'IO','FMOPEN_ll','NF90_OPEN for '//TRIM(YFILEM)//'.nc: '//NF90_STRERROR(INCERR))
END IF
END IF
@@ -339,9 +337,7 @@ IF (TPFILE%LMASTER) THEN
INCERR = NF90_CREATE(ADJUSTL(TRIM(YFILEM))//".nc", &
&IOR(NF90_CLOBBER,NF90_NETCDF4), TPFILE%NNCID)
IF (INCERR /= NF90_NOERR) THEN
- !PRINT *, 'FMOPEN_ll, NF90_CREATE error : ', NF90_STRERROR(INCERR)
- PRINT *, 'Error in opening (FMOPEN_ll/NF90_CREATE) ', TRIM(YFILEM)//'.nc', ' : ', NF90_STRERROR(INCERR)
- STOP
+ CALL PRINT_MSG(NVERB_FATAL,'IO','FMOPEN_ll','NF90_CREATE for '//TRIM(YFILEM)//'.nc: '//NF90_STRERROR(INCERR))
END IF
CALL IO_SET_KNOWNDIMS_NC4(TPFILE)
CALL IO_WRITE_COORDVAR_NC4(TPFILE)
--
GitLab