Changeset 2418 for palm/trunk
- Timestamp:
- Sep 6, 2017 3:24:24 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm.f90
r2417 r2418 336 336 !-- optimization is still possible.) 337 337 IF ( topography /= 'flat' .AND. k < nzb_max + 2 ) THEN 338 CALL lpm_boundary_conds( 'walls' ) !, i, j, k )338 CALL lpm_boundary_conds( 'walls' ) 339 339 ENDIF 340 340 ! … … 346 346 !-- the top or bottom boundary and delete those particles, which are 347 347 !-- older than allowed 348 CALL lpm_boundary_conds( 'bottom/top' ) !, i, j, k )348 CALL lpm_boundary_conds( 'bottom/top' ) 349 349 ! 350 350 !--- If not all particles of the actual grid cell have reached the
Note: See TracChangeset
for help on using the changeset viewer.