Changeset 4717 for palm/trunk/SOURCE/poisfft_mod.f90

Timestamp:

Sep 30, 2020 10:27:40 PM (4 years ago)

Author:

pavelkrc

Message:

Fixes and optimizations of OpenMP parallelization, formatting of OpenMP directives

File:

• palm/trunk/SOURCE/poisfft_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/poisfft_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Formatting of OpenMP directives (J. Resler)
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! OMP bugfix
 !
@@ -1001 +1004 @@
 
     tn = 0              ! Default thread number in case of one thread
-!$OMP  PARALLEL DO PRIVATE ( i, j, k, m, n, tn, work_fftx, work_trix )
+    !$OMP  PARALLEL DO PRIVATE ( i, j, k, m, n, tn, work_fftx, work_trix )
     DO  j = nys_x, nyn_x
 
@@ -1142 +1145 @@
 !
 !--    Code for vector processors
-!$OMP  PARALLEL PRIVATE ( i, j, k )
-!$OMP  DO
+       !$OMP  PARALLEL PRIVATE ( i, j, k )
+       !$OMP  DO
        DO  i = 0, nx
 
@@ -1154 +1157 @@
        ENDDO
 
-!$OMP  DO
+       !$OMP  DO
        DO  j = nys, nyn
 
@@ -1166 +1169 @@
 
        ENDDO
-!$OMP  END PARALLEL
+       !$OMP  END PARALLEL
 
     ELSE
@@ -1172 +1175 @@
 !
 !--    Cache optimized code (there might still be a potential for better optimization).
-!$OMP  PARALLEL PRIVATE (i,j,k)
-!$OMP  DO
+       !$OMP  PARALLEL PRIVATE (i,j,k)
+       !$OMP  DO
        DO  i = 0, nx
 
@@ -1184 +1187 @@
        ENDDO
 
-!$OMP  DO
+       !$OMP  DO
        DO  j = nys, nyn
           DO  k = 1, nz
@@ -1196 +1199 @@
 
        ENDDO
-!$OMP  END PARALLEL
+       !$OMP  END PARALLEL
 
     ENDIF