Ignore:
Timestamp:
Dec 28, 2007 9:44:53 AM (14 years ago)
Author:
raasch
Message:

first preliminary update for turbulent inflow

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r139 r143  
    44! Actual revisions:
    55! -----------------
    6 !
     6! First opening of unit 13 openes file _0000 on all PEs (parallel version)
     7! because only this file contains the global variables
    78!
    89! Former revisions:
     
    9293    IF ( openfile(file_id)%opened_before )  THEN
    9394       SELECT CASE ( file_id )
    94           CASE ( 14, 21, 22, 23, 80:85 )
     95          CASE ( 13, 14, 21, 22, 23, 80:85 )
    9596             IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
    9697                IF ( myid == 0 )  PRINT*, '+++ check_open: re-open of unit ', &
    9798                                   ' 14 is not verified. Please check results!'
    9899             ENDIF
    99              CONTINUE
     100
    100101          CASE DEFAULT
    101102             IF ( myid == 0 )  THEN
     
    104105             ENDIF
    105106             RETURN
     107
    106108       END SELECT
    107109    ENDIF
     
    162164                        FORM='UNFORMATTED', STATUS='OLD' )
    163165          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
    166176          ENDIF
    167177
Note: See TracChangeset for help on using the changeset viewer.