Ignore:
Timestamp:
Jan 18, 2017 12:22:54 PM (5 years ago)
Author:
hoffmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_droplet_collision.f90

    r2101 r2122  
    2020! Current revisions:
    2121! ------------------
    22 !
    23 ! 
     22! Some reformatting of the code.
     23!
    2424! Former revisions:
    2525! -----------------
     
    445445
    446446                      IF ( collection_probability .GT. random_function( iran_part ) )  THEN
    447                          mass(n) = mass(n) + weight(n) * xm 
    448                          weight(m)    = weight(m)    - weight(n)
    449                          mass(m) = mass(m) - weight(n) * xm
     447                         mass(n)   = mass(n)  + weight(n) * xm 
     448                         weight(m) = weight(m) - weight(n)
     449                         mass(m)   = mass(m)  - weight(n) * xm
    450450                      ENDIF
    451451
     
    457457
    458458                      IF ( collection_probability .GT. random_function( iran_part ) )  THEN
    459                          mass(m) = mass(m) + weight(m) * xn
    460                          weight(n)    = weight(n)    - weight(m)
    461                          mass(n) = mass(n) - weight(m) * xn
     459                         mass(m)   = mass(m)  + weight(m) * xn
     460                         weight(n) = weight(n) - weight(m)
     461                         mass(n)   = mass(n)  - weight(m) * xn
    462462                      ENDIF
    463463                   ELSE
Note: See TracChangeset for help on using the changeset viewer.