Ignore:
Timestamp:
Apr 12, 2013 6:19:32 AM (8 years ago)
Author:
raasch
Message:

asynchronous transfer of ghost point data for acc-optimized version

File:
1 edited

Legend:

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

    r1037 r1128  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
     23! j_north
    2324!
    2425! Former revisions:
     
    167168             !$acc  kernels present( nzb_u_inner, tend, v, vg, w )
    168169             !$acc  loop
    169              DO  i = nxlu, nxr
    170                 DO  j = nys, nyn
     170             DO  i = i_left, i_right
     171                DO  j = j_south, j_north
    171172                   !$acc loop vector( 32 )
    172173                   DO  k = 1, nzt
     
    190191             !$acc  kernels present( nzb_v_inner, tend, u, ug )
    191192             !$acc  loop
    192              DO  i = nxl, nxr
    193                 DO  j = nysv, nyn
     193             DO  i = i_left, i_right
     194                DO  j = j_south, j_north
    194195                   !$acc loop vector( 32 )
    195196                   DO  k = 1, nzt
     
    209210             !$acc  kernels present( nzb_w_inner, tend, u )
    210211             !$acc  loop
    211              DO  i = nxl, nxr
    212                 DO  j = nys, nyn
     212             DO  i = i_left, i_right
     213                DO  j = j_south, j_north
    213214                   !$acc loop vector( 32 )
    214215                   DO  k = 1, nzt
Note: See TracChangeset for help on using the changeset viewer.