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_v.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:
     
    273274       !$acc         present ( nzb_v_inner, nzb_v_outer, nzb_diff_v )
    274275       !$acc loop
    275        DO  i = nxl, nxr
    276           DO  j = nysv, nyn
     276       DO  i = i_left, i_right
     277          DO  j = j_south, j_north
    277278!
    278279!--          Compute horizontal diffusion
     
    370371
    371372          !$acc loop
    372           DO  i = nxl, nxr
     373          DO  i = i_left, i_right
    373374             !$acc loop vector(32)
    374              DO  j = nysv, nyn
     375             DO  j = j_south, j_north
    375376         
    376377                k = nzb_v_inner(j,i)+1
     
    401402
    402403          !$acc loop
    403           DO  i = nxl, nxr
     404          DO  i = i_left, i_right
    404405             !$acc loop vector(32)
    405              DO  j = nysv, nyn
     406             DO  j = j_south, j_north
    406407
    407408!
Note: See TracChangeset for help on using the changeset viewer.