Ignore:
Timestamp:
Mar 31, 2009 9:13:47 AM (12 years ago)
Author:
heinze
Message:

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

File:
1 edited

Legend:

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

    r274 r277  
    141141                message_string = 'data from subdomain of previous' // &
    142142                                 ' run mapped more than 1000 times'
    143                 CALL message( 'read_3d_binary', 'PA0284', 2, 2, 0, 6, 0 )
     143                CALL message( 'read_3d_binary', 'PA0284', 2, 2, -1, 6, 1 )
    144144 
    145145             ENDIF
     
    256256                            '&= ', hor_index_bounds_previous_run(1,j),    &
    257257                            '&from the index bound information array'
    258           CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
     258          CALL message( 'read_3d_binary', 'PA0287', 2, 2, -1, 6, 1 )
    259259       ENDIF
    260260
     
    265265                               '&= ', hor_index_bounds_previous_run(2,j),   &
    266266                               '&from the index bound information array'
    267           CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
     267          CALL message( 'read_3d_binary', 'PA0288', 2, 2, -1, 6, 1 )
    268268
    269269       ENDIF
     
    275275                                 '&= ', hor_index_bounds_previous_run(3,j),   &
    276276                                     '&from the index bound information array'
    277           CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 )
     277          CALL message( 'read_3d_binary', 'PA0289', 2, 2, -1, 6, 1 )
    278278       ENDIF
    279279
     
    284284                               '&= ', hor_index_bounds_previous_run(4,j),   &
    285285                               '&from the index bound information array'
    286           CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 )
     286          CALL message( 'read_3d_binary', 'PA0290', 2, 2, -1, 6, 1 )
    287287       ENDIF
    288288
Note: See TracChangeset for help on using the changeset viewer.