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

palm/trunk/SOURCE/init_advec.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: REAL constants provided with KIND-attribute especially in call of 
+! intrinsic function like MAX, MIN, SIGN
 !
 ! Former revisions:
@@ -111 +112 @@
           ENDDO
 
-          IF ( sterm < 0.5 )  dn = MAX(  2.95E-2, dn )
-          IF ( sterm > 0.5 )  dn = MIN( -2.95E-2, dn )
+          IF ( sterm < 0.5 )  dn = MAX(  2.95E-2_wp, dn )
+          IF ( sterm > 0.5 )  dn = MIN( -2.95E-2_wp, dn )
           ex1 = EXP( -dn )
           ex2 = EXP( dn ) - ex1