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

palm/trunk/SOURCE/temperton_fft.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind
 ! 
 ! Former revisions:
@@ -1174 +1174 @@
     je = jd + 2*m*inc2
     z = 1.0_wp/REAL(n)
-    zsin45 = z*SQRT(0.5)
+    zsin45 = z*SQRT(0.5_wp)
 
     DO l = 1, la
@@ -1628 +1628 @@
 80  CONTINUE
     ibase = 0
-    sin45 = SQRT(0.5)
+    sin45 = SQRT(0.5_wp)
     DO l = 1, la
        i = ibase