Changeset 1815 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Apr 6, 2016 1:49:59 PM (8 years ago)

Author:

raasch

Message:

cpp-switches removed + cpp-bugfixes + zero-settings for velocities inside topography re-activated

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! cpp-directives for intel openmp bug removed
 ! 
 ! Former revisions:
@@ -208 +208 @@
 !-- Get the number of OpenMP threads
     !$OMP PARALLEL
-#if defined( __intel_openmp_bug )
-    threads_per_task = omp_get_num_threads()
-#else
 !$  threads_per_task = omp_get_num_threads()
-#endif
     !$OMP END PARALLEL