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

palm/trunk/SOURCE/production_e.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
+! j_north
 !
 ! Former revisions:
@@ -743 +744 @@
        !$acc         copyin( u_0, v_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 = 1, nzt
@@ -789 +790 @@
 !--       'bottom and wall: use u_0,v_0 and wall functions'
           !$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
@@ -1001 +1002 @@
 !--       'bottom only: use u_0,v_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 = 1, nzt
@@ -1048 +1049 @@
 
           !$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
@@ -1102 +1103 @@
 !--                in the bottom and top surface layer
                    !$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
@@ -1119 +1120 @@
 
                    !$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_diff
@@ -1153 +1154 @@
 !--                in the bottom and top surface layer
                    !$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
@@ -1170 +1171 @@
 
                    !$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_diff