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

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $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
 ! 
@@ -124 +128 @@
 
     USE indices,                                                               &
-        ONLY:  nzb, nzt, nxl, nxr, nys, nyn, nx, ny, topo_top_ind, wall_flags_static_0
+        ONLY:  nzb, nzt, nxl, nxr, nys, nyn, nx, ny, topo_top_ind,             &
+               wall_flags_total_0
 
     USE kinds
@@ -783 +788 @@
                       DO  j = js-1, js+1
                          DO  k = kl, ku
-                            meas_flag(k,j,i) = MERGE(                          &
-                                             IBSET( meas_flag(k,j,i), 0 ),     &
-                                             0,                                &
-                                             BTEST( wall_flags_static_0(k,j,i), 0 )   &
+                            meas_flag(k,j,i) = MERGE(                              &
+                                             IBSET( meas_flag(k,j,i), 0 ),         &
+                                             0,                                    &
+                                             BTEST( wall_flags_total_0(k,j,i), 0 ) &
                                                     )
                          ENDDO