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_s.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!
     
    194197#endif
    195198
     199       !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k, m) &
     200       !$ACC PRIVATE(surf_e, surf_s, flag, mask_top, mask_bottom) &
     201       !$ACC PRIVATE(mask_north, mask_south, mask_west, mask_east) &
     202       !$ACC PRESENT(wall_flags_0, kh) &
     203       !$ACC PRESENT(s) &
     204       !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
     205       !$ACC PRESENT(surf_def_h(0:2), surf_def_v(0:3)) &
     206       !$ACC PRESENT(surf_lsm_h, surf_lsm_v(0:3)) &
     207       !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3)) &
     208       !$ACC PRESENT(s_flux_def_h_up, s_flux_def_h_down) &
     209       !$ACC PRESENT(s_flux_t) &
     210       !$ACC PRESENT(s_flux_def_v_north, s_flux_def_v_south) &
     211       !$ACC PRESENT(s_flux_def_v_east, s_flux_def_v_west) &
     212       !$ACC PRESENT(s_flux_lsm_h_up) &
     213       !$ACC PRESENT(s_flux_lsm_v_north, s_flux_lsm_v_south) &
     214       !$ACC PRESENT(s_flux_lsm_v_east, s_flux_lsm_v_west) &
     215       !$ACC PRESENT(s_flux_usm_h_up) &
     216       !$ACC PRESENT(s_flux_usm_v_north, s_flux_usm_v_south) &
     217       !$ACC PRESENT(s_flux_usm_v_east, s_flux_usm_v_west) &
     218       !$ACC PRESENT(tend)
    196219       DO  i = nxl, nxr
    197220          DO  j = nys,nyn
Note: See TracChangeset for help on using the changeset viewer.