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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in get_topography_top_index
 ! 
 ! Former revisions:
@@ -410 +410 @@
 
     USE surface_mod,                                                           &
-        ONLY:  surf_def_h, get_topography_top_index
+        ONLY:  surf_def_h, get_topography_top_index_ji
 
     USE synthetic_turbulence_generator_mod,                                    &
@@ -993 +993 @@
        WRITE( io, 280 ) 
        IF ( turbulent_inflow )  THEN
-          WRITE( io, 281 )  zu( get_topography_top_index( 0, 0, 's' ) )
+          WRITE( io, 281 )  zu( get_topography_top_index_ji( 0, 0, 's' ) )
        ENDIF
        IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN