Changeset 3067 for palm

Timestamp:

Jun 12, 2018 2:04:34 PM (6 years ago)

Author:

suehring

Message:

Remove write statements

File:

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

palm/trunk/SOURCE/lpm_boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove write statements
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -237 +240 @@
 !
 !--             Particle absorption
-                WRITE(9,*) 'particle absorption'
                 particles(n)%particle_mask  = .FALSE.
                 deleted_particles = deleted_particles + 1
@@ -530 +532 @@
 !--             necessarily exactly match the wall location due to rounding 
 !--             errors. 
-                WRITE(9,*) 'wall_test_y nysg:',nysg ,' y: ',particles(n)%y,' j3: ',j3,'nyng:', nyng  
-                FLUSH(9)
-                WRITE(9,*) BTEST(wall_flags_0(k3,j3,i3),0) 
-                FLUSH(9)
                 IF ( reach_y(t_index)                      .AND.               & 
                      ABS( pos_y - ywall ) < eps            .AND.               &