Changeset 275 for palm

Timestamp:

Mar 27, 2009 7:38:49 AM (16 years ago)

Author:

raasch

Message:

bugfix in message call for MPI_ABORT

File:

• palm/trunk/SOURCE/advec_particles.f90 (modified) (14 diffs)

palm/trunk/SOURCE/advec_particles.f90

@@ -322 +322 @@
                           ' ql_c=',ql_c(k,j,i), ' &part(',n,')%wf=', &
                           particles(n)%weight_factor,' delta_r=',delta_r
-             CALL message( 'advec_particles', 'PA0143', 2, 2, 0, 6, 0 )
+             CALL message( 'advec_particles', 'PA0143', 2, 2, 0, 6, 1 )
           ENDIF
 
@@ -333 +333 @@
                           ' &d_radius=',d_radius,' delta_r=',delta_r,&
                           ' particle_radius=',particles(n)%radius
-             CALL message( 'advec_particles', 'PA0144', 2, 2, 0, 6, 0 )
+             CALL message( 'advec_particles', 'PA0144', 2, 2, 0, 6, 1 )
           ENDIF
           particles(n)%radius = new_r
@@ -424 +424 @@
                            effective_coll_efficiency < 0.0 )     &
                       THEN
-                         WRITE( message_string, * ) 'collision_efficiency ' , &
-                                   'out of range:', effective_coll_efficiency
-                         CALL message( 'advec_particles', 'PA0145', &
-                                       2, 2, 0, 6, 0 )
+                         WRITE( message_string, * )  'collision_efficiency ' , &
+                                   'out of range:' ,effective_coll_efficiency
+                         CALL message( 'advec_particles', 'PA0145', 2, 2, 0,   &
+                                       6, 1 )
                       END IF
 
@@ -1925 +1925 @@
                                  '&but this is not allowed with ' // &
                                  'NetCDF output switched on'
-                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0 )
+                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 )
              ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory dt_prel'
@@ -1945 +1945 @@
                                     '&but this is not allowed wi' // &
                                     'th NetCDF output switched on'
-                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0 )
+                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 )
                 ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory dt_prel'
@@ -2330 +2330 @@
                                   '&but this is not allowed with ' //  &
                                   'NetCDF output switched on'
-                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0 )
+                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 )
              ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trrp'
@@ -2358 +2358 @@
                                     '&but this is not allowed wi'// &
                                     'th NetCDF output switched on'
-                CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0 )
+                CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 )
                 ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trrpt'
@@ -2407 +2407 @@
                                  '&but this is not allowed with '// &
                                  'NetCDF output switched on'
-                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0 )
+                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 )
              ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trlp'
@@ -2435 +2435 @@
                                     '&but this is not allowed wi'// &
                                     'th NetCDF output switched on'
-                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0 ) 
+                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 
                 ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trlpt'
@@ -2771 +2771 @@
                                  '&but this is not allowed with '// &
                                  'NetCDF output switched on'
-                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0 ) 
+                CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 
              ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trnp'
@@ -2799 +2799 @@
                                     '&but this is not allowed wi' // &
                                     'th NetCDF output switched on'
-                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0 ) 
+                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 
                 ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trnpt'
@@ -2848 +2848 @@
                                  '&but this is not allowed with ' // &
                                  'NetCDF output switched on'
-               CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0 )  
+               CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 )  
              ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trsp'
@@ -2876 +2876 @@
                                     '&but this is not allowed wi'// &
                                     'th NetCDF output switched on'
-                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0 )
+                   CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 )
                 ELSE
 !    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trspt'
@@ -3079 +3079 @@
 
                   WRITE( message_string, * )  'particle too fast.  n = ',  n 
-                  CALL message( 'advec_particles', 'PA0148', 2, 2, 0, 6, 0 )
+                  CALL message( 'advec_particles', 'PA0148', 2, 2, 0, 6, 1 )
              ENDIF
           ENDIF