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

further dvr updates

File:
1 edited

Legend:

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

    r271 r284  
    66! -----------------
    77! +clip_dvrp_*, cluster_size, color_interval, dvrpsize_interval, dvrp_overlap,
    8 ! dvrp_total_overlap, local_dvrserver_running, n*_dvrp, interval_*_dvrp_prt,
    9 ! particle_color, particle_dvrpsize in dvrp_variables
     8! dvrp_total_overlap, groundplate_color, local_dvrserver_running, n*_dvrp,
     9! interval_*_dvrp_prt, isosurface_color, particle_color, particle_dvrpsize,
     10! topography color in dvrp_variables,
    1011! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
    1112! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b,
     
    563564                           dvrpsize_interval = (/ 0.0, 1.0 /)
    564565
     566    REAL, DIMENSION(3) ::  groundplate_color = (/ 0.0, 0.6, 0.0 /), &
     567                           topography_color = (/ 0.8, 0.7, 0.6 /)
     568
    565569#if defined( __decalpha )
    566570    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = (/ &
     
    568572                                -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    569573                                -1.0, 1.0, -1.0, 1.0 /)
     574
     575    REAL, DIMENSION(3,10)  ::  isosurface_color = (/ &
     576                                0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
     577                                0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
     578                                0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4  &
     579                                0.1, 0.4, 0.1 /)
    570580
    571581    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
     
    582592                                  interval_a_dvrp_prt = 0.0
    583593#else
    584     REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp
     594    REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
     595
     596    REAL, DIMENSION(3,10)     ::  isosurface_color
    585597
    586598    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
     
    595607                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    596608                                     -1.0, 1.0 /
     609
     610    DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
     611                             0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
     612                             0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
     613                             0.1, 0.4, 0.1 /
    597614
    598615    DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
Note: See TracChangeset for help on using the changeset viewer.