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

Timestamp:

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

Author:

motisi

Message:

Renamed wall_flags_0 to wall_flags_static_0

File:

• palm/trunk/SOURCE/disturb_field.f90 (modified) (3 diffs)

palm/trunk/SOURCE/disturb_field.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed wall_flags_0 to wall_flags_static_0
+! 
+! 4237 2019-09-25 11:33:42Z knoop
 ! Added missing OpenMP directives
 ! 
@@ -59 +62 @@
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_max, &
-               nzt, wall_flags_0
+               nzt, wall_flags_static_0
         
     USE kinds
@@ -214 +217 @@
              DO  k = nzb, nzb_max
                 dist1(k,j,i) = MERGE( dist1(k,j,i), 0.0_wp,                    &
-                                      BTEST( wall_flags_0(k,j,i), flag_nr )    &
+                                      BTEST( wall_flags_static_0(k,j,i), flag_nr )    &
                                     )
              ENDDO