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

palm/trunk/SOURCE/calc_mean_profile.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
 ! 
@@ -66 +70 @@
        USE indices,                                                            &
            ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt,          &
-                  wall_flags_static_0
+                  wall_flags_total_0
 
        USE kinds
@@ -110 +114 @@
                    sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)              &
                                      * MERGE( 1.0_wp, 0.0_wp,                  &
-                                              BTEST( wall_flags_static_0(k,j,i), 22 ) )
+                                          BTEST( wall_flags_total_0(k,j,i), 22 ) )
                 ENDDO
              ENDDO