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

    r1093 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:
     
    226227       !$acc         present( wall_w_x, wall_w_y )
    227228       !$acc loop
    228        DO  i = nxl, nxr
    229           DO  j = nys,nyn
     229       DO  i = i_left, i_right
     230          DO  j = j_south, j_north
    230231!
    231232!--          Compute horizontal diffusion
Note: See TracChangeset for help on using the changeset viewer.