Changeset 2801 for palm/trunk/SOURCE/lpm_boundary_conds.f90

Timestamp:

Feb 14, 2018 4:01:55 PM (6 years ago)

Author:

thiele

Message:

Introduce particle transfer in nested models

File:

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

palm/trunk/SOURCE/lpm_boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce particle transfer in nested models.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -230 +233 @@
           ENDIF
 
-          IF ( particles(n)%z >= zu(nz)  .AND.  particles(n)%particle_mask )  THEN
+          IF ( particles(n)%z >= zw(nz)  .AND.  particles(n)%particle_mask )  THEN
              IF ( ibc_par_t == 1 )  THEN
 !
 !--             Particle absorption
+                WRITE(9,*) 'particle absorption'
                 particles(n)%particle_mask  = .FALSE.
                 deleted_particles = deleted_particles + 1
@@ -239 +243 @@
 !
 !--             Particle reflection
-                particles(n)%z       = 2.0_wp * zu(nz) - particles(n)%z
+                particles(n)%z       = 2.0_wp * zw(nz) - particles(n)%z
                 particles(n)%speed_z = -particles(n)%speed_z
                 IF ( use_sgs_for_particles  .AND. &