Changeset 824 for palm/trunk/SOURCE/particle_boundary_conds.f90

Timestamp:

Feb 17, 2012 9:09:57 AM (12 years ago)

Author:

raasch

Message:

preliminary checkin of new curvature/solution effects on droplet growth

File:

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

palm/trunk/SOURCE/particle_boundary_conds.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! particle attributes speed_x|y|z_sgs renamed rvar1|2|3.
 !
 ! Former revisions:
@@ -549 +549 @@
 
           IF ( use_sgs_for_particles )  THEN
-             particles(n)%speed_z_sgs = - particles(n)%speed_z_sgs
+             particles(n)%rvar3 = - particles(n)%rvar3
           ENDIF
           reflect_z = .FALSE.
@@ -559 +559 @@
 
           IF ( use_sgs_for_particles )  THEN
-             particles(n)%speed_y_sgs = - particles(n)%speed_y_sgs
+             particles(n)%rvar2 = - particles(n)%rvar2
           ENDIF
           reflect_y = .FALSE.
@@ -569 +569 @@
 
           IF ( use_sgs_for_particles )  THEN 
-             particles(n)%speed_x_sgs = - particles(n)%speed_x_sgs
+             particles(n)%rvar1 = - particles(n)%rvar1
           ENDIF
           reflect_x = .FALSE.