Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    6969    minv = slicer_range_limits_dvrp(1,n_slicer)
    7070    maxv = slicer_range_limits_dvrp(2,n_slicer)
    71     meav = ( minv + maxv ) * 0.5
     71    meav = ( minv + maxv ) * 0.5_wp
    7272
    7373!
     
    7575!-- This table ranges from deep blue (min) to deep red (max)
    7676    DO  j = 1, 50
    77        interval_values_dvrp(1,j) = minv + (meav-minv) * (j-1.0) / 50.0
    78        interval_values_dvrp(2,j) = minv + (meav-minv) * (  j  ) / 50.0
    79        interval_h_dvrp(:,j) = 270.0 - ( j - 1.0 ) * 90.0 / 49.0
     77       interval_values_dvrp(1,j) = minv + (meav-minv) * ( j - 1.0_wp ) / 50.0_wp
     78       interval_values_dvrp(2,j) = minv + (meav-minv) * ( j )          / 50.0_wp
     79       interval_h_dvrp(:,j) = 270.0_wp - ( j - 1.0_wp ) * 90.0_wp / 49.0_wp
    8080    ENDDO
    8181
    8282    DO  j = 51, 100
    83        interval_values_dvrp(1,j) = meav + (maxv-meav) * (j-51.0) / 50.0
    84        interval_values_dvrp(2,j) = meav + (maxv-meav) * (j-50.0) / 50.0
    85        interval_h_dvrp(:,j) = 70.0 - ( j - 51.0 ) * 90.0 / 49.0
     83       interval_values_dvrp(1,j) = meav + (maxv-meav) * ( j - 51.0_wp ) / 50.0_wp
     84       interval_values_dvrp(2,j) = meav + (maxv-meav) * ( j - 50.0_wp ) / 50.0_wp
     85       interval_h_dvrp(:,j) = 70.0_wp - ( j - 51.0_wp ) * 90.0_wp / 49.0_wp
    8686    ENDDO
    8787
Note: See TracChangeset for help on using the changeset viewer.