Changeset 1988 for palm/trunk/SOURCE


Ignore:
Timestamp:
Aug 10, 2016 2:49:06 PM (8 years ago)
Author:
gronemeier
Message:

informative message added if files cannot be opened in newly created directory

File:
1 edited

Legend:

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

    r1987 r1988  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! informative message added if files cannot be opened in newly created directory
    2222!
    2323! Former revisions:
     
    339339                OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, &
    340340                           FORM='UNFORMATTED', IOSTAT=ioerr )
    341                 IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     341                IF ( ioerr /= 0 )  THEN
     342                   WRITE( 9, * )  '*** could not open "BINOUT'//         &
     343                                  TRIM(coupling_char)//'/'//myid_char//  &
     344                                  '"! Trying again in 1 sec.'
     345                   CALL fortran_sleep( 1 )
     346                ENDIF
    342347             ENDDO
    343348
     
    388393                           myid_char, FORM='UNFORMATTED', POSITION='APPEND',   &
    389394                           IOSTAT=ioerr )
    390                 IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     395                IF ( ioerr /= 0 )  THEN
     396                   WRITE( 9, * )  '*** could not open "DATA_LOG'//         &
     397                                  TRIM( coupling_char )//'/'//myid_char//  &
     398                                  '"! Trying again in 1 sec.'
     399                   CALL fortran_sleep( 1 )
     400                ENDIF
    391401             ENDDO
    392402
     
    638648                           myid_char,                                          &
    639649                           FORM='UNFORMATTED', POSITION='APPEND', IOSTAT=ioerr )
    640                 IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     650                IF ( ioerr /= 0 )  THEN
     651                   WRITE( 9, * )  '*** could not open "PARTICLE_DATA'//    &
     652                                  TRIM( coupling_char )//'/'//myid_char//  &
     653                                  '"! Trying again in 1 sec.'
     654                   CALL fortran_sleep( 1 )
     655                ENDIF
    641656             ENDDO
    642657
Note: See TracChangeset for help on using the changeset viewer.