Skip to content

Commit 037b762

Browse files
authored
Changing access argument in ww3_outp to support cray compiler (#1463)
1 parent a55d642 commit 037b762

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

model/src/ww3_outp.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -967,10 +967,10 @@ PROGRAM W3OUTP
967967
J = LEN_TRIM(FNMPRE)
968968
IF (FLFORM) THEN
969969
OPEN(NDSTAB, FILE=TRIM(TFNAME), STATUS='OLD', &
970-
IOSTAT=IERR, FORM='UNFORMATTED', ACCESS='APPEND')
970+
IOSTAT=IERR, FORM='UNFORMATTED', ACCESS='SEQUENTIAL', POSITION='APPEND')
971971
ELSE
972972
OPEN(NDSTAB, FILE=TRIM(TFNAME), STATUS='OLD', &
973-
IOSTAT=IERR, FORM='FORMATTED', ACCESS='APPEND')
973+
IOSTAT=IERR, FORM='FORMATTED', ACCESS='SEQUENTIAL', POSITION='APPEND')
974974
END IF
975975

976976
PROCESS_POINT_ONLY = .TRUE.

0 commit comments

Comments
 (0)