Changeset 377 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

Sep 4, 2009 11:09:00 AM (15 years ago)

Author:

raasch

Message:

adjustments for openmp usage on sgi-ice

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (8 diffs)

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! __lcmuk changed to __lc to avoid problems with Intel compiler on sgi-ice
 !
 ! Former revisions:
@@ -1361 +1361 @@
 
        IF ( j <= nnyh )  THEN
-#if defined( __lcmuk )
+#if defined( __lc )
           CALL maketri_1dd( j, tri )
 #else
@@ -1367 +1367 @@
 #endif
        ELSE
-#if defined( __lcmuk )
+#if defined( __lc )
           CALL maketri_1dd( ny+1-j, tri )
 #else
@@ -1373 +1373 @@
 #endif
        ENDIF
-#if defined( __lcmuk )
+#if defined( __lc )
        CALL split_1dd( tri )
 #else
@@ -1382 +1382 @@
     CONTAINS
 
-#if defined( __lcmuk )
+#if defined( __lc )
        SUBROUTINE maketri_1dd( j, tri )
 #else
@@ -1401 +1401 @@
           REAL, DIMENSION(0:nx) ::  l
 
-#if defined( __lcmuk )
+#if defined( __lc )
           REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
 #endif
@@ -1448 +1448 @@
 
 
-#if defined( __lcmuk )
+#if defined( __lc )
        SUBROUTINE split_1dd( tri )
 #else
@@ -1462 +1462 @@
           INTEGER ::  i, k
 
-#if defined( __lcmuk )
+#if defined( __lc )
           REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
 #endif