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

Timestamp:

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

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/impact_of_latent_heat.f90 (modified) (3 diffs)

palm/trunk/SOURCE/impact_of_latent_heat.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute 
 !
 ! Former revisions:
@@ -90 +90 @@
                    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 * l_d_cp * pt_d_t(k)
@@ -131 +131 @@
              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 * l_d_cp * pt_d_t(k)