Changeset 1322 for palm/trunk/SOURCE/lpm_droplet_condensation.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/lpm_droplet_condensation.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -153 +153 @@
  
 !-- Parameters for Rosenbrock method
-    REAL(wp), PARAMETER ::  a21 = 2.0          !:
-    REAL(wp), PARAMETER ::  a31 = 48.0/25.0    !:
-    REAL(wp), PARAMETER ::  a32 = 6.0/25.0     !:
-    REAL(wp), PARAMETER ::  b1 = 19.0/9.0      !:
-    REAL(wp), PARAMETER ::  b2 = 0.5           !:
-    REAL(wp), PARAMETER ::  b3 = 25.0/108.0    !:
-    REAL(wp), PARAMETER ::  b4 = 125.0/108.0   !:
-    REAL(wp), PARAMETER ::  c21 = -8.0         !:
-    REAL(wp), PARAMETER ::  c31 = 372.0/25.0   !:
-    REAL(wp), PARAMETER ::  c32 = 12.0/5.0     !:
-    REAL(wp), PARAMETER ::  c41 = -112.0/125.0 !:
-    REAL(wp), PARAMETER ::  c42 = -54.0/125.0  !:
-    REAL(wp), PARAMETER ::  c43 = -2.0/5.0     !:
-    REAL(wp), PARAMETER ::  errcon = 0.1296    !:
-    REAL(wp), PARAMETER ::  e1 = 17.0/54.0     !:
-    REAL(wp), PARAMETER ::  e2 = 7.0/36.0      !:
-    REAL(wp), PARAMETER ::  e3 = 0.0           !:
-    REAL(wp), PARAMETER ::  e4 = 125.0/108.0   !:
-    REAL(wp), PARAMETER ::  gam = 0.5          !:
-    REAL(wp), PARAMETER ::  grow = 1.5         !:
-    REAL(wp), PARAMETER ::  pgrow = -0.25      !:
-    REAL(wp), PARAMETER ::  pshrnk = -1.0/3.0  !:
-    REAL(wp), PARAMETER ::  shrnk = 0.5        !:
+    REAL(wp), PARAMETER ::  a21 = 2.0             !:
+    REAL(wp), PARAMETER ::  a31 = 48.0/25.0_wp    !:
+    REAL(wp), PARAMETER ::  a32 = 6.0/25.0_wp     !:
+    REAL(wp), PARAMETER ::  b1 = 19.0/9.0_wp      !:
+    REAL(wp), PARAMETER ::  b2 = 0.5              !:
+    REAL(wp), PARAMETER ::  b3 = 25.0/108.0_wp    !:
+    REAL(wp), PARAMETER ::  b4 = 125.0/108.0_wp   !:
+    REAL(wp), PARAMETER ::  c21 = -8.0            !:
+    REAL(wp), PARAMETER ::  c31 = 372.0/25.0_wp   !:
+    REAL(wp), PARAMETER ::  c32 = 12.0/5.0_wp     !:
+    REAL(wp), PARAMETER ::  c41 = -112.0/125.0_wp !:
+    REAL(wp), PARAMETER ::  c42 = -54.0/125.0_wp  !:
+    REAL(wp), PARAMETER ::  c43 = -2.0/5.0_wp     !:
+    REAL(wp), PARAMETER ::  errcon = 0.1296       !:
+    REAL(wp), PARAMETER ::  e1 = 17.0/54.0_wp     !:
+    REAL(wp), PARAMETER ::  e2 = 7.0/36.0_wp      !:
+    REAL(wp), PARAMETER ::  e3 = 0.0              !:
+    REAL(wp), PARAMETER ::  e4 = 125.0/108.0_wp   !:
+    REAL(wp), PARAMETER ::  gam = 0.5             !:
+    REAL(wp), PARAMETER ::  grow = 1.5            !:
+    REAL(wp), PARAMETER ::  pgrow = -0.25         !:
+    REAL(wp), PARAMETER ::  pshrnk = -1.0/3.0_wp  !:
+    REAL(wp), PARAMETER ::  shrnk = 0.5           !: