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

palm/trunk/SOURCE/lpm_collision_kernels.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: REAL constants provided with KIND-attribute especially in call of 
+! intrinsic function like MAX, MIN, SIGN
 !
 ! Former revisions:
@@ -840 +841 @@
                 qq = ( rq - rat(iq-1) ) / ( rat(iq) - rat(iq-1) )
                 ek = ( 1.0 - qq ) * ecoll(15,iq-1) + qq * ecoll(15,iq)
-                ec(j,i) = MIN( ek, 1.0 )
+                ec(j,i) = MIN( ek, 1.0_wp )
              ENDIF