Changeset 114 for palm/trunk/SOURCE/modules.f90

Timestamp:

Oct 10, 2007 12:03:15 AM (17 years ago)

Author:

raasch

Message:

preliminary updates for implementing buildings in poismg

File:

• palm/trunk/SOURCE/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +flags, wall_flags_1..10
 !
 ! Former revisions:
@@ -589 +589 @@
                 nzb_v_outer, nzb_w_inner, nzb_w_outer, nzb_2d
 
+    INTEGER, DIMENSION(:,:,:), POINTER ::  flags
+
+    INTEGER, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::  wall_flags_1,           &
+                wall_flags_2, wall_flags_3, wall_flags_4, wall_flags_5,        &
+                wall_flags_6, wall_flags_7, wall_flags_8, wall_flags_9,        &
+                wall_flags_10
+
     SAVE