Changeset 82 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Apr 16, 2007 3:40:52 PM (17 years ago)

Author:

raasch

Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Cpp-directive lcmuk changed to intel_openmp_bug
 !
 ! Former revisions:
@@ -98 +98 @@
        tn = 0
        !$OMP PARALLEL PRIVATE( i, j, k, tn )
-#if defined( __lcmuk )
+#if defined( __intel_openmp_bug )
        tn = omp_get_thread_num()
 #else
@@ -260 +260 @@
 !--          rearranged according to the staggered grid.
        tn = 0
-#if defined( __lcmuk )
+#if defined( __intel_openmp_bug )
        !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, &
        !$OMP                    tn, ust, ust2, u2, vst, vst2, v2, w2 )