Changeset 1304 for palm/trunk/SOURCE/fft_xy.f90

Timestamp:

Mar 12, 2014 10:29:42 AM (10 years ago)

Author:

raasch

Message:

openmp bugfix + bugfix for single core MPI runs
ulimit option in mrun changed from -Ss to -s

File:

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

palm/trunk/SOURCE/fft_xy.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! openmp bugfix: work1 used in Temperton algorithm must be private
 !
 ! Former revisions:
@@ -412 +412 @@
           IF ( forward_fft )  THEN
 
-             !$OMP PARALLEL PRIVATE ( work, i, j, k )
+             !$OMP PARALLEL PRIVATE ( work, work1, i, j, k )
              !$OMP DO
              DO  k = nzb_x, nzt_x
@@ -433 +433 @@
           ELSE
 
-             !$OMP PARALLEL PRIVATE ( work, i, j, k )
+             !$OMP PARALLEL PRIVATE ( work, work1, i, j, k )
              !$OMP DO
              DO  k = nzb_x, nzt_x
@@ -1036 +1036 @@
           IF ( forward_fft )  THEN
 
-             !$OMP PARALLEL PRIVATE ( work, i, j, k )
+             !$OMP PARALLEL PRIVATE ( work, work1, i, j, k )
              !$OMP DO
              DO  k = nzb_y, nzt_y
@@ -1057 +1057 @@
           ELSE
 
-             !$OMP PARALLEL PRIVATE ( work, i, j, k )
+             !$OMP PARALLEL PRIVATE ( work, work1, i, j, k )
              !$OMP DO
              DO  k = nzb_y, nzt_y