Ignore:
Timestamp:
Sep 25, 2019 11:26:18 AM (21 months ago)
Author:
knoop
Message:

Added missing OpenMP directives within "transpose" and "tridia_solver"

File:
1 edited

Legend:

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

    r4182 r4236  
    2525! -----------------
    2626! $Id$
     27! Added missing OpenMP directives
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    249252#endif
    250253
     254          !$OMP PARALLEL PRIVATE(i,j,k)
     255
    251256!
    252257!--       Forward substitution
     
    258263             !$ACC LOOP COLLAPSE(2)
    259264#endif
     265             !$OMP DO
    260266             DO  j = nys_z, nyn_z
    261267                DO  i = nxl_z, nxr_z
     
    286292             !$ACC LOOP COLLAPSE(2)
    287293#endif
     294             !$OMP DO
    288295             DO  j = nys_z, nyn_z
    289296                DO  i = nxl_z, nxr_z
     
    301308          !$ACC END PARALLEL
    302309#endif
     310
     311          !$OMP END PARALLEL
    303312
    304313!
Note: See TracChangeset for help on using the changeset viewer.