Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (14 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Cpp-directive lcmuk changed to intel_openmp_bug
    77!
    88! Former revisions:
     
    9898       tn = 0
    9999       !$OMP PARALLEL PRIVATE( i, j, k, tn )
    100 #if defined( __lcmuk )
     100#if defined( __intel_openmp_bug )
    101101       tn = omp_get_thread_num()
    102102#else
     
    260260!--          rearranged according to the staggered grid.
    261261       tn = 0
    262 #if defined( __lcmuk )
     262#if defined( __intel_openmp_bug )
    263263       !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, &
    264264       !$OMP                    tn, ust, ust2, u2, vst, vst2, v2, w2 )
Note: See TracChangeset for help on using the changeset viewer.