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

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -1193 +1193 @@
           dptdz(k) = ( hom(k,1,4,sr) - hom(k-1,1,4,sr) ) * ddzu(k)
        ENDDO
-       dptdz_threshold = 0.2 / 100.0
+       dptdz_threshold = 0.2_wp / 100.0_wp
 
        IF ( ocean )  THEN
@@ -2859 +2859 @@
           dptdz(k) = ( hom(k,1,4,sr) - hom(k-1,1,4,sr) ) * ddzu(k)
        ENDDO
-       dptdz_threshold = 0.2 / 100.0
+       dptdz_threshold = 0.2_wp / 100.0_wp
 
        IF ( ocean )  THEN