Changeset 1322 for palm/trunk/SOURCE/poismg.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/poismg.f90 (modified) (4 diffs)

palm/trunk/SOURCE/poismg.f90

@@ -23 +23 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -505 +505 @@
                                         ( r(k,j,i) - r(k-1,j+1,i+1) )
 
-             f_mg(kc,jc,ic) = 1.0 / 64.0 * (                            &
+             f_mg(kc,jc,ic) = 1.0 / 64.0_wp * (                         &
                               8.0 * r(k,j,i)                            &
                             + 4.0 * ( rkjim   + rkjip   +               &
@@ -521 +521 @@
                             +       ( r(k+1,j-1,i-1) + r(k+1,j+1,i-1) + &
                                       r(k+1,j-1,i+1) + r(k+1,j+1,i+1) ) &
-                                           ) 
-
-!             f_mg(kc,jc,ic) = 1.0 / 64.0 * (                            &
+                                              )
+
+!             f_mg(kc,jc,ic) = 1.0 / 64.0_wp * (                         &
 !                              8.0 * r(k,j,i)                            &
 !                            + 4.0 * ( r(k,j,i-1)     + r(k,j,i+1)     + &
@@ -539 +539 @@
 !                            +       ( r(k+1,j-1,i-1) + r(k+1,j+1,i-1) + &
 !                                      r(k+1,j-1,i+1) + r(k+1,j+1,i+1) ) &
-!                                           ) 
+!                                              )
           ENDDO
        ENDDO