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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Fixes and optimizations of OpenMP parallelization, formatting of OpenMP
+! directives (J. Resler)
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 !
 ! 4649 2020-08-25 12:11:17Z raasch
 ! File re-formatted to follow the PALM coding standard
-!
 !
 ! 4370 2020-01-10 14:00:44Z raasch
@@ -397 +400 @@
     CALL cpu_log( log_point(32), 'all progn.equations', 'start' )
 
-    !$OMP PARALLEL PRIVATE (i,j)
-    !$OMP DO
+    !$OMP PARALLEL DO PRIVATE (i,j) SCHEDULE( STATIC )
     DO  i = nxl, nxr
        DO  j = nys, nyn
@@ -409 +411 @@
 !-- Module Inferface for exchange horiz after non_advective_processes but before advection.
 !-- Therefore, non_advective_processes must not run for ghost points.
-    !$OMP END PARALLEL
     CALL module_interface_exchange_horiz()
 !