Changeset 4237 for palm/trunk/SOURCE/timestep.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/timestep.f90 (modified) (3 diffs)

palm/trunk/SOURCE/timestep.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added missing OpenMP directives
+! 
+! 4233 2019-09-20 09:55:54Z knoop
 ! OpenACC data update host removed
 ! 
@@ -196 +199 @@
           !$ACC REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l) &
           !$ACC PRESENT(u, v, w, dzu)
+          !$OMP PARALLEL DO PRIVATE(i,j,k) &
+          !$OMP REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l)
           DO  i = nxl, nxr
              DO  j = nys, nyn
@@ -222 +227 @@
           !$ACC REDUCTION(MIN: dt_u_l) &
           !$ACC PRESENT(u, v, w, dzu)
+          !$OMP PARALLEL DO PRIVATE(i,j,k) &
+          !$OMP REDUCTION(MIN: dt_u_l)
           DO  i = nxl, nxr
              DO  j = nys, nyn