Changeset 1353 for palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90 (modified) (3 diffs)

palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -69 +69 @@
     minv = slicer_range_limits_dvrp(1,n_slicer)
     maxv = slicer_range_limits_dvrp(2,n_slicer)
-    meav = ( minv + maxv ) * 0.5
+    meav = ( minv + maxv ) * 0.5_wp
 
 !
@@ -75 +75 @@
 !-- This table ranges from deep blue (min) to deep red (max)
     DO  j = 1, 50
-       interval_values_dvrp(1,j) = minv + (meav-minv) * (j-1.0) / 50.0
-       interval_values_dvrp(2,j) = minv + (meav-minv) * (  j  ) / 50.0
-       interval_h_dvrp(:,j) = 270.0 - ( j - 1.0 ) * 90.0 / 49.0
+       interval_values_dvrp(1,j) = minv + (meav-minv) * ( j - 1.0_wp ) / 50.0_wp
+       interval_values_dvrp(2,j) = minv + (meav-minv) * ( j )          / 50.0_wp
+       interval_h_dvrp(:,j) = 270.0_wp - ( j - 1.0_wp ) * 90.0_wp / 49.0_wp
     ENDDO
 
     DO  j = 51, 100
-       interval_values_dvrp(1,j) = meav + (maxv-meav) * (j-51.0) / 50.0
-       interval_values_dvrp(2,j) = meav + (maxv-meav) * (j-50.0) / 50.0
-       interval_h_dvrp(:,j) = 70.0 - ( j - 51.0 ) * 90.0 / 49.0
+       interval_values_dvrp(1,j) = meav + (maxv-meav) * ( j - 51.0_wp ) / 50.0_wp
+       interval_values_dvrp(2,j) = meav + (maxv-meav) * ( j - 50.0_wp ) / 50.0_wp
+       interval_h_dvrp(:,j) = 70.0_wp - ( j - 51.0_wp ) * 90.0_wp / 49.0_wp
     ENDDO