Changeset 1468 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Sep 24, 2014 2:06:57 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1360 r1468 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Adapted for use on up to 6-digit processor cores 23 ! Added file unit 117 (PROGRESS) 23 24 ! 24 25 ! Former revisions: … … 187 188 IF ( openfile(file_id)%opened_before ) THEN 188 189 SELECT CASE ( file_id ) 189 CASE ( 13, 14, 21, 22, 23, 80:85 )190 CASE ( 13, 14, 21, 22, 23, 80:85, 117 ) 190 191 IF ( file_id == 14 .AND. openfile(file_id)%opened_before ) THEN 191 192 message_string = 're-open of unit ' // & … … 209 210 SELECT CASE ( file_id ) 210 211 211 CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109 )212 CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 ) 212 213 213 214 IF ( myid /= 0 ) THEN … … 280 281 ELSE 281 282 ! 282 !-- First opening of unit 13 openes file _0000 on all PEs because only283 !-- this file contains the global variables283 !-- First opening of unit 13 openes file _000000 on all PEs because 284 !-- only this file contains the global variables 284 285 IF ( .NOT. openfile(file_id)%opened_before ) THEN 285 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_0000 ', &286 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_000000', & 286 287 FORM='UNFORMATTED', STATUS='OLD' ) 287 288 ELSE … … 336 337 ENDIF 337 338 IF ( myid_char == '' ) THEN 338 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_0000 ', &339 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_000000', & 339 340 FORM='UNFORMATTED', POSITION='APPEND' ) 340 341 ELSE … … 1053 1054 1054 1055 ENDIF 1056 1057 1058 ! 1059 !-- Progress file that is used by the PALM watchdog 1060 CASE ( 117 ) 1061 1062 OPEN ( 117, FILE='PROGRESS'//coupling_char, STATUS='REPLACE', FORM='FORMATTED' ) 1063 1055 1064 1056 1065 CASE ( 201:200+2*max_masks )
Note: See TracChangeset
for help on using the changeset viewer.