Changeset 3832 for palm/trunk/SOURCE/transpose.f90

Timestamp:

Mar 28, 2019 1:16:58 PM (5 years ago)

Author:

raasch

Message:

some routines instrumented with openmp directives, loop reordering for performance optimization

File:

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

palm/trunk/SOURCE/transpose.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! loop reordering for performance optimization
+! 
+! 3694 2019-01-23 17:01:49Z knoop
 ! OpenACC port for SPEC
 ! 
@@ -129 +132 @@
      !$ACC PRESENT(f_inv, f_in)
 #endif
-     DO  i = 0, nx
-         DO  k = nzb_x, nzt_x
+     DO  k = nzb_x, nzt_x
+         DO  i = 0, nx
              DO  j = nys_x, nyn_x
                  f_inv(j,k,i) = f_in(i,j,k)
@@ -856 +859 @@
     !$ACC PRESENT(f_in, f_inv)
 #endif
-     DO  k = 1,nz
-         DO  i = nxl, nxr
+     DO  i = nxl, nxr
+         DO  k = 1,nz
              DO  j = nys, nyn
                  f_inv(j,i,k) = f_in(k,j,i)
@@ -1020 +1023 @@
     !$ACC PRESENT(f_out, f_inv)
 #endif
-     DO  k = nzb_y, nzt_y
-         DO  j = 0, ny
+     DO  j = 0, ny
+         DO  k = nzb_y, nzt_y
              DO  i = nxl_y, nxr_y
                  f_out(j,i,k) = f_inv(i,k,j)