Changeset 3046 for palm/trunk/SOURCE/pmc_particle_interface.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/pmc_particle_interface.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_particle_interface.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -206 +206 @@
        IF ( ibc_par_t /= 3 )   THEN
           ibc_par_t  = 3
-          message_string = 'In Child model:  bc_par_t is automatically set to nested '
-          CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
+          message_string = 'In Child model:  ibc_par_t is automatically set to nested '
+          CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )
        ENDIF
     
        IF ( ibc_par_lr /= 3 )   THEN
           ibc_par_lr = 3
-          message_string = 'In Child model:  bc_par_lr is automatically set to nested '
-          CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
+          message_string = 'In Child model:  ibc_par_lr is automatically set to nested '
+          CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )
        ENDIF
         
        IF ( ibc_par_ns /= 3 )   THEN
           ibc_par_ns = 3
-          message_string = 'In Child model:  bc_par_ns is automatically set to nested '
-          CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
+          message_string = 'In Child model:  ibc_par_ns is automatically set to nested '
+          CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )
        ENDIF
        
@@ -476 +476 @@
                               max_nr_particle_per_pe, max_nr_particle_in_rma_win
                    message_string = 'RMA window too small on child'
-                   CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )   ! PA number has to be adjusted
+                   CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )
                 ENDIF
                 CALL MPI_WIN_LOCK( MPI_LOCK_SHARED , ip - 1, 0,                &