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

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute 
 ! 
 ! Former revisions:
@@ -452 +452 @@
                        hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
 
-             hom = 0.0
+             hom = 0.0_wp
 
           ENDIF