Changeset 1353 for palm/trunk/SOURCE/calc_precipitation.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/calc_precipitation.f90 (modified) (5 diffs)

palm/trunk/SOURCE/calc_precipitation.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -90 +90 @@
        REAL(wp)    ::  dqdt_precip !:
 
-       precipitation_rate = 0.0
+       precipitation_rate = 0.0_wp
 
        DO  i = nxl, nxr
@@ -99 +99 @@
                    dqdt_precip = prec_time_const * ( ql(k,j,i) - ql_crit )
                 ELSE
-                   dqdt_precip = 0.0
+                   dqdt_precip = 0.0_wp
                 ENDIF
                 tend(k,j,i) = tend(k,j,i) - dqdt_precip
@@ -154 +154 @@
        REAL(wp)    ::  dqdt_precip !:       
 
-       precipitation_rate(j,i) = 0.0
+       precipitation_rate(j,i) = 0.0_wp
 
 !
@@ -164 +164 @@
              dqdt_precip = prec_time_const * ( ql(k,j,i) - ql_crit )
           ELSE
-             dqdt_precip = 0.0
+             dqdt_precip = 0.0_wp
           ENDIF
           tend(k,j,i) = tend(k,j,i) - dqdt_precip