Changeset 1117

Timestamp:

Mar 27, 2013 11:15:36 AM (12 years ago)

Author:

suehring

Message:

Bugfix in OpenMP parallelization.

File:

• palm/trunk/SOURCE/pres.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pres.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in OpenMP parallelization.
 !
 ! Former revisions:
@@ -768 +768 @@
 !
 !-- Compute possible PE-sum of divergences for flow_statistics
-    !$OMP PARALLEL PRIVATE (i,j,k) FIRSTPRIVATE(threadsum) REDUCTION(+:localsum)
-    !$OMP DO SCHEDULE( STATIC )
     DO  i = nxl, nxr
        DO  j = nys, nyn