Changeset 4236 for palm/trunk/SOURCE/tridia_solver_mod.f90

Timestamp:

Sep 25, 2019 11:26:18 AM (5 years ago)

Author:

knoop

Message:

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

File:

• palm/trunk/SOURCE/tridia_solver_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/tridia_solver_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added missing OpenMP directives
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -249 +252 @@
 #endif
 
+          !$OMP PARALLEL PRIVATE(i,j,k)
+
 !
 !--       Forward substitution
@@ -258 +263 @@
              !$ACC LOOP COLLAPSE(2)
 #endif
+             !$OMP DO
              DO  j = nys_z, nyn_z
                 DO  i = nxl_z, nxr_z
@@ -286 +292 @@
              !$ACC LOOP COLLAPSE(2)
 #endif
+             !$OMP DO
              DO  j = nys_z, nyn_z
                 DO  i = nxl_z, nxr_z
@@ -301 +308 @@
           !$ACC END PARALLEL
 #endif
+
+          !$OMP END PARALLEL
 
 !