Changeset 146 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Jan 17, 2008 1:08:34 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r143 r146 5 5 ! ----------------- 6 6 ! First opening of unit 13 openes file _0000 on all PEs (parallel version) 7 ! because only this file contains the global variables 7 ! because only this file contains the global variables, 8 ! myid_char_14 removed 8 9 ! 9 10 ! Former revisions: … … 191 192 CALL MPI_BARRIER( comm2d, ierr ) 192 193 #endif 193 OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char _14, &194 OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, & 194 195 FORM='UNFORMATTED', POSITION='APPEND' ) 195 196 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.