Changeset 825 for palm/trunk/SOURCE/diffusion_e.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/diffusion_e.f90 (modified) (5 diffs)

palm/trunk/SOURCE/diffusion_e.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! wang_collision_kernel renamed wang_kernel
 !
 ! Former revisions:
@@ -164 +164 @@
 !--          Store dissipation if needed for calculating the sgs particle
 !--          velocities
-             IF ( use_sgs_for_particles  .OR.  wang_collision_kernel )  THEN
+             IF ( use_sgs_for_particles  .OR.  wang_kernel )  THEN
                 DO  j = nys, nyn
                    DO  k = nzb_s_inner(j,i)+1, nzt
@@ -254 +254 @@
 !--          Store dissipation if needed for calculating the sgs particle
 !--          velocities
-             IF ( use_sgs_for_particles  .OR.  wang_collision_kernel )  THEN
+             IF ( use_sgs_for_particles  .OR.  wang_kernel )  THEN
                 DO  j = nys, nyn
                    DO  k = nzb_s_inner(j,i)+1, nzt
@@ -268 +268 @@
 !
 !--    Boundary condition for dissipation
-       IF ( use_sgs_for_particles  .OR.  wang_collision_kernel )  THEN
+       IF ( use_sgs_for_particles  .OR.  wang_kernel )  THEN
           DO  i = nxl, nxr
              DO  j = nys, nyn
@@ -372 +372 @@
 !
 !--    Store dissipation if needed for calculating the sgs particle velocities
-       IF ( use_sgs_for_particles  .OR.  wang_collision_kernel )  THEN
+       IF ( use_sgs_for_particles  .OR.  wang_kernel )  THEN
           DO  k = nzb_s_inner(j,i)+1, nzt
              diss(k,j,i) = dissipation(k)