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

Timestamp:

Mar 21, 2009 8:14:44 AM (15 years ago)

Author:

raasch

Message:

new dvrp features added

File:

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

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! +clip_dvrp_*, cluster_size, dvrp_overlap, dvrp_total_overlap,
-! local_dvrserver_running, n*_dvrp in dvrp_variables
+! +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
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
 ! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b, 
@@ -527 +528 @@
 !------------------------------------------------------------------------------!
 
-    CHARACTER (LEN=10) ::  dvrp_output = 'rtsp'
+    CHARACTER (LEN=10) ::  dvrp_output = 'rtsp', particle_color = 'none', &
+                           particle_dvrpsize = 'none'
 
     CHARACTER (LEN=20), DIMENSION(10) ::  mode_dvrp = &
@@ -538 +540 @@
                            dvrp_username  = ' '
 
-    INTEGER ::  cluster_size = 1, dvrp_colourtable_entries = 4, islice_dvrp,   &
+    INTEGER ::  cluster_size = 1, dvrp_colortable_entries = 4,                 &
+                dvrp_colortable_entries_prt = 22, islice_dvrp,                 &
                 nx_dvrp, nxl_dvrp, nxr_dvrp, ny_dvrp, nyn_dvrp, nys_dvrp,      &
                 nz_dvrp, pathlines_fadeintime = 5, pathlines_fadeouttime = 5,  &
@@ -557 +560 @@
                 superelevation_y = 1.0, vc_alpha = 38.0
 
+    REAL, DIMENSION(2) ::  color_interval = (/ 0.0, 1.0 /), &
+                           dvrpsize_interval = (/ 0.0, 1.0 /)
+
 #if defined( __decalpha )
     REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = (/ &
@@ -563 +569 @@
                                 -1.0, 1.0, -1.0, 1.0 /)
 
-    REAL/4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
+    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
                                   (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
                                      25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
                                   interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
-                                  interval_a_dvrp = 0.0
+                                  interval_a_dvrp = 0.0,                       &
+                                  interval_values_dvrp_prt,                    &
+                                  interval_h_dvrp_prt,                         &
+                                  (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
+                                     25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
+                                  interval_l_dvrp_prt = 0.5,                   &
+                                  interval_s_dvrp_prt = 1.0,                   &
+                                  interval_a_dvrp_prt = 0.0
 #else
     REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp
 
-    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp,       &
-                                  interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
-                                  interval_a_dvrp = 0.0
+    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
+                                  interval_values_dvrp_prt, interval_h_dvrp,  &
+                                  interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
+                                  interval_l_dvrp_prt, interval_s_dvrp = 1.0, &
+                                  interval_s_dvrp_prt, interval_a_dvrp = 0.0, &
+                                  interval_a_dvrp_prt
 
     DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &