Changeset 143 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Dec 28, 2007 9:44:53 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r139 r143 4 4 ! Actual revisions: 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 8 ! 8 9 ! Former revisions: … … 92 93 IF ( openfile(file_id)%opened_before ) THEN 93 94 SELECT CASE ( file_id ) 94 CASE ( 1 4, 21, 22, 23, 80:85 )95 CASE ( 13, 14, 21, 22, 23, 80:85 ) 95 96 IF ( file_id == 14 .AND. openfile(file_id)%opened_before ) THEN 96 97 IF ( myid == 0 ) PRINT*, '+++ check_open: re-open of unit ', & 97 98 ' 14 is not verified. Please check results!' 98 99 ENDIF 99 CONTINUE 100 100 101 CASE DEFAULT 101 102 IF ( myid == 0 ) THEN … … 104 105 ENDIF 105 106 RETURN 107 106 108 END SELECT 107 109 ENDIF … … 162 164 FORM='UNFORMATTED', STATUS='OLD' ) 163 165 ELSE 164 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/'//myid_char, & 165 FORM='UNFORMATTED', STATUS='OLD' ) 166 ! 167 !-- First opening of unit 13 openes file _0000 on all PEs because only 168 !-- this file contains the global variables 169 IF ( .NOT. openfile(file_id)%opened_before ) THEN 170 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_0000',& 171 FORM='UNFORMATTED', STATUS='OLD' ) 172 ELSE 173 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/'//myid_char,& 174 FORM='UNFORMATTED', STATUS='OLD' ) 175 ENDIF 166 176 ENDIF 167 177
Note: See TracChangeset
for help on using the changeset viewer.