Changeset 277 for palm/trunk/SOURCE/read_3d_binary.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/read_3d_binary.f90 (modified) (5 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -141 +141 @@
                 message_string = 'data from subdomain of previous' // &
                                  ' run mapped more than 1000 times'
-                CALL message( 'read_3d_binary', 'PA0284', 2, 2, 0, 6, 0 )
+                CALL message( 'read_3d_binary', 'PA0284', 2, 2, -1, 6, 1 )
  
              ENDIF
@@ -256 +256 @@
                             '&= ', hor_index_bounds_previous_run(1,j),    &
                             '&from the index bound information array'
-          CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
+          CALL message( 'read_3d_binary', 'PA0287', 2, 2, -1, 6, 1 )
        ENDIF
 
@@ -265 +265 @@
                                '&= ', hor_index_bounds_previous_run(2,j),   &
                                '&from the index bound information array' 
-          CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
+          CALL message( 'read_3d_binary', 'PA0288', 2, 2, -1, 6, 1 )
 
        ENDIF
@@ -275 +275 @@
                                  '&= ', hor_index_bounds_previous_run(3,j),   &
                                      '&from the index bound information array'
-          CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 ) 
+          CALL message( 'read_3d_binary', 'PA0289', 2, 2, -1, 6, 1 ) 
        ENDIF
 
@@ -284 +284 @@
                                '&= ', hor_index_bounds_previous_run(4,j),   &
                                '&from the index bound information array'
-          CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 ) 
+          CALL message( 'read_3d_binary', 'PA0290', 2, 2, -1, 6, 1 ) 
        ENDIF