Changeset 1128 for palm/trunk/SOURCE/advec_ws.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/advec_ws.f90 (modified) (5 diffs)

palm/trunk/SOURCE/advec_ws.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
+! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
+! j_north
 !
 !
@@ -2452 +2454 @@
        !$acc kernels present( ddzw, sk, tend, u, v, w, wall_flags_0 )
        !$acc loop
-       DO  i = nxl, nxr
-          DO  j = nys, nyn
+       DO  i = i_left, i_right
+          DO  j = j_south, j_north
              !$acc loop vector( 32 )
              DO  k = nzb+1, nzt
@@ -3153 +3155 @@
        !$acc  kernels present( ddzw, tend, u, v, w, wall_flags_0 )
        !$acc  loop
-       DO i = nxlu, nxr
-          DO  j = nys, nyn
+       DO i = i_left, i_right
+          DO  j = j_south, j_north
              !$acc  loop vector( 32 )
              DO  k = nzb+1, nzt
@@ -3870 +3872 @@
        !$acc kernels present( ddzw, tend, u, v, w, wall_flags_0 )
        !$acc loop
-       DO  i = nxl, nxr
-          DO  j = nysv, nyn
+       DO  i = i_left, i_right
+          DO  j = j_south, j_north
              !$acc loop vector( 32 )
              DO  k = nzb+1, nzt
@@ -4565 +4567 @@
        !$acc kernels present( ddzu, tend, u, v, w, wall_flags_0 )
        !$acc loop
-       DO i = nxl, nxr
-          DO  j = nys, nyn
+       DO i = i_left, i_right
+          DO  j = j_south, j_north
              !$acc loop vector( 32 )
              DO  k = nzb+1, nzt