Changeset 2698 for palm/trunk/SOURCE/init_grid.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/init_grid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in get_topography_top_index
 ! 
 ! Former revisions:
@@ -298 +298 @@
 
     USE surface_mod,                                                           &
-        ONLY:  get_topography_top_index, init_bc
+        ONLY:  get_topography_top_index, get_topography_top_index_ji, init_bc
 
     USE vertical_nesting_mod,                                                  &
@@ -552 +552 @@
 !--          Topography height on scalar grid. Therefore, determine index of 
 !--          upward-facing surface element on scalar grid. 
-             zu_s_inner(i,j) = zu( get_topography_top_index( j, i, 's' ) )
+             zu_s_inner(i,j) = zu( get_topography_top_index_ji( j, i, 's' ) )
 !
 !--          Topography height on w grid. Therefore, determine index of 
 !--          upward-facing surface element on w grid.
-             zw_w_inner(i,j) = zw( get_topography_top_index( j, i, 's' ) )
+             zw_w_inner(i,j) = zw( get_topography_top_index_ji( j, i, 's' ) )
           ENDDO
        ENDDO
@@ -1471 +1471 @@
 
     USE surface_mod,                                                           &
-        ONLY:  get_topography_top_index
+        ONLY:  get_topography_top_index, get_topography_top_index_ji
 
     IMPLICIT NONE