Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r2967 r3046  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Error messages revised
    2424!
    2525! Former revisions:
     
    206206       IF ( ibc_par_t /= 3 )   THEN
    207207          ibc_par_t  = 3
    208           message_string = 'In Child model:  bc_par_t is automatically set to nested '
    209           CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     208          message_string = 'In Child model:  ibc_par_t is automatically set to nested '
     209          CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )
    210210       ENDIF
    211211   
    212212       IF ( ibc_par_lr /= 3 )   THEN
    213213          ibc_par_lr = 3
    214           message_string = 'In Child model:  bc_par_lr is automatically set to nested '
    215           CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     214          message_string = 'In Child model:  ibc_par_lr is automatically set to nested '
     215          CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )
    216216       ENDIF
    217217       
    218218       IF ( ibc_par_ns /= 3 )   THEN
    219219          ibc_par_ns = 3
    220           message_string = 'In Child model:  bc_par_ns is automatically set to nested '
    221           CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     220          message_string = 'In Child model:  ibc_par_ns is automatically set to nested '
     221          CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )
    222222       ENDIF
    223223       
     
    476476                              max_nr_particle_per_pe, max_nr_particle_in_rma_win
    477477                   message_string = 'RMA window too small on child'
    478                    CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )   ! PA number has to be adjusted
     478                   CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )
    479479                ENDIF
    480480                CALL MPI_WIN_LOCK( MPI_LOCK_SHARED , ip - 1, 0,                &
Note: See TracChangeset for help on using the changeset viewer.