Changeset 336 for palm/trunk/SOURCE/init_particles.f90

Timestamp:

Jun 10, 2009 11:19:35 AM (15 years ago)

Author:

raasch

Message:

several small bugfixes; some more dvrp changes

File:

• palm/trunk/SOURCE/init_particles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_particles.f90

@@ -54 +54 @@
     USE arrays_3d
     USE control_parameters
+    USE dvrp_variables
     USE grid_variables
     USE indices
@@ -441 +442 @@
 
 !
+!--    Particles will probably become none-uniform, if their size and color
+!--    will be determined by flow variables
+       IF ( particle_color /= 'none'  .OR.  particle_dvrpsize /= 'none' )  THEN
+          uniform_particles = .FALSE.
+       ENDIF
+
+!
 !--    Set the beginning of the particle tails and their age
        IF ( use_particle_tails )  THEN