Changeset 2632 for palm/trunk/SOURCE

Timestamp:

Nov 20, 2017 3:35:52 PM (7 years ago)

Author:

schwenkel

Message:

bugfix in write statement

File:

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

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in write statement
+! 
+! 2630 2017-11-20 12:58:20Z schwenkel
 ! Enabled particle advection with grid stretching. Furthermore, the CFL-
 ! criterion is checked for every particle at every time step.
@@ -1139 +1142 @@
              particles => grid_particles(k,j,i)%particles(1:number_of_particles)         
              DO n = 1, number_of_particles
-   
                 IF(ABS(particles(n)%speed_x) >                                 &
                    (dx/(particles(n)%age-particles(n)%age_m))  .OR.            &
@@ -1146 +1148 @@
                    ABS(particles(n)%speed_z) >                                 &
                    ((zw(k)-zw(k-1))/(particles(n)%age-particles(n)%age_m))) THEN
-                   WRITE( message_string, * ) 'PARTICLE VIOLATED CFL CRITERION'&
-                   ': particle with id ',particles(n)%id,' will be deleted!'   
+                   WRITE( message_string, * )                                  &
+                   'Particle violated CFL-criterion: particle with id ',       &
+                   particles(n)%id,' will be deleted!'   
                    CALL message( 'lpm_check_cfl', 'PA0475', 0, 1, 0, 6, 0 )
                    particles(n)%particle_mask= .FALSE.