Ignore:
Timestamp:
Apr 6, 2009 6:36:10 AM (12 years ago)
Author:
raasch
Message:

further dvr updates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

    r280 r284  
    1  SUBROUTINE set_slicer_attributes_dvrp
     1 SUBROUTINE set_slicer_attributes_dvrp( n_slicer )
    22
    33!------------------------------------------------------------------------------!
     
    2323    IMPLICIT NONE
    2424
    25 !    INTEGER :: 
    26 !    REAL    :: 
     25    INTEGER ::  j, n_slicer
     26    REAL    ::  maxv, meav, minv
     27
    2728
    2829!
    29 !-- Set particle color
     30!-- Set interval values to user settings.
     31!-- The middle of this interval defines the change from blue to yellow
     32    minv = slicer_range_limits_dvrp(1,n_slicer)
     33    maxv = slicer_range_limits_dvrp(2,n_slicer)
     34    meav = ( minv + maxv ) * 0.5
     35
     36!
     37!-- Create appropriate colortable with 100 entries.
     38!-- This table ranges from deep blue (min) to deep red (max)
     39    DO  j = 1, 50
     40       interval_values_dvrp(1,j) = minv + (meav-minv) * (j-1.0) / 50.0
     41       interval_values_dvrp(2,j) = minv + (meav-minv) * (  j  ) / 50.0
     42       interval_h_dvrp(:,j) = 270.0 - ( j - 1.0 ) * 90.0 / 49.0
     43    ENDDO
     44
     45    DO  j = 51, 100
     46       interval_values_dvrp(1,j) = meav + (maxv-meav) * (j-51.0) / 50.0
     47       interval_values_dvrp(2,j) = meav + (maxv-meav) * (j-50.0) / 50.0
     48       interval_h_dvrp(:,j) = 70.0 - ( j - 51.0 ) * 90.0 / 49.0
     49    ENDDO
     50
     51    dvrp_colourtable_entries = 100
    3052
    3153#endif
Note: See TracChangeset for help on using the changeset viewer.