Changeset 2122 for palm/trunk/SOURCE/lpm_droplet_collision.f90

Timestamp:

Jan 18, 2017 12:22:54 PM (8 years ago)

Author:

hoffmann

Message:

introduction of a particle ID, improvement of equilibrium radius calculation, and reformatting

File:

• palm/trunk/SOURCE/lpm_droplet_collision.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_droplet_collision.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+! Some reformatting of the code.
+!
 ! Former revisions:
 ! -----------------
@@ -445 +445 @@
 
                       IF ( collection_probability .GT. random_function( iran_part ) )  THEN
-                         mass(n) = mass(n) + weight(n) * xm  
-                         weight(m)    = weight(m)    - weight(n)
-                         mass(m) = mass(m) - weight(n) * xm
+                         mass(n)   = mass(n)   + weight(n) * xm  
+                         weight(m) = weight(m) - weight(n)
+                         mass(m)   = mass(m)   - weight(n) * xm
                       ENDIF
 
@@ -457 +457 @@
 
                       IF ( collection_probability .GT. random_function( iran_part ) )  THEN
-                         mass(m) = mass(m) + weight(m) * xn
-                         weight(n)    = weight(n)    - weight(m)
-                         mass(n) = mass(n) - weight(m) * xn
+                         mass(m)   = mass(m)   + weight(m) * xn
+                         weight(n) = weight(n) - weight(m)
+                         mass(n)   = mass(n)   - weight(m) * xn
                       ENDIF
                    ELSE