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

palm/trunk/SOURCE/sor.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -88 +88 @@
          f2(k) = ddzu(k+1) * ddzw(k)
          f3(k) = ddzu(k)   * ddzw(k)
-         f1(k) = 2.0 * ( ddx2 + ddy2 ) + f2(k) + f3(k)
+         f1(k) = 2.0_wp * ( ddx2 + ddy2 ) + f2(k) + f3(k)
     ENDDO
 
@@ -195 +195 @@
           p(nzb,:,:) = p(nzb+1,:,:)
        ELSE                            !       Dirichlet
-          p(nzb,:,:) = 0.0
+          p(nzb,:,:) = 0.0_wp
        ENDIF
 
@@ -203 +203 @@
           p(nzt+1,:,:) = p(nzt,:,:)
        ELSE                      !  Dirichlet
-          p(nzt+1,:,:) = 0.0
+          p(nzt+1,:,:) = 0.0_wp
        ENDIF