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

    r3311 r3634  
    2525! -----------------
    2626! $Id$
     27! OpenACC port for SPEC
     28!
     29! 3311 2018-10-05 12:34:56Z raasch
    2730! Stokes drift is regarded in timestep calculation
    2831!
     
    204207    REAL(wp), DIMENSION(3)         ::  reduce_l    !<
    205208    REAL(wp), DIMENSION(nzb+1:nzt) ::  dxyz2_min   !< 
     209    !$ACC DECLARE CREATE(dxyz2_min)
    206210
    207211
     
    277281       dt_v_l = 999999.9_wp
    278282       dt_w_l = 999999.9_wp
     283       !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i,j,k) &
     284       !$ACC COPY(dt_u_l, dt_v_l, dt_w_l, u_stokes_zu, v_stokes_zu) &
     285       !$ACC REDUCTION(MIN: dt_u_l, dt_v_l, dt_w_l) &
     286       !$ACC PRESENT(u, v, w, dzu)
    279287       DO  i = nxl, nxr
    280288          DO  j = nys, nyn
     
    313321       dt_diff_l = 999999.0_wp
    314322
     323       !$ACC PARALLEL LOOP PRESENT(dxyz2_min, dzw)
    315324       DO  k = nzb+1, nzt
    316325           dxyz2_min(k) = MIN( dx2, dy2, dzw(k)*dzw(k) ) * 0.125_wp
     
    319328       !$OMP PARALLEL private(i,j,k) reduction(MIN: dt_diff_l)
    320329       !$OMP DO
     330       !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i,j,k) &
     331       !$ACC COPY(dt_diff_l) REDUCTION(MIN: dt_diff_l) &
     332       !$ACC PRESENT(dxyz2_min, kh, km)
    321333       DO  i = nxl, nxr
    322334          DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.