Skip to content
Snippets Groups Projects
Commit b402fa7f authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 19/04/2016 : return error<>0 when open file modified & no closed

parent cc43bcf0
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/LIB/SURCOUCHE/src/mode_fm.f90
+ 8
− 1
View file @ b402fa7f
...@@ -128,6 +128,12 @@ END SUBROUTINE FMLOOK_ll ...@@ -128,6 +128,12 @@ END SUBROUTINE FMLOOK_ll
SUBROUTINE FMOPEN_ll(HFILEM,HACTION,HFIPRI,KNPRAR,KFTYPE,KVERB,KNINAR& SUBROUTINE FMOPEN_ll(HFILEM,HACTION,HFIPRI,KNPRAR,KFTYPE,KVERB,KNINAR&
& ,KRESP,OPARALLELIO) & ,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 MODD_IO_ll, ONLY : ISP,ISTDOUT,LFIPARAM,LIOCDF4,LLFIOUT,LLFIREAD
USE MODE_FD_ll, ONLY : FD_ll,GETFD,JPFINL USE MODE_FD_ll, ONLY : FD_ll,GETFD,JPFINL
USE MODE_IO_ll, ONLY : OPEN_ll,GCONFIO USE MODE_IO_ll, ONLY : OPEN_ll,GCONFIO
...@@ -300,7 +306,8 @@ IF (ISP == TZFDLFI%OWNER) THEN ...@@ -300,7 +306,8 @@ IF (ISP == TZFDLFI%OWNER) THEN
ININAR8) ININAR8)
KNINAR = ININAR8 KNINAR = ININAR8
IF (IRESOU /= 0 .AND. IRESOU /= -11) THEN !!$ IF (IRESOU /= 0 .AND. IRESOU /= -11) THEN
IF (IRESOU /= 0 ) THEN
IRESP = IRESOU IRESP = IRESOU
ENDIF ENDIF
END IF END IF
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme