Changeset 1600 for palm/trunk

Timestamp:

Jun 11, 2015 3:50:12 PM (9 years ago)

Author:

raasch

Message:

bugfix: openMP threadprivate statement moved after variable declaration

File:

• palm/trunk/SOURCE/fft_xy.f90 (modified) (3 diffs)

palm/trunk/SOURCE/fft_xy.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: openMP threadprivate statement moved after variable declaration
 !
 ! Former revisions:
@@ -186 +186 @@
     INTEGER(KIND=C_INT) ::  ny_c  !:
     
-    !$OMP THREADPRIVATE( x_out, y_out, x_in, y_in )
-    COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::         &
-       x_out  !:
+    COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::  x_out  !:
     COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::         &
        y_out  !:
@@ -196 +194 @@
     REAL(KIND=C_DOUBLE), DIMENSION(:), ALLOCATABLE, SAVE ::                    &
        y_in   !:
+    !$OMP THREADPRIVATE( x_out, y_out, x_in, y_in )