Ignore:
Timestamp:
Dec 14, 2017 6:46:24 PM (4 years ago)
Author:
suehring
Message:

Particle reflections at downward-facing walls; revision of particle speed interpolations at walls; bugfixes in get_topography_index and in date constants

File:
1 edited

Legend:

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

    r2696 r2698  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Grid indices passed to lpm_boundary_conds. (responsible Philipp Thiele)
    2323!
    2424! Former revisions:
     
    236236
    237237    USE surface_mod,                                                           &
    238         ONLY:  get_topography_top_index, surf_def_h, surf_lsm_h, surf_usm_h
     238        ONLY:  get_topography_top_index_ji, surf_def_h, surf_lsm_h, surf_usm_h
    239239
    240240    IMPLICIT NONE
     
    757757!--                            Determine surface level. Therefore, check for
    758758!--                            upward-facing wall on w-grid.
    759                                k_surf = get_topography_top_index( jp, ip, 'w' )
     759                               k_surf = get_topography_top_index_ji( jp, ip, 'w' )
    760760
    761761                               IF ( seed_follows_topography )  THEN
     
    930930!--             Identify particles located outside the model domain and reflect
    931931!--             or absorb them if necessary.
    932                 CALL lpm_boundary_conds( 'bottom/top' )
     932                CALL lpm_boundary_conds( 'bottom/top', i, j, k )
    933933!
    934934!--             Furthermore, remove particles located in topography. Note, as
Note: See TracChangeset for help on using the changeset viewer.