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

palm/trunk/SOURCE/modules.f90

@@ -10 +10 @@
 ! interval_*_dvrp_prt, isosurface_color, particle_color, particle_dvrpsize,
 ! topography color in dvrp_variables,
+! vertical_particle_advection is a 1d-array,
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
 ! canyon_wall_south, conserve_volume_flow_mode, coupling_start_time,
@@ -971 +972 @@
                 uniform_particles = .TRUE., use_particle_tails = .FALSE.,      &
                 use_sgs_for_particles = .FALSE.,                               &
-                vertical_particle_advection = .TRUE.,                          &
                 write_particle_statistics = .FALSE.
+
+    LOGICAL, DIMENSION(max_number_of_particle_groups) ::                       &
+                vertical_particle_advection = .TRUE.
+
     LOGICAL, DIMENSION(:), ALLOCATABLE ::  particle_mask, tail_mask