Changeset 2346 for palm

Timestamp:

Aug 9, 2017 4:39:17 PM (7 years ago)

Author:

suehring

Message:

Determination of topography-top index corrected

File:

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

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, correct determination of topography top index
+! 
+! 2318 2017-07-20 17:27:44Z suehring
 ! Get topography top index via Function call 
 !
@@ -729 +732 @@
 !--                            Determine surface level. Therefore, check for
 !--                            upward-facing wall on w-grid. 
-                               k_surf = get_topography_top_index( j, i, 'w' )
+                               k_surf = get_topography_top_index( jp, ip, 'w' )
 
                                IF ( seed_follows_topography )  THEN