Changeset 1346 for palm/trunk/SOURCE/inflow_turbulence.f90

Timestamp:

Mar 27, 2014 1:18:20 PM (10 years ago)

Author:

heinze

Message:

Bugfix: REAL constants provided with KIND-attribute especially in call of intrinsic function like MAX, MIN, SIGN

File:

• palm/trunk/SOURCE/inflow_turbulence.f90 (modified) (1 diff)

palm/trunk/SOURCE/inflow_turbulence.f90

@@ -214 +214 @@
               e(k,j,-nbgp:-1)  = mean_inflow_profiles(k,5) + &
                            inflow_dist(k,j,5,1:nbgp) * inflow_damping_factor(k)
-              e(k,j,-nbgp:-1)  = MAX( e(k,j,-nbgp:-1), 0.0 )
+              e(k,j,-nbgp:-1)  = MAX( e(k,j,-nbgp:-1), 0.0_wp )
 
           ENDDO