Changeset 4717 for palm/trunk/SOURCE/timestep.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/timestep.f90 (modified) (3 diffs)

palm/trunk/SOURCE/timestep.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Fixes and optimizations of OpenMP parallelization, formatting of OpenMP
+! directives (J. Resler)
+! 
+! 4564 2020-06-12 14:03:36Z raasch
 ! Vertical nesting method of Huq et al. (2019) removed
 ! 
 ! 4540 2020-05-18 15:23:29Z raasch
 ! File re-formatted to follow the PALM coding standard
-!
 !
 ! 4444 2020-03-05 15:59:50Z raasch
@@ -308 +311 @@
        ENDDO
 
-       !$OMP PARALLEL private(i,j,k) reduction(MIN: dt_diff_l)
-       !$OMP DO
+       !$OMP PARALLEL DO private(i,j,k) reduction(MIN: dt_diff_l)
        !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i,j,k) &
        !$ACC COPY(dt_diff_l) REDUCTION(MIN: dt_diff_l) &
@@ -321 +323 @@
           ENDDO
        ENDDO
-       !$OMP END PARALLEL
 #if defined( __parallel )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )