Ignore:
Timestamp:
Mar 18, 2011 7:03:49 AM (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poisfft.f90

    r684 r696  
    44! Current revisions:
    55! -----------------
    6 !
     6! work_fftx removed from PRIVATE clauses in fftx_tr_xy and tr_yx_fftx
    77!
    88! Former revisions:
     
    10701070!--       Cache optimized code (there might be still a potential for better
    10711071!--       optimization).
    1072 !$OMP     PARALLEL PRIVATE (i,j,k,work_fftx)
     1072!$OMP     PARALLEL PRIVATE (i,j,k)
    10731073!$OMP     DO
    10741074          DO  i = 0, nx
     
    11811181!--       Cache optimized code (there might be still a potential for better
    11821182!--       optimization).
    1183 !$OMP     PARALLEL PRIVATE (i,j,k,work_fftx)
     1183!$OMP     PARALLEL PRIVATE (i,j,k)
    11841184!$OMP     DO
    11851185          DO  j = nys, nyn
     
    12451245
    12461246       tn = 0           ! Default thread number in case of one thread
    1247 !$OMP  PARALLEL PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy )
    1248 !$OMP  DO
     1247!$OMP  PARALLEL DO PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy )
    12491248       DO  i = nxl_y, nxr_y
    12501249
     
    13361335
    13371336       ENDDO
    1338 !$OMP  END PARALLEL
    13391337
    13401338       DEALLOCATE( tri )
Note: See TracChangeset for help on using the changeset viewer.