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

palm/trunk/SOURCE/inflow_turbulence.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute 
 !
 ! Former revisions:
@@ -90 +90 @@
 !
 !-- Carry out spanwise averaging in the recycling plane
-    avpr_l = 0.0
+    avpr_l = 0.0_wp
     ngp_pr = ( nzt - nzb + 2 ) * 5 * nbgp
     ngp_ifd = ngp_pr * ( nyn - nys + 1 + 2 * nbgp )
@@ -192 +192 @@
     ELSEIF ( myidx /= id_recycling  .AND.  myidx == id_inflow )  THEN
 
-       inflow_dist = 0.0
+       inflow_dist = 0.0_wp
        CALL MPI_RECV( inflow_dist(nzb,nysg,1,1), ngp_ifd, MPI_REAL, &
                       id_recycling, 1, comm1dx, status, ierr )