Changeset 2630 for palm

Timestamp:

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

Author:

schwenkel

Message:

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

Location:

palm/trunk/SOURCE

Files:

• lpm_advec.f90 (modified) (1 diff)
• lpm_exchange_horiz.f90 (modified) (1 diff)

palm/trunk/SOURCE/lpm_advec.f90

@@ -27 +27 @@
 ! Removed indices ilog and jlog which are no longer needed since particle box
 ! locations are identical to scalar boxes and topography.
-
 ! 
-! 2628 2017-11-20 12:40:38Z schwenkel
+! 2628 2017-11-20 12:40:38Z raasch
 ! bugfix in logarithmic interpolation of v-component (usws was used by mistake)
 ! 

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