Changeset 2630 for palm/trunk/SOURCE/lpm_exchange_horiz.f90

Timestamp:

Nov 20, 2017 12:58:20 PM (6 years ago)

Author:

schwenkel

Message:

enable particle advection with grid stretching and some formatation changes in lpm

File:

• palm/trunk/SOURCE/lpm_exchange_horiz.f90 (modified) (1 diff)

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -1148 +1148 @@
                    WRITE( message_string, * ) 'PARTICLE VIOLATED CFL CRITERION'&
                    ': particle with id ',particles(n)%id,' will be deleted!'   
-                   CALL message( 'lpm_check_cfl', 'PA0500', 0, 1, 0, 6, 0 )
+                   CALL message( 'lpm_check_cfl', 'PA0475', 0, 1, 0, 6, 0 )
                    particles(n)%particle_mask= .FALSE.
                 ENDIF