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

palm/trunk/SOURCE/surface_mod.f90

@@ -391 +391 @@
     PRIVATE
 
-    INTERFACE get_topography_top_index
-       MODULE PROCEDURE get_topography_top_index
-       MODULE PROCEDURE get_topography_top_index_ji
-    END  INTERFACE get_topography_top_index
-
     INTERFACE init_bc
        MODULE PROCEDURE init_bc
@@ -431 +426 @@
 !
 !-- Public subroutines and functions
-    PUBLIC get_topography_top_index, init_bc, init_surfaces,                   &
+    PUBLIC get_topography_top_index, get_topography_top_index_ji, init_bc,     &
+           init_surfaces,                                                      &
            init_surface_arrays, surface_read_restart_data,                     & 
            surface_restore_elements, surface_write_restart_data,               &