Changeset 1988 for palm/trunk/SOURCE

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:

• palm/trunk/SOURCE/check_open.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! informative message added if files cannot be opened in newly created directory
 ! 
 ! Former revisions:
@@ -339 +339 @@
                 OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, &
                            FORM='UNFORMATTED', IOSTAT=ioerr )
-                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
+                IF ( ioerr /= 0 )  THEN
+                   WRITE( 9, * )  '*** could not open "BINOUT'//         &
+                                  TRIM(coupling_char)//'/'//myid_char//  &
+                                  '"! Trying again in 1 sec.'
+                   CALL fortran_sleep( 1 )
+                ENDIF
              ENDDO
 
@@ -388 +393 @@
                            myid_char, FORM='UNFORMATTED', POSITION='APPEND',   &
                            IOSTAT=ioerr )
-                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
+                IF ( ioerr /= 0 )  THEN
+                   WRITE( 9, * )  '*** could not open "DATA_LOG'//         &
+                                  TRIM( coupling_char )//'/'//myid_char//  &
+                                  '"! Trying again in 1 sec.'
+                   CALL fortran_sleep( 1 )
+                ENDIF
              ENDDO
 
@@ -638 +648 @@
                            myid_char,                                          &
                            FORM='UNFORMATTED', POSITION='APPEND', IOSTAT=ioerr )
-                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
+                IF ( ioerr /= 0 )  THEN
+                   WRITE( 9, * )  '*** could not open "PARTICLE_DATA'//    &
+                                  TRIM( coupling_char )//'/'//myid_char//  &
+                                  '"! Trying again in 1 sec.'
+                   CALL fortran_sleep( 1 )
+                ENDIF
              ENDDO