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

palm/trunk/SOURCE/disturb_field.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! REAL constants provided with KIND-attribute 
 !
 ! Former revisions:
@@ -92 +92 @@
 !-- to store the disturbance
     ALLOCATE( dist2(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-    dist1 = 0.0
-    dist2 = 0.0
+    dist1 = 0.0_wp
+    dist2 = 0.0_wp
 
 !
@@ -183 +183 @@
        DO  i = nxlg, nxrg
           DO  j = nysg, nyng
-             dist1(nzb:nzb_uv_inner(j,i)+1,j,i) = 0.0
+             dist1(nzb:nzb_uv_inner(j,i)+1,j,i) = 0.0_wp
           ENDDO
        ENDDO