Changeset 1013 for palm/trunk/SOURCE/poisfft_hybrid.f90

Timestamp:

Sep 21, 2012 7:03:55 AM (12 years ago)

Author:

raasch

Message:

FLOAT type conversion replaced by REAL

File:

• palm/trunk/SOURCE/poisfft_hybrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/poisfft_hybrid.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------
-! 
 ! Current revisions: 
 ! ----------------- 
-!
+! FLOAT type conversion replaced by REAL
 !
 ! Former revisions: 
@@ -914 +913 @@
              IF ( i >= 0 .AND. i < nnxh ) THEN
                 l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / &
-                                        FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
+                                        REAL( nx+1 ) ) ) / ( dx * dx ) + &
                        2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
-                                        FLOAT( ny+1 ) ) ) / ( dy * dy )
+                                        REAL( ny+1 ) ) ) / ( dy * dy )
              ELSEIF ( i == nnxh ) THEN
                 l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
-                                         FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
+                                         REAL( nx+1 ) ) ) / ( dx * dx ) + &
                        2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
-                                         FLOAT(ny+1) ) ) / ( dy * dy )
+                                         REAL(ny+1) ) ) / ( dy * dy )
              ELSE
                 l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
-                                         FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
+                                         REAL( nx+1 ) ) ) / ( dx * dx ) + &
                        2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
-                                         FLOAT( ny+1 ) ) ) / ( dy * dy )
+                                         REAL( ny+1 ) ) ) / ( dy * dy )
              ENDIF
           ENDDO