Ignore:
Timestamp:
Apr 6, 2016 1:49:59 PM (5 years ago)
Author:
raasch
Message:

cpp-switches removed + cpp-bugfixes + zero-settings for velocities inside topography re-activated

File:
1 edited

Legend:

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

    r1809 r1815  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! cpp-directive for decalpha removed
    2222!
    2323! Former revisions:
     
    926926                               topography_color = (/ 0.8_wp, 0.7_wp, 0.6_wp /)
    927927
    928 #if defined( __decalpha )
    929     REAL(wp), DIMENSION(2,10)  ::  slicer_range_limits_dvrp = RESHAPE( (/      &
    930                                    -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, &
    931                                    -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, &
    932                                    -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp /), (/ 2, 10 /) )
    933 
    934     REAL(wp), DIMENSION(3,10)  ::  isosurface_color = RESHAPE( (/                 &
    935                                    0.9_wp, 0.9_wp, 0.9_wp,  0.8_wp, 0.1_wp, 0.1_wp,  0.1_wp, 0.1_wp, 0.8_wp, &
    936                                    0.1_wp, 0.8_wp, 0.1_wp,  0.6_wp, 0.1_wp, 0.1_wp,  0.1_wp, 0.1_wp, 0.6_wp, &
    937                                    0.1_wp, 0.6_wp, 0.1_wp,  0.4_wp, 0.1_wp, 0.1_wp,  0.1_wp, 0.1_wp, 0.4_wp, &
    938                                    0.1_wp, 0.4_wp, 0.1_wp /), (/ 3, 10 /) )
    939 
    940     REAL(sp), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
    941                                    RESHAPE( (/ 270.0_sp, 225.0_sp, 225.0_sp, 180.0_sp,      &
    942                                                 70.0_sp,  25.0_sp,  25.0_sp, -25.0_sp,      &
    943                                                ( 0.0_sp, i9 = 1, 192 ) /),         &
    944                                             (/ 2, 100 /) ),                     &
    945                                    interval_l_dvrp = 0.5_sp, interval_s_dvrp = 1.0_sp,&
    946                                    interval_a_dvrp = 0.0_sp,                       &
    947                                    interval_values_dvrp_prt,                    &
    948                                    interval_h_dvrp_prt = RESHAPE(               &
    949                                    (/ 270.0_sp, 225.0_sp, 225.0_sp, 180.0_sp, 70.0_sp, 25.0_sp,   &
    950                                       25.0_sp, -25.0_sp, ( 0.0_sp, i9 = 1, 192 ) /),     &
    951                                                    (/ 2, 100 /) ),              &
    952                                    interval_l_dvrp_prt = 0.5_sp,                   &
    953                                    interval_s_dvrp_prt = 1.0_sp,                   &
    954                                    interval_a_dvrp_prt = 0.0_sp
    955 #else
    956928    REAL(wp), DIMENSION(2,10)     ::  slicer_range_limits_dvrp
    957929
     
    980952    DATA  interval_h_dvrp_prt / 270.0_wp, 225.0_wp, 225.0_wp, 180.0_wp, 70.0_wp, 25.0_wp, &
    981953                                25.0_wp, -25.0_wp, 192 * 0.0_wp /
    982 #endif
    983954
    984955    REAL(sp), DIMENSION(:), ALLOCATABLE ::  xcoor_dvrp, ycoor_dvrp, zcoor_dvrp
Note: See TracChangeset for help on using the changeset viewer.