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

Timestamp:

Dec 14, 2017 6:46:24 PM (7 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/microphysics_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/microphysics_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix in get_topography_top_index
 ! 
 ! Former revisions:
@@ -928 +928 @@
 
        USE surface_mod,                                                        &
-           ONLY:  get_topography_top_index
+           ONLY:  get_topography_top_index_ji
 
 
@@ -945 +945 @@
 !
 !--          Determine vertical index of topography top
-             k_wall = get_topography_top_index( j, i, 's' )
+             k_wall = get_topography_top_index_ji( j, i, 's' )
              DO  k = nzb+1, nzt
 !
@@ -2319 +2319 @@
 
        USE surface_mod,                                                        &
-           ONLY:  get_topography_top_index
+           ONLY:  get_topography_top_index_ji
 
 
@@ -2334 +2334 @@
 !
 !--    Determine vertical index of topography top
-       k_wall = get_topography_top_index( j, i, 's' )
+       k_wall = get_topography_top_index_ji( j, i, 's' )
        DO  k = nzb+1, nzt
 !