Philippe 25/05/2018: IO: remove unused 'pipe_name' file

src/LIB/SURCOUCHE/src/mode_fm.f90

@@ -19,9 +19,6 @@ IMPLICIT NONE
 
 PRIVATE 
 
-INTEGER, PARAMETER :: JPPIPE = 10
-!INCLUDE 'mpif.h'
-
 PUBLIC SET_FMPACK_ll
 PUBLIC IO_FILE_OPEN_ll, IO_FILE_CLOSE_ll
 
@@ -244,7 +241,6 @@ CHARACTER(LEN=7)        :: YACTION ! Action upon the file ('READ' or 'WRITE')
 CHARACTER(LEN=:),ALLOCATABLE :: YFILEM  ! name of the file
 CHARACTER(LEN=8)        :: YRESP
 LOGICAL                 :: GSTATS
-LOGICAL, SAVE           :: GSFIRST=.TRUE.
 LOGICAL :: GNAMFI,GFATER,GNEWFI
 INTEGER :: IERR
 !JUAN
@@ -325,11 +321,6 @@ IF (IRESP /= 0) GOTO 1000
 
 IF (TPFILE%LMASTER) THEN
   ! Proc I/O case
-  IF (GSFIRST) THEN
-    GSFIRST = .FALSE.
-    OPEN(UNIT=JPPIPE,FILE='pipe_name',FORM='FORMATTED')
-  END IF
-
 #if defined(MNH_IOCDF4)
   IF (TPFILE%CFORMAT=='NETCDF4' .OR. TPFILE%CFORMAT=='LFICDF4') THEN
      IF (YACTION == 'READ') THEN