Ignore:
Timestamp:
Apr 12, 2013 6:19:32 AM (9 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/buoyancy.f90

    r1037 r1128  
    2020! Currrent 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:
     
    218219!--       Normal case: horizontal surface
    219220          IF ( use_reference )  THEN
    220              DO  i = nxl, nxr
    221                 DO  j = nys, nyn
     221             DO  i = i_left, i_right
     222                DO  j = j_south, j_north
    222223                   DO  k = nzb_s_inner(j,i)+1, nzt-1
    223224                      tend(k,j,i) = tend(k,j,i) + atmos_ocean_sign * g * 0.5 * &
     
    232233             !$acc kernels present( nzb_s_inner, hom, tend, var )
    233234             !$acc loop
    234              DO  i = nxl, nxr
    235                 DO  j = nys, nyn
     235             DO  i = i_left, i_right
     236                DO  j = j_south, j_north
    236237                   !$acc loop vector(32)
    237238                   DO  k = 1, nzt-1
Note: See TracChangeset for help on using the changeset viewer.