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

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! REAL constants provided with KIND-attribute
 ! 
 ! Former revisions:
@@ -257 +257 @@
                       DO  k = nzb, nz_do3d
                          psi = prt_start_index(k,j,i)
-                         s_r3 = 0.0
-                         s_r4 = 0.0
+                         s_r3 = 0.0_wp
+                         s_r4 = 0.0_wp
                          DO  n = psi, psi+prt_count(k,j,i)-1
                          s_r3 = s_r3 + particles(n)%radius**3 *                &
@@ -265 +265 @@
                                        particles(n)%weight_factor
                          ENDDO
-                         IF ( s_r3 /= 0.0 )  THEN
+                         IF ( s_r3 /= 0.0_wp )  THEN
                             mean_r = s_r4 / s_r3
                          ELSE
-                            mean_r = 0.0
+                            mean_r = 0.0_wp
                          ENDIF
                          tend(k,j,i) = mean_r