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/disturb_field.f90

    r4182 r4237  
    2525! -----------------
    2626! $Id$
     27! Added missing OpenMP directives
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    166169!-- compiler option -O3
    167170     !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2)
     171     !$OMP PARALLEL DO PRIVATE(i, j, k)
    168172     DO  i = nxl, nxr
    169173        DO  j = nys, nyn
     
    187191
    188192    !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k) PRESENT(dist1, dist2)
     193    !$OMP PARALLEL DO PRIVATE(i, j, k)
    189194    DO  i = nxl, nxr
    190195       DO  j = nys, nyn
     
    219224!-- Random perturbation is added to the array to be disturbed.
    220225    !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k) PRESENT(field, dist1)
     226    !$OMP PARALLEL DO PRIVATE(i, j, k)
    221227    DO  i = nxlg, nxrg
    222228       DO  j = nysg, nyng
Note: See TracChangeset for help on using the changeset viewer.