Juan 22/05/2017:mode_fm.f90, add stop if READ file not found
authorJuan Escobar <escj@aero.obs-mip.fr>
Mon, 22 May 2017 07:58:54 +0000 (09:58 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Mon, 22 May 2017 08:01:36 +0000 (10:01 +0200)
(cherry picked from commit e175a9e02326daa457c9b1d1ec4ec962b587da00)

src/LIB/SURCOUCHE/src/mode_fm.f90

index 112f195..93ee0cd 100644 (file)
@@ -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