Changeset 1353 for palm/trunk/SOURCE/data_output_profiles.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/data_output_profiles.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_profiles.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute
 ! 
 ! Former revisions:
@@ -104 +104 @@
 !
 !-- If required, compute temporal average
-    IF ( averaging_interval_pr == 0.0 )  THEN
+    IF ( averaging_interval_pr == 0.0_wp )  THEN
        hom_sum(:,:,:) = hom(:,1,:,:)
     ELSE
@@ -308 +308 @@
 !
 !-- If averaging has been done above, the summation counter must be re-set.
-    IF ( averaging_interval_pr /= 0.0 )  THEN
+    IF ( averaging_interval_pr /= 0.0_wp )  THEN
        average_count_pr = 0
     ENDIF