Changeset 4329 for palm/trunk/SOURCE/vdi_internal_controls.f90

Timestamp:

Dec 10, 2019 3:46:36 PM (3 years ago)

Author:

motisi

Message:

Renamed wall_flags_0 to wall_flags_static_0

File:

• palm/trunk/SOURCE/vdi_internal_controls.f90 (modified) (10 diffs)

palm/trunk/SOURCE/vdi_internal_controls.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed wall_flags_0 to wall_flags_static_0
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! added "Authors" section
 ! 
@@ -80 +83 @@
                nzb,                         &
                nzt,                         &
-               wall_flags_0
+               wall_flags_static_0
 
     USE kinds
@@ -202 +205 @@
 !
 !--    If the grid point lies in a building, a new point is defined
-       DO WHILE ( .NOT. BTEST( wall_flags_0(cgp_k,cgp_j,cgp_i), 1 ) )
+       DO WHILE ( .NOT. BTEST( wall_flags_static_0(cgp_k,cgp_j,cgp_i), 1 ) )
           CALL RANDOM_NUMBER( random )
           cgp_k = cgp_k + FLOOR( ( nzt - cgp_k ) * random )   !< Random number upon cgp_k
@@ -451 +454 @@
        DO  j = nys, nyn
           DO  k = nzb+1, nzt+1
-             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), quant_type ) )
+             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), quant_type ) )
              quant_av_k_l(k) = quant_av_k_l(k) + quant(k,j,i) * flag
              count_2d_l(k)   = count_2d_l(k) + INT( flag, KIND=iwp )
@@ -479 +482 @@
                                 + ( quant(k,j,i) - quant_av_k(k) )**2 &
                                 * MERGE( 1.0_wp, 0.0_wp,              &
-                                         BTEST( wall_flags_0(k,j,i), quant_type ) )
+                                         BTEST( wall_flags_static_0(k,j,i), quant_type ) )
           ENDDO
        ENDDO
@@ -719 +722 @@
       DO  j = nys, nyn
          DO  k = nzb, nzt+1
-            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), quant_type ) )
+            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), quant_type ) )
             quant_av_l = quant_av_l + quant(k,j,i) * flag
             average_count_l = average_count_l + INT( flag, KIND=iwp )
@@ -771 +774 @@
                               + u(k,j,i) * dzw(k) * dy                  &
                               * MERGE( 1.0_wp, 0.0_wp,                  &
-                                       BTEST( wall_flags_0(k,j,i), 1 )  &
+                                       BTEST( wall_flags_static_0(k,j,i), 1 )  &
                                      )
           ENDDO
@@ -785 +788 @@
                               - u(k,j,i) * dzw(k) * dy                  &
                               * MERGE( 1.0_wp, 0.0_wp,                  &
-                                       BTEST( wall_flags_0(k,j,i), 1 )  &
+                                       BTEST( wall_flags_static_0(k,j,i), 1 )  &
                                      )
           ENDDO
@@ -800 +803 @@
                               + v(k,j,i) * dzw(k) * dx                  &
                               * MERGE( 1.0_wp, 0.0_wp,                  &
-                                       BTEST( wall_flags_0(k,j,i), 2 )  &
+                                       BTEST( wall_flags_static_0(k,j,i), 2 )  &
                                      )
           ENDDO
@@ -814 +817 @@
                               - v(k,j,i) * dzw(k) * dx                  &
                               * MERGE( 1.0_wp, 0.0_wp,                  &
-                                       BTEST( wall_flags_0(k,j,i), 2 )  &
+                                       BTEST( wall_flags_static_0(k,j,i), 2 )  &
                                      )
           ENDDO