Changeset 2122 for palm/trunk/SOURCE/lpm_droplet_collision.f90
- Timestamp:
- Jan 18, 2017 12:22:54 PM (8 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.