Changeset 2698 for palm/trunk/SOURCE/lpm_init.f90

Timestamp:

Dec 14, 2017 6:46:24 PM (6 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:

• palm/trunk/SOURCE/lpm_init.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm_init.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Grid indices passed to lpm_boundary_conds. (responsible Philipp Thiele)
 ! 
 ! Former revisions:
@@ -236 +236 @@
 
     USE surface_mod,                                                           &
-        ONLY:  get_topography_top_index, surf_def_h, surf_lsm_h, surf_usm_h
+        ONLY:  get_topography_top_index_ji, surf_def_h, surf_lsm_h, surf_usm_h
 
     IMPLICIT NONE
@@ -757 +757 @@
 !--                            Determine surface level. Therefore, check for
 !--                            upward-facing wall on w-grid. 
-                               k_surf = get_topography_top_index( jp, ip, 'w' )
+                               k_surf = get_topography_top_index_ji( jp, ip, 'w' )
 
                                IF ( seed_follows_topography )  THEN
@@ -930 +930 @@
 !--             Identify particles located outside the model domain and reflect
 !--             or absorb them if necessary.
-                CALL lpm_boundary_conds( 'bottom/top' )
+                CALL lpm_boundary_conds( 'bottom/top', i, j, k )
 !
 !--             Furthermore, remove particles located in topography. Note, as