Changeset 277 for palm/trunk/SOURCE


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

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

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

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

    r274 r277  
    126126             WRITE( message_string, * ) 'opening file-id ',file_id, &
    127127                                        ' not allowed for PE ',myid
    128              CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
     128             CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
    129129          ENDIF
    130130
     
    135135                WRITE( message_string, * ) 'opening file-id ',file_id, &
    136136                                           ' not allowed for PE ',myid
    137                 CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
     137                CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
    138138             END IF
    139139          ENDIF
     
    12441244
    12451245          WRITE( message_string, * ) 'no OPEN-statement for file-id ',file_id
    1246           CALL message( 'check_open', 'PA0172', 2, 2, 0, 6, 0 )
     1246          CALL message( 'check_open', 'PA0172', 2, 2, -1, 6, 1 )
    12471247
    12481248    END SELECT
  • palm/trunk/SOURCE/init_particles.f90

    r276 r277  
    277277                                             myid
    278278                               CALL message( 'init_particles', 'PA0216', &
    279                                                                  2, 2, 0, 6, 0 )
     279                                                                 2, 2, -1, 6, 1 )
    280280                            ENDIF
    281281                            particles(n)%x             = pos_x
  • palm/trunk/SOURCE/netcdf.f90

    r274 r277  
    36263626       message_string = TRIM( NF90_STRERROR( nc_stat ) )
    36273627
    3628        CALL message( routine_name, message_identifier, 2, 2, 0, 6, 0 )
     3628       CALL message( routine_name, message_identifier, 2, 2, -1, 6, 1 )
    36293629
    36303630    ENDIF
  • 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.