Ignore:
Timestamp:
Nov 6, 2008 8:54:02 AM (13 years ago)
Author:
raasch
Message:

updates in dvr routines for new dvr version

File:
1 edited

Legend:

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

    r206 r210  
    55! Actual revisions:
    66! -----------------
    7 ! +target_id
     7! some dvrp-variables changed to single precision, variables for dvrp-mode
     8! pathlines added, +target_id
    89!
    910! Former revisions:
     
    521522                           dvrp_username  = ' '
    522523
    523     INTEGER ::  dvrp_colourtable_entries = 4, islice_dvrp, nx_dvrp, ny_dvrp, &
    524                 nz_dvrp
     524    INTEGER ::  dvrp_colourtable_entries = 4, islice_dvrp, nx_dvrp, ny_dvrp,  &
     525                nz_dvrp, pathlines_fadeintime = 5, pathlines_fadeouttime = 5, &
     526                pathlines_linecount = 1000, pathlines_maxhistory = 40,        &
     527                pathlines_wavecount = 10, pathlines_wavetime = 50,            &
     528                vc_gradient_normals = 0, vc_mode = 0, vc_size_x = 2,          &
     529                vc_size_y = 2, vc_size_z = 2
    525530
    526531    INTEGER, DIMENSION(10) ::  slicer_position_dvrp
     
    530535
    531536    REAL    ::  superelevation = 1.0, superelevation_x = 1.0, &
    532                 superelevation_y = 1.0
     537                superelevation_y = 1.0, vc_alpha = 38.0
    533538
    534539#if defined( __decalpha )
     
    538543                                -1.0, 1.0, -1.0, 1.0 /)
    539544
    540     REAL, DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =       &
    541                                (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,    &
    542                                   25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),      &
    543                                interval_l_dvrp = 0.5, interval_s_dvrp = 1.0, &
    544                                interval_a_dvrp = 0.0
     545    REAL/4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
     546                                  (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
     547                                     25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
     548                                  interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
     549                                  interval_a_dvrp = 0.0
    545550#else
    546551    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp
    547552
    548     REAL, DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp,        &
    549                                interval_l_dvrp = 0.5, interval_s_dvrp = 1.0, &
    550                                interval_a_dvrp = 0.0
     553    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp,       &
     554                                  interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
     555                                  interval_a_dvrp = 0.0
    551556
    552557    DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
     
    559564#endif
    560565
    561     REAL, DIMENSION(:), ALLOCATABLE ::  xcoor_dvrp, ycoor_dvrp, zcoor_dvrp
     566    REAL(4), DIMENSION(:), ALLOCATABLE ::  xcoor_dvrp, ycoor_dvrp, zcoor_dvrp
    562567
    563568    TYPE steering
    564569       CHARACTER (LEN=20) ::  name
    565        REAL               ::  min, max
     570       REAL(4)            ::  min, max
    566571       INTEGER            ::  imin, imax
    567572    END TYPE steering
Note: See TracChangeset for help on using the changeset viewer.