From e175a9e02326daa457c9b1d1ec4ec962b587da00 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Mon, 22 May 2017 09:58:54 +0200
Subject: [PATCH] Juan 22/05/2017:mode_fm.f90, add stop if READ file not found
---
src/LIB/SURCOUCHE/src/mode_fm.f90 | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 112f1959d..93ee0cd79 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -130,6 +130,12 @@ END SUBROUTINE FMLOOK_ll
SUBROUTINE FMOPEN_ll(HFILEM,HACTION,HFIPRI,KNPRAR,KFTYPE,KVERB,KNINAR&
& ,KRESP,OPARALLELIO)
+!
+!! MODIFICATIONS
+!! -------------
+!
+!! J.Escobar 22/05/2017 : add stop if READ file not found
+!-------------------------------------------------------------------------------
USE MODD_IO_ll, ONLY : ISP,ISTDOUT,LFIPARAM,LIOCDF4,LLFIOUT,LLFIREAD
USE MODE_FD_ll, ONLY : FD_ll,GETFD,JPFINL
USE MODE_IO_ll, ONLY : OPEN_ll,GCONFIO
@@ -333,6 +339,11 @@ CALL MPI_BCAST(KNINAR,1,MPI_INTEGER,TZFDLFI%OWNER-1,TZFDLFI%COMM,IERR)
IF (IRESP.NE.0) CALL FM_ERR('FMOPEN_ll',HFIPRI,HFILEM,IRESP)
+IF ( (IRESP.NE.0) .AND. ( HACTION == 'READ' ) ) THEN
+ PRINT*," /!\ FMOPEN_ll :: FATAL PROBLEM OPENING INPUT/READ FILES =", HFILEM
+ STOP '/!\ FMOPEN_ll :: FATAL PROBLEM OPENING INPUT/READ FILES , CHECK OUTPUT_LISTING* !!!'
+ENDIF
+
KRESP=IRESP
RETURN
--
GitLab