Changeset 2151 for palm

Timestamp:

Feb 15, 2017 10:42:16 AM (8 years ago)

Author:

schwenkel

Message:

Bugfix in lpm_exchange_horiz

File:

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

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+!
+! Bugfix in lpm_move_particle that prevents
+! false production of additional particles
 ! 
 ! Former revisions:
@@ -1018 +1020 @@
                                prt_count(k,j,i) = number_of_particles
 !
+!--                            Set pindex to next index of the modified
+!--                            particle-array (due to lpm_pack_arrays)
+                               pindex = prt_count(k,j,i)+1
+!
 !--                            If number of particles in the new grid box 
 !--                            exceeds its allocated memory, the particle array