Changeset 2122 for palm/trunk/SOURCE/lpm_droplet_collision.f90
 Timestamp:
 Jan 18, 2017 12:22:54 PM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/lpm_droplet_collision.f90
r2101 r2122 20 20 ! Current revisions: 21 21 !  22 ! 23 ! 22 ! Some reformatting of the code. 23 ! 24 24 ! Former revisions: 25 25 !  … … 445 445 446 446 IF ( collection_probability .GT. random_function( iran_part ) ) THEN 447 mass(n) = mass(n)+ weight(n) * xm448 weight(m) = weight(m) weight(n)449 mass(m) = mass(m) weight(n) * xm447 mass(n) = mass(n) + weight(n) * xm 448 weight(m) = weight(m)  weight(n) 449 mass(m) = mass(m)  weight(n) * xm 450 450 ENDIF 451 451 … … 457 457 458 458 IF ( collection_probability .GT. random_function( iran_part ) ) THEN 459 mass(m) = mass(m)+ weight(m) * xn460 weight(n) = weight(n) weight(m)461 mass(n) = mass(n) weight(m) * xn459 mass(m) = mass(m) + weight(m) * xn 460 weight(n) = weight(n)  weight(m) 461 mass(n) = mass(n)  weight(m) * xn 462 462 ENDIF 463 463 ELSE
Note: See TracChangeset
for help on using the changeset viewer.