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

Timestamp:

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

Author:

raasch

Message:

further dvr updates

File:

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

palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

@@ -1 @@
- SUBROUTINE set_slicer_attributes_dvrp
+ SUBROUTINE set_slicer_attributes_dvrp( n_slicer )
 
 !------------------------------------------------------------------------------!
@@ -23 +23 @@
     IMPLICIT NONE
 
-!    INTEGER ::  
-!    REAL    ::  
+    INTEGER ::  j, n_slicer
+    REAL    ::  maxv, meav, minv
+
 
 !
-!-- Set particle color
+!-- Set interval values to user settings.
+!-- The middle of this interval defines the change from blue to yellow
+    minv = slicer_range_limits_dvrp(1,n_slicer)
+    maxv = slicer_range_limits_dvrp(2,n_slicer)
+    meav = ( minv + maxv ) * 0.5
+
+!
+!-- Create appropriate colortable with 100 entries.
+!-- This table ranges from deep blue (min) to deep red (max)
+    DO  j = 1, 50
+       interval_values_dvrp(1,j) = minv + (meav-minv) * (j-1.0) / 50.0
+       interval_values_dvrp(2,j) = minv + (meav-minv) * (  j  ) / 50.0
+       interval_h_dvrp(:,j) = 270.0 - ( j - 1.0 ) * 90.0 / 49.0
+    ENDDO
+
+    DO  j = 51, 100
+       interval_values_dvrp(1,j) = meav + (maxv-meav) * (j-51.0) / 50.0
+       interval_values_dvrp(2,j) = meav + (maxv-meav) * (j-50.0) / 50.0
+       interval_h_dvrp(:,j) = 70.0 - ( j - 51.0 ) * 90.0 / 49.0
+    ENDDO
+
+    dvrp_colourtable_entries = 100
 
 #endif