Changeset 4346 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Dec 18, 2019 11:55:56 AM (4 years ago)

Author:

motisi

Message:

Introduction of wall_flags_total_0, which currently sets bits based on static topography information used in wall_flags_static_0

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Introduction of wall_flags_total_0, which currently sets bits based on static
+! topography information used in wall_flags_static_0
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -481 +485 @@
 
     USE indices,                                                               &
-        ONLY:  nxl, nxr, nyn, nys, nzb, nzt, wall_flags_static_0
+        ONLY:  nxl, nxr, nyn, nys, nzb, nzt, wall_flags_total_0
 
     USE grid_variables,                                                        &
@@ -671 +675 @@
 !
 !--             Check if grid point belongs to a building. 
-                IF ( BTEST( wall_flags_static_0(k,j,i), 6 ) )  THEN
+                IF ( BTEST( wall_flags_total_0(k,j,i), 6 ) )  THEN
                    k_min_l(nb) = MIN( k_min_l(nb), k )
                    k_max_l(nb) = MAX( k_max_l(nb), k )