Ignore:
Timestamp:
Dec 18, 2018 12:31:28 PM (3 years ago)
Author:
knoop
Message:

OpenACC port for SPEC

File:
1 edited

Legend:

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

    r3547 r3634  
    2525! -----------------
    2626! $Id$
     27! OpenACC port for SPEC
     28!
     29! 3547 2018-11-21 13:21:24Z suehring
    2730! variables documented
    2831!
     
    165168       REAL(wp)     ::  mask_top      !< flag to mask vertical downward-facing surface     
    166169
     170       !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k, l, m) &
     171       !$ACC PRIVATE(surf_e, surf_s, flag, kmxm, kmxp, kmzm, kmzp) &
     172       !$ACC PRIVATE(mask_bottom, mask_east, mask_west, mask_top) &
     173       !$ACC PRESENT(wall_flags_0, km) &
     174       !$ACC PRESENT(u, v, w) &
     175       !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
     176       !$ACC PRESENT(surf_def_h(0:2), surf_def_v(2:3)) &
     177       !$ACC PRESENT(surf_lsm_h, surf_lsm_v(2:3)) &
     178       !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3)) &
     179       !$ACC PRESENT(tend)
    167180       DO  i = nxl, nxr
    168181          DO  j = nysv, nyn
Note: See TracChangeset for help on using the changeset viewer.