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

Timestamp:

Mar 29, 2009 8:50:26 AM (15 years ago)

Author:

raasch

Message:

bugfix and change concerning particle advection

File:

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

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! Output of messages replaced by message handling routine
+! Maximum number of tails is calculated from maximum number of particles and
+! skip_particles_for_tail,
+! output of messages replaced by message handling routine
 ! Bugfix: arrays for tails are allocated with a minimum size of 10 tails if
 ! there is no tail initially
@@ -442 +444 @@
        IF ( use_particle_tails )  THEN
 !
-!--       Choose the maximum number of tails significantly larger than the
-!--       one initially required
-          factor = 10.0
-          value  = number_of_tails
-          DO WHILE ( value / 10.0 >= 1.0 )
-             factor = factor * 10.0
-             value  = value / 10.0
-          ENDDO
-          maximum_number_of_tails = factor * INT( value )
+!--       Choose the maximum number of tails with respect to the maximum number
+!--       of particles and skip_particles_for_tail
+          maximum_number_of_tails = maximum_number_of_particles / &
+                                    skip_particles_for_tail
+
 !
 !--       Create a minimum number of tails in case that there is no tail