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

Timestamp:

Feb 3, 2009 9:55:14 AM (16 years ago)

Author:

raasch

Message:

bugfixes concerning particle tails

File:

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

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: arrays for tails are allocated with a minimum size of 10 tails if
+! there is no tail initially
 !
 ! Former revisions:
@@ -457 +458 @@
           ENDDO
           maximum_number_of_tails = factor * INT( value )
+!
+!--       Create a minimum number of tails in case that there is no tail
+!--       initially (otherwise, index errors will occur when adressing the
+!--       arrays below)
+          IF ( maximum_number_of_tails == 0 )  maximum_number_of_tails = 10
 
           ALLOCATE( particle_tail_coordinates(maximum_number_of_tailpoints,5, &