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

palm/trunk/SOURCE/poismg_noopt_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed wall_flags_0 to wall_flags_static_0
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -1652 +1655 @@
        USE indices,                                                            &
            ONLY:  flags, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzb, nzt_mg,          &
-                  wall_flags_0, wall_flags_1,                                  &
+                  wall_flags_static_0, wall_flags_1,                                  &
                   wall_flags_10, wall_flags_2, wall_flags_3,  wall_flags_4,    &
                   wall_flags_5, wall_flags_6, wall_flags_7, wall_flags_8,      &
@@ -1736 +1739 @@
                 DO  j = nys_l, nyn_l
                    DO  k = nzb, nzt_l
-                      topo_tmp(k,j,i) = wall_flags_0(k*inc,j*inc,i*inc)
+                      topo_tmp(k,j,i) = wall_flags_static_0(k*inc,j*inc,i*inc)
                    ENDDO
                 ENDDO