Changeset 3067


Ignore:
Timestamp:
Jun 12, 2018 2:04:34 PM (6 years ago)
Author:
suehring
Message:

Remove write statements

File:
1 edited

Legend:

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

    r2801 r3067  
    2525! -----------------
    2626! $Id$
     27! Remove write statements
     28!
     29! 2801 2018-02-14 16:01:55Z thiele
    2730! Introduce particle transfer in nested models.
    2831!
     
    237240!
    238241!--             Particle absorption
    239                 WRITE(9,*) 'particle absorption'
    240242                particles(n)%particle_mask  = .FALSE.
    241243                deleted_particles = deleted_particles + 1
     
    530532!--             necessarily exactly match the wall location due to rounding
    531533!--             errors.
    532                 WRITE(9,*) 'wall_test_y nysg:',nysg ,' y: ',particles(n)%y,' j3: ',j3,'nyng:', nyng 
    533                 FLUSH(9)
    534                 WRITE(9,*) BTEST(wall_flags_0(k3,j3,i3),0)
    535                 FLUSH(9)
    536534                IF ( reach_y(t_index)                      .AND.               &
    537535                     ABS( pos_y - ywall ) < eps            .AND.               &
Note: See TracChangeset for help on using the changeset viewer.