Juan 19/04/2016 : return error<>0 when open file modified & no closed
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 19 Apr 2016 08:22:38 +0000 (08:22 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/LIB/SURCOUCHE/src/mode_fm.f90

index 6e98986..0c3c8fa 100644 (file)
@@ -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