Changeset 4237 for palm/trunk/SOURCE/disturb_field.f90

Timestamp:

Sep 25, 2019 11:33:42 AM (5 years ago)

Author:

knoop

Message:

Added missing OpenMP directives within "disturb_field", "surface_layer_fluxes" and "timestep"

File:

• palm/trunk/SOURCE/disturb_field.f90 (modified) (4 diffs)

palm/trunk/SOURCE/disturb_field.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added missing OpenMP directives
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -166 +169 @@
 !-- compiler option -O3
      !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2)
+     !$OMP PARALLEL DO PRIVATE(i, j, k)
      DO  i = nxl, nxr
         DO  j = nys, nyn
@@ -187 +191 @@
 
     !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2)
+    !$OMP PARALLEL DO PRIVATE(i, j, k)
     DO  i = nxl, nxr
        DO  j = nys, nyn
@@ -219 +224 @@
 !-- Random perturbation is added to the array to be disturbed.
     !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k) PRESENT(field, dist1)
+    !$OMP PARALLEL DO PRIVATE(i, j, k)
     DO  i = nxlg, nxrg
        DO  j = nysg, nyng