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

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed wall_flags_0 to wall_flags_static_0
+! 
+! 4287 2019-11-01 14:50:20Z raasch
 ! reading of namelist file and actions in case of namelist errors revised so that statement labels
 ! and goto statements are not required any more; this revision also removes a previous bug
@@ -1050 +1053 @@
 !                                     * rmask(j,i,sr)                          &
 !                                     * MERGE( 1.0_wp, 0.0_wp,                 &
-!                                              BTEST( wall_flags_0(k,j,i), 0 ) )
+!                                              BTEST( wall_flags_static_0(k,j,i), 0 ) )
 !!
 !!--             Further profiles can be defined and calculated by increasing