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

palm/trunk/SOURCE/compute_vpt.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -68 +68 @@
 
     IF ( .NOT. cloud_physics  .AND.  .NOT. cloud_droplets )  THEN
-       vpt = pt * ( 1.0 + 0.61 * q )
+       vpt = pt * ( 1.0_wp + 0.61_wp * q )
     ELSE IF (cloud_physics)  THEN
        DO  k = nzb, nzt+1
           vpt(k,:,:) = ( pt(k,:,:) + pt_d_t(k) * l_d_cp * ql(k,:,:) ) *        &
-                       ( 1.0 + 0.61 * q(k,:,:) - 1.61 * ql(k,:,:) ) 
+                       ( 1.0_wp + 0.61_wp * q(k,:,:) - 1.61_wp * ql(k,:,:) ) 
        ENDDO
     ELSE
-       vpt = pt * ( 1.0 + 0.61 * q - ql ) 
+       vpt = pt * ( 1.0_wp + 0.61_wp * q - ql ) 
     ENDIF