Changeset 1815 for palm/trunk/SOURCE/flow_statistics.f90
 Timestamp:
 Apr 6, 2016 1:49:59 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/flow_statistics.f90
r1784 r1815 19 19 ! Current revisions: 20 20 !  21 ! 21 ! cppdirectives for intel openmp bug removed 22 22 ! 23 23 ! Former revisions: … … 358 358 359 359 !$OMP PARALLEL PRIVATE( i, j, k, tn ) 360 #if defined( __intel_openmp_bug )361 tn = omp_get_thread_num()362 #else363 360 !$ tn = omp_get_thread_num() 364 #endif365 361 366 362 !$OMP DO … … 561 557 ! are zero at the walls and inside buildings. 562 558 tn = 0 563 #if defined( __intel_openmp_bug ) 564 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, & 565 !$OMP tn, ust, ust2, u2, vst, vst2, v2, w2 ) 566 tn = omp_get_thread_num() 567 #else 568 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2, w2 ) 559 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, & 560 !$OMP sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2, & 561 !$OMP w2 ) 569 562 !$ tn = omp_get_thread_num() 570 #endif 563 571 564 !$OMP DO 572 565 DO i = nxl, nxr … … 1841 1834 1842 1835 !$OMP PARALLEL PRIVATE( i, j, k, tn ) 1843 #if defined( __intel_openmp_bug )1844 tn = omp_get_thread_num()1845 #else1846 1836 !$ tn = omp_get_thread_num() 1847 #endif1848 1837 1849 1838 !$acc update device( sums_l ) … … 2117 2106 ! are zero at the walls and inside buildings. 2118 2107 tn = 0 2119 #if defined( __intel_openmp_bug ) 2120 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, & 2121 !$OMP tn, ust, ust2, u2, vst, vst2, v2, w2 ) 2122 tn = omp_get_thread_num() 2123 #else 2124 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2, w2 ) 2108 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, & 2109 !$OMP sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2, & 2110 !$OMP w2 ) 2125 2111 !$ tn = omp_get_thread_num() 2126 #endif 2112 2127 2113 !$OMP DO 2128 2114 !$acc parallel loop gang present( e, hom, kh, km, p, pt, w, rflags_invers, rmask, sums_l ) create( s1, s2, s3, s4, s5, s6, s7 )
Note: See TracChangeset
for help on using the changeset viewer.