Ignore:
Timestamp:
Mar 28, 2019 1:16:58 PM (2 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/transpose.f90

    r3694 r3832  
    2525! -----------------
    2626! $Id$
     27! loop reordering for performance optimization
     28!
     29! 3694 2019-01-23 17:01:49Z knoop
    2730! OpenACC port for SPEC
    2831!
     
    129132     !$ACC PRESENT(f_inv, f_in)
    130133#endif
    131      DO  i = 0, nx
    132          DO  k = nzb_x, nzt_x
     134     DO  k = nzb_x, nzt_x
     135         DO  i = 0, nx
    133136             DO  j = nys_x, nyn_x
    134137                 f_inv(j,k,i) = f_in(i,j,k)
     
    856859    !$ACC PRESENT(f_in, f_inv)
    857860#endif
    858      DO  k = 1,nz
    859          DO  i = nxl, nxr
     861     DO  i = nxl, nxr
     862         DO  k = 1,nz
    860863             DO  j = nys, nyn
    861864                 f_inv(j,i,k) = f_in(k,j,i)
     
    10201023    !$ACC PRESENT(f_out, f_inv)
    10211024#endif
    1022      DO  k = nzb_y, nzt_y
    1023          DO  j = 0, ny
     1025     DO  j = 0, ny
     1026         DO  k = nzb_y, nzt_y
    10241027             DO  i = nxl_y, nxr_y
    10251028                 f_out(j,i,k) = f_inv(i,k,j)
Note: See TracChangeset for help on using the changeset viewer.