Ignore:
Timestamp:
Feb 14, 2018 4:01:55 PM (4 years ago)
Author:
thiele
Message:

Introduce particle transfer in nested models

File:
1 edited

Legend:

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

    r2718 r2801  
    2525! -----------------
    2626! $Id$
     27! Introduce particle transfer in nested models.
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    230233          ENDIF
    231234
    232           IF ( particles(n)%z >= zu(nz)  .AND.  particles(n)%particle_mask )  THEN
     235          IF ( particles(n)%z >= zw(nz)  .AND.  particles(n)%particle_mask )  THEN
    233236             IF ( ibc_par_t == 1 )  THEN
    234237!
    235238!--             Particle absorption
     239                WRITE(9,*) 'particle absorption'
    236240                particles(n)%particle_mask  = .FALSE.
    237241                deleted_particles = deleted_particles + 1
     
    239243!
    240244!--             Particle reflection
    241                 particles(n)%z       = 2.0_wp * zu(nz) - particles(n)%z
     245                particles(n)%z       = 2.0_wp * zw(nz) - particles(n)%z
    242246                particles(n)%speed_z = -particles(n)%speed_z
    243247                IF ( use_sgs_for_particles  .AND. &
Note: See TracChangeset for help on using the changeset viewer.