Ignore:
Timestamp:
Sep 25, 2019 11:33:42 AM (21 months ago)
Author:
knoop
Message:

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

File:
1 edited

Legend:

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

    r4233 r4237  
    2525! -----------------
    2626! $Id$
     27! Added missing OpenMP directives
     28!
     29! 4233 2019-09-20 09:55:54Z knoop
    2730! OpenACC data update host removed
    2831!
     
    196199          !$ACC REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l) &
    197200          !$ACC PRESENT(u, v, w, dzu)
     201          !$OMP PARALLEL DO PRIVATE(i,j,k) &
     202          !$OMP REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l)
    198203          DO  i = nxl, nxr
    199204             DO  j = nys, nyn
     
    222227          !$ACC REDUCTION(MIN: dt_u_l) &
    223228          !$ACC PRESENT(u, v, w, dzu)
     229          !$OMP PARALLEL DO PRIVATE(i,j,k) &
     230          !$OMP REDUCTION(MIN: dt_u_l)
    224231          DO  i = nxl, nxr
    225232             DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.