diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90 index 06e981263ae60c6c8d825a95ba5b89485c810ca9..de17146871528579781d1759b49ce7052d943f55 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, &