From 2239bae6980a2f425722552d405ff94340a9f2a4 Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Fri, 26 Jan 2018 10:19:38 +0100
Subject: [PATCH] Gaelle 26/01/2018 SURFEX V8.1
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index 06e981263..de1714687 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -437,7 +437,15 @@ CONTAINS
#else
#if defined(MNH_SX5) || defined(MNH_SP4) || defined(NAGf95) || defined(MNH_LINUX)
!JUAN : 31/03/2000 modif pour acces direct
- IF (YACCESS=='DIRECT') THEN
+ IF (YACCESS=='STREAM') THEN
+ OPEN(UNIT=TZFD%FLU, &
+ FILE=TRIM(TZFD%NAME),&
+ STATUS=YSTATUS, &
+ ACCESS=YACCESS, &
+ IOSTAT=IOS, &
+ FORM=YFORM, &
+ ACTION=YACTION)
+ ELSEIF (YACCESS=='DIRECT') THEN
OPEN(UNIT=TZFD%FLU, &
FILE=TRIM(TZFD%NAME),&
STATUS=YSTATUS, &
--
GitLab