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

palm/trunk/SOURCE/buoyancy.f90

@@ -20 +20 @@
 ! Currrent revisions:
 ! -----------------
-!
+! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
+! j_north
 !
 ! Former revisions:
@@ -218 +219 @@
 !--       Normal case: horizontal surface
           IF ( use_reference )  THEN
-             DO  i = nxl, nxr
-                DO  j = nys, nyn
+             DO  i = i_left, i_right
+                DO  j = j_south, j_north
                    DO  k = nzb_s_inner(j,i)+1, nzt-1
                       tend(k,j,i) = tend(k,j,i) + atmos_ocean_sign * g * 0.5 * &
@@ -232 +233 @@
              !$acc kernels present( nzb_s_inner, hom, tend, var )
              !$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 = 1, nzt-1