Changeset 3067
- Timestamp:
- Jun 12, 2018 2:04:34 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_boundary_conds.f90
r2801 r3067 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Remove write statements 28 ! 29 ! 2801 2018-02-14 16:01:55Z thiele 27 30 ! Introduce particle transfer in nested models. 28 31 ! … … 237 240 ! 238 241 !-- Particle absorption 239 WRITE(9,*) 'particle absorption'240 242 particles(n)%particle_mask = .FALSE. 241 243 deleted_particles = deleted_particles + 1 … … 530 532 !-- necessarily exactly match the wall location due to rounding 531 533 !-- errors. 532 WRITE(9,*) 'wall_test_y nysg:',nysg ,' y: ',particles(n)%y,' j3: ',j3,'nyng:', nyng533 FLUSH(9)534 WRITE(9,*) BTEST(wall_flags_0(k3,j3,i3),0)535 FLUSH(9)536 534 IF ( reach_y(t_index) .AND. & 537 535 ABS( pos_y - ywall ) < eps .AND. &
Note: See TracChangeset
for help on using the changeset viewer.