Changeset 3651 for palm/trunk

Timestamp:

Jan 7, 2019 12:32:08 PM (6 years ago)

Author:

suehring

Message:

Bugfix, restore OMP END PARALLEL block (accidantly remove in -r 3637)

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (3 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2018 Leibniz Universitaet Hannover
+! Copyright 1997-2019 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, terminate OMP Parallel block
+! 
+! 3637 2018-12-20 01:51:36Z knoop
 ! Implementation of the PALM module interface
 ! 
@@ -1798 +1801 @@
 !--    Calculate the profiles for all other modules
        CALL module_interface_statistics( 'profiles', sr, tn, dots_max )
+       !$OMP END PARALLEL
 
 !