Changeset 887 for palm

Timestamp:

Apr 20, 2012 2:47:14 PM (13 years ago)

Author:

raasch

Message:

test: unit 14 (BINOUT) is opened without APPEND feature)

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Test: append feature removed from unit 14
 !
 ! Former revisions:
@@ -253 +253 @@
 #endif
              OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, &
-                        FORM='UNFORMATTED', POSITION='APPEND' )
+                        FORM='UNFORMATTED' )
           ENDIF