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

palm/trunk/SOURCE/disturb_heatflux.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
-! 
+! ------------------
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -79 +79 @@
     DO  i = 0, nx
        DO  j = 0, ny
-          randomnumber = random_gauss( iran, 5.0 )
+          randomnumber = random_gauss( iran, 5.0_wp )
           IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j )   &
           THEN