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

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix: REAL constants provided with KIND-attribute especially in call of 
+! intrinsic function like MAX, MIN, SIGN
 !
 ! Former revisions:
@@ -447 +448 @@
 !--          Radius should not fall below 1E-8 because Rosenbrock method may
 !--          lead to errors otherwise
-             new_r = MAX( new_r, 1.0E-8 )
+             new_r = MAX( new_r, 1.0E-8_wp )
 !
 !--          Check if calculated droplet radius change is reasonable since in