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

Timestamp:

Apr 6, 2009 6:36:10 AM (15 years ago)

Author:

raasch

Message:

further dvr updates

File:

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

palm/trunk/SOURCE/modules.f90

@@ -6 +6 @@
 ! -----------------
 ! +clip_dvrp_*, cluster_size, color_interval, dvrpsize_interval, dvrp_overlap,
-! dvrp_total_overlap, local_dvrserver_running, n*_dvrp, interval_*_dvrp_prt,
-! particle_color, particle_dvrpsize in dvrp_variables
+! dvrp_total_overlap, groundplate_color, local_dvrserver_running, n*_dvrp,
+! interval_*_dvrp_prt, isosurface_color, particle_color, particle_dvrpsize,
+! topography color in dvrp_variables,
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
 ! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b, 
@@ -563 +564 @@
                            dvrpsize_interval = (/ 0.0, 1.0 /)
 
+    REAL, DIMENSION(3) ::  groundplate_color = (/ 0.0, 0.6, 0.0 /), &
+                           topography_color = (/ 0.8, 0.7, 0.6 /)
+
 #if defined( __decalpha )
     REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = (/ &
@@ -568 +572 @@
                                 -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
                                 -1.0, 1.0, -1.0, 1.0 /)
+
+    REAL, DIMENSION(3,10)  ::  isosurface_color = (/ &
+                                0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
+                                0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
+                                0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4  &
+                                0.1, 0.4, 0.1 /)
 
     REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
@@ -582 +592 @@
                                   interval_a_dvrp_prt = 0.0
 #else
-    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp
+    REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
+
+    REAL, DIMENSION(3,10)     ::  isosurface_color
 
     REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
@@ -595 +607 @@
                                      -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
                                      -1.0, 1.0 /
+
+    DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
+                             0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
+                             0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
+                             0.1, 0.4, 0.1 /
 
     DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &