Ignore:
Timestamp:
Mar 27, 2013 11:15:36 AM (9 years ago)
Author:
suehring
Message:

Bugfix in OpenMP parallelization.

File:
1 edited

Legend:

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

    r1114 r1117  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix in OpenMP parallelization.
    2323!
    2424! Former revisions:
     
    768768!
    769769!-- Compute possible PE-sum of divergences for flow_statistics
    770     !$OMP PARALLEL PRIVATE (i,j,k) FIRSTPRIVATE(threadsum) REDUCTION(+:localsum)
    771     !$OMP DO SCHEDULE( STATIC )
    772770    DO  i = nxl, nxr
    773771       DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.