Changeset 277 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Mar 31, 2009 9:13:47 AM (15 years ago)

Author:

heinze

Message:

Change of arguments in message calls whenever there are errors induced by MPI-ABORT

File:

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

palm/trunk/SOURCE/check_open.f90

@@ -126 +126 @@
              WRITE( message_string, * ) 'opening file-id ',file_id, &
                                         ' not allowed for PE ',myid
-             CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
+             CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
           ENDIF
 
@@ -135 +135 @@
                 WRITE( message_string, * ) 'opening file-id ',file_id, &
                                            ' not allowed for PE ',myid
-                CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
+                CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
              END IF
           ENDIF
@@ -1244 +1244 @@
 
           WRITE( message_string, * ) 'no OPEN-statement for file-id ',file_id
-          CALL message( 'check_open', 'PA0172', 2, 2, 0, 6, 0 )
+          CALL message( 'check_open', 'PA0172', 2, 2, -1, 6, 1 )
 
     END SELECT