Changeset 1322 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/init_dvrp.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -710 +710 @@
 !--       Define a default colourtable for particles
           DO  i = 1, 11
-             interval_values_dvrp_prt(1,i) = i - 1.0
-             interval_values_dvrp_prt(2,i) = REAL( i )
-             interval_h_dvrp_prt(:,i) = 270.0 - ( i - 1.0 ) * 9.0
+             interval_values_dvrp_prt(1,i) = i - 1.0_wp
+             interval_values_dvrp_prt(2,i) = REAL( i, KIND=wp )
+             interval_h_dvrp_prt(:,i) = 270.0_wp - ( i - 1.0_wp ) * 9.0_wp
           ENDDO
 
           DO  i = 12, 22
-             interval_values_dvrp_prt(1,i) = i - 1.0
-             interval_values_dvrp_prt(2,i) = REAL( i )
-             interval_h_dvrp_prt(:,i) = 70.0 - ( i - 12.0 ) * 9.5
+             interval_values_dvrp_prt(1,i) = i - 1.0_wp
+             interval_values_dvrp_prt(2,i) = REAL( i, KIND=wp )
+             interval_h_dvrp_prt(:,i) = 70.0_wp - ( i - 12.0_wp ) * 9.5_wp
           ENDDO