Changeset 336 for palm/trunk/SOURCE/advec_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/advec_particles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/advec_particles.f90

@@ -5 +5 @@
 ! -----------------
 ! Particle attributes are set with new routine set_particle_attributes.
+! Vertical particle advection depends on the particle group.
 ! Output of NetCDF messages with aid of message handling routine.
 ! Output of messages replaced by message handling routine
@@ -898 +899 @@
 !--       Same procedure for interpolation of the w velocity-component (adopt
 !--       index i from v velocity-component)
-          IF ( vertical_particle_advection )  THEN
+          IF ( vertical_particle_advection(particles(n)%group) )  THEN
              j = particles(n)%y * ddy
              k = particles(n)%z / dz + offset_ocean_nzt_m1