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

palm/trunk/SOURCE/data_output_2d.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
+! 
+! 4331 2019-12-10 18:25:02Z suehring
 ! Move 2-m potential temperature output to diagnostic_output_quantities
 ! 
@@ -103 +107 @@
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg,       &
-               nzb, nzt, wall_flags_static_0
+               nzb, nzt, wall_flags_total_0
 
     USE kinds
@@ -1154 +1158 @@
                    DO  k = nzb_do, nzt_do
                       local_pf(i,j,k) = MERGE( to_be_resorted(k,j,i),          &
-                                               REAL( fill_value, KIND = wp ),  &
-                                               BTEST( wall_flags_static_0(k,j,i),     &
-                                                      flag_nr ) ) 
+                                           REAL( fill_value, KIND = wp ),      &
+                                           BTEST( wall_flags_total_0(k,j,i),   &
+                                                  flag_nr ) ) 
                    ENDDO
                 ENDDO