From b402fa7f164ad0932c1b0878d9eadee775b6f8ed Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 19 Apr 2016 08:22:38 +0000
Subject: [PATCH] Juan 19/04/2016 : return error<>0 when open file modified &
no closed
---
src/LIB/SURCOUCHE/src/mode_fm.f90 | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 6e9898686..0c3c8fa3b 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -128,6 +128,12 @@ END SUBROUTINE FMLOOK_ll
SUBROUTINE FMOPEN_ll(HFILEM,HACTION,HFIPRI,KNPRAR,KFTYPE,KVERB,KNINAR&
& ,KRESP,OPARALLELIO)
+!-------------------------------------------------------------------------------
+!! MODIFICATIONS
+!! -------------
+!! J.escobar 19/04/2016 , return error<>0 when open file modified & no closed
+!!
+!-------------------------------------------------------------------------------
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
@@ -300,7 +306,8 @@ IF (ISP == TZFDLFI%OWNER) THEN
ININAR8)
KNINAR = ININAR8
- IF (IRESOU /= 0 .AND. IRESOU /= -11) THEN
+!!$ IF (IRESOU /= 0 .AND. IRESOU /= -11) THEN
+ IF (IRESOU /= 0 ) THEN
IRESP = IRESOU
ENDIF
END IF
--
GitLab