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

    r3538 r3634  
    2525! -----------------
    2626! $Id$
     27! OpenACC port for SPEC
     28!
     29! 3538 2018-11-20 10:55:41Z suehring
    2730! Note concerning topography masking added
    2831!
     
    145148!--       u-component
    146149          CASE ( 1 )
     150             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
     151             !$ACC PRESENT(wall_flags_0) &
     152             !$ACC PRESENT(v, w, vg) &
     153             !$ACC PRESENT(tend)
    147154             DO  i = nxlu, nxr
    148155                DO  j = nys, nyn
     
    167174!--       v-component
    168175          CASE ( 2 )
     176             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
     177             !$ACC PRESENT(wall_flags_0) &
     178             !$ACC PRESENT(u, ug) &
     179             !$ACC PRESENT(tend)
    169180             DO  i = nxl, nxr
    170181                DO  j = nysv, nyn
     
    185196!--       w-component
    186197          CASE ( 3 )
     198             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
     199             !$ACC PRESENT(wall_flags_0) &
     200             !$ACC PRESENT(u) &
     201             !$ACC PRESENT(tend)
    187202             DO  i = nxl, nxr
    188203                DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.