From 5fc5c53d4c29905aa3083107328b2f646a8dd294 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 25 May 2018 10:34:14 +0200
Subject: [PATCH] Philippe 25/05/2018: IO: remove unused 'pipe_name' file
---
src/LIB/SURCOUCHE/src/mode_fm.f90 | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 6a47642fa..2092da2a5 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/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
--
GitLab