Changeset 1128 for palm/trunk/SOURCE/diffusion_v.f90

Timestamp:

Apr 12, 2013 6:19:32 AM (11 years ago)

Author:

raasch

Message:

asynchronous transfer of ghost point data for acc-optimized version

File:

• palm/trunk/SOURCE/diffusion_v.f90 (modified) (4 diffs)

palm/trunk/SOURCE/diffusion_v.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
+! j_north
 !
 ! Former revisions:
@@ -273 +274 @@
        !$acc         present ( nzb_v_inner, nzb_v_outer, nzb_diff_v )
        !$acc loop
-       DO  i = nxl, nxr
-          DO  j = nysv, nyn
+       DO  i = i_left, i_right
+          DO  j = j_south, j_north
 !
 !--          Compute horizontal diffusion
@@ -370 +371 @@
 
           !$acc loop
-          DO  i = nxl, nxr
+          DO  i = i_left, i_right
              !$acc loop vector(32)
-             DO  j = nysv, nyn
+             DO  j = j_south, j_north
           
                 k = nzb_v_inner(j,i)+1
@@ -401 +402 @@
 
           !$acc loop
-          DO  i = nxl, nxr
+          DO  i = i_left, i_right
              !$acc loop vector(32)
-             DO  j = nysv, nyn
+             DO  j = j_south, j_north
 
 !