Changeset 825 for palm/trunk/SOURCE/lpm_collision_kernels.f90

Timestamp:

Feb 19, 2012 3:03:44 AM (12 years ago)

Author:

raasch

Message:

New:
---

droplet growth by condensation may include curvature and solution effects.
Steered by new inipar-parameter curvature_solution_effects.
(advec_particles, check_parameters, header, init_cloud_physics, init_particles, modules, parin, read_var_list, write_var_list)

mean/min/max particle radius added as output quantity. (data_output_ptseries, modules)

Changed:

---

Initialisation of temporary particle array for resorting removed.
(advec_particles)

particle attributes speed_x|y|z_sgs renamed rvar1|2|3.
(advec_particles, data_output_ptseries, modules, init_particles, particle_boundary_conds)

routine wang_kernel and respective module renamed lpm_collision_kernels.
Package (particle) parameters wang_collision_kernel and turbulence_effects_on_collision
replaced by parameter collision_kernel.
(Makefile, advec_particles, check_parameters, diffusion_e, init_3d_model, modules, package_parin, time_integration, new: lpm_collision_kernels, deleted: wang_kernel)

Errors:

---

File:

• palm/trunk/SOURCE/lpm_collision_kernels.f90 (moved) (moved from palm/trunk/SOURCE/wang_kernel.f90) (3 diffs)

palm/trunk/SOURCE/lpm_collision_kernels.f90

@@ -1 @@
-MODULE wang_kernel_mod
+MODULE lpm_collision_kernels_mod
 
 !------------------------------------------------------------------------------!
 ! Current revisions:
 ! -----------------
-!
+! routine renamed from wang_kernel to lpm_collision_kernels,
+! turbulence_effects on collision replaced by wang_kernel
 !
 ! Former revisions:
@@ -106 +107 @@
        ALLOCATE( ec(pstart:pend,pstart:pend), winf(pstart:pend) )
 
-       IF ( turbulence_effects_on_collision )  THEN
+       IF ( wang_kernel )  THEN
 
           ALLOCATE( gck(pstart:pend,pstart:pend), ecf(pstart:pend,pstart:pend) )
@@ -756 +757 @@
    END SUBROUTINE turb_enhance_eff
 
- END MODULE wang_kernel_mod
+ END MODULE lpm_collision_kernels_mod