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

Timestamp:

Dec 18, 2019 11:55:56 AM (5 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/data_output_3d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_3d.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
 ! 
@@ -98 +102 @@
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,     &
-               wall_flags_static_0
+               wall_flags_total_0
 #else
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
-               nzt, wall_flags_static_0
+               nzt, wall_flags_total_0
 #endif
 
@@ -623 +627 @@
                                       to_be_resorted(k,j,i),                   &
                                       REAL( fill_value, KIND = wp ),           &
-                                      BTEST( wall_flags_static_0(k,j,i), flag_nr ) )
+                                      BTEST( wall_flags_total_0(k,j,i), flag_nr ) )
                 ENDDO
              ENDDO