Skip to content
Snippets Groups Projects
Commit 2239bae6 authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

Gaelle 26/01/2018 SURFEX V8.1

parent a7fd8349
No related branches found
No related tags found
No related merge requests found
......@@ -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, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment