Changeset 1322 for palm/trunk/SOURCE/user_3d_data_averaging.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/user_3d_data_averaging.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_3d_data_averaging.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL functions provided with KIND-attribute
 ! 
 ! Former revisions:
@@ -118 +118 @@
 !                DO  j = nysg, nyng
 !                   DO  k = nzb, nzt+1
-!                      u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d )
+!                      u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d, KIND=wp )
 !                   ENDDO
 !                ENDDO