Changeset 277 for palm/trunk/SOURCE

Timestamp:

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

Author:

heinze

Message:

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

Location:

palm/trunk/SOURCE

Files:

• check_open.f90 (modified) (3 diffs)
• init_particles.f90 (modified) (1 diff)
• netcdf.f90 (modified) (1 diff)
• read_3d_binary.f90 (modified) (5 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

palm/trunk/SOURCE/init_particles.f90

@@ -277 +277 @@
                                              myid
                                CALL message( 'init_particles', 'PA0216', &
-                                                                 2, 2, 0, 6, 0 )
+                                                                 2, 2, -1, 6, 1 )
                             ENDIF
                             particles(n)%x             = pos_x

palm/trunk/SOURCE/netcdf.f90

@@ -3626 +3626 @@
        message_string = TRIM( NF90_STRERROR( nc_stat ) )
 
-       CALL message( routine_name, message_identifier, 2, 2, 0, 6, 0 )
+       CALL message( routine_name, message_identifier, 2, 2, -1, 6, 1 )
 
     ENDIF

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