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

Timestamp:

Mar 18, 2011 7:03:49 AM (13 years ago)

Author:

raasch

Message:

adjustments for openmp usage on ibmkisti (mrun, subjob); OpenMP-bugfixes: work_fftx removed from PRIVATE clauses in fftx_tr_xy and tr_yx_fftx (poisfft); Bugfix: Summation of Wicker-Skamarock scheme fluxes and variances for all threads (flow_statistics)

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! work_fftx removed from PRIVATE clauses in fftx_tr_xy and tr_yx_fftx
 !
 ! Former revisions:
@@ -1070 +1070 @@
 !--       Cache optimized code (there might be still a potential for better
 !--       optimization).
-!$OMP     PARALLEL PRIVATE (i,j,k,work_fftx)
+!$OMP     PARALLEL PRIVATE (i,j,k)
 !$OMP     DO
           DO  i = 0, nx
@@ -1181 +1181 @@
 !--       Cache optimized code (there might be still a potential for better
 !--       optimization).
-!$OMP     PARALLEL PRIVATE (i,j,k,work_fftx)
+!$OMP     PARALLEL PRIVATE (i,j,k)
 !$OMP     DO
           DO  j = nys, nyn
@@ -1245 +1245 @@
 
        tn = 0           ! Default thread number in case of one thread
-!$OMP  PARALLEL PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy )
-!$OMP  DO
+!$OMP  PARALLEL DO PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy )
        DO  i = nxl_y, nxr_y
 
@@ -1336 +1335 @@
 
        ENDDO
-!$OMP  END PARALLEL
 
        DEALLOCATE( tri )