Changeset 2812 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Feb 16, 2018 1:40:25 PM (6 years ago)

Author:

hellstea

Message:

Bugfixes in computation of the interpolation loglaw-correction parameters

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Entries 'u_out', 'v_out' and 'w_out' removed from the functions
+! get_topography_top_index and get_topography_top_index_ji  
+! 
+! 2805 2018-02-14 17:00:09Z suehring
 ! Bugfix in re-mapping surface elements in case of restart runs 
 ! 
@@ -2103 +2107 @@
           CASE ( 's_out' )
              ibit = 24
-          CASE ( 'u_out' )
-             ibit = 26
-          CASE ( 'v_out' )
-             ibit = 27
-          CASE ( 'w_out' )
-             ibit = 28
           CASE DEFAULT
 !
@@ -2151 +2149 @@
           CASE ( 's_out' )
              ibit = 24
-          CASE ( 'u_out' )
-             ibit = 26
-          CASE ( 'v_out' )
-             ibit = 27
-          CASE ( 'w_out' )
-             ibit = 28
           CASE DEFAULT
 !