Changeset 828 for palm/trunk/SOURCE/set_particle_attributes.f90

Timestamp:

Feb 21, 2012 12:00:36 PM (12 years ago)

Author:

raasch

Message:

New:
---

Changed:

---

Optimization of collision kernels. Collision tables can be calculated once at
simulation start for defined radius (and dissipation) classes instead of
re-calculating them at every timestep and for the particle ensemble in
every gridbox.
For this purpose the particle feature color is renamed class.
New parpar parameters radius_classes and dissipation_classes.
(Makefile, advec_particles, check_parameters, data_output_dvrp, header, init_particles, lpm_collision_kernels, modules, package_parin, set_particle_attributes)

Lower limit for droplet radius changed from 1E-7 to 1E-8.
(advec_particles)

Complete re-formatting of collision code (including changes in names of
variables, modules and subroutines).
(advec_particles, lpm_collision_kernels)

Errors:

---

Bugfix: transformation factor for dissipation changed from 1E5 to 1E4
(advec_particles, lpm_collision_kernels)

File:

• palm/trunk/SOURCE/set_particle_attributes.f90 (modified) (4 diffs)

palm/trunk/SOURCE/set_particle_attributes.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! particle feature color renamed class
 !
 ! Former revisions:
@@ -121 +121 @@
 !
 !--       Number of available colors is defined in init_dvrp
-          particles(n)%color = 1 + absuv * ( dvrp_colortable_entries_prt - 1 )
+          particles(n)%class = 1 + absuv * ( dvrp_colortable_entries_prt - 1 )
 
        ENDDO
@@ -192 +192 @@
 !
 !--       Number of available colors is defined in init_dvrp
-          particles(n)%color = 1 + pt_int * ( dvrp_colortable_entries_prt - 1 )
+          particles(n)%class = 1 + pt_int * ( dvrp_colortable_entries_prt - 1 )
 
        ENDDO
@@ -213 +213 @@
 !
 !--       Number of available colors is defined in init_dvrp
-          particles(n)%color = 1 + height * ( dvrp_colortable_entries_prt - 1 )
+          particles(n)%class = 1 + height * ( dvrp_colortable_entries_prt - 1 )
 
        ENDDO