Commit b75d9a6f authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

calc_bin_addr(): removed omp parallel for.

parent f5d23847
......@@ -14,11 +14,12 @@ void calc_bin_addr(size_t gridsize, size_t nbins, const restr_t* restrict bin_la
bin_addr[n2 ] = gridsize;
bin_addr[n2+1] = 0;
}
/*
#if defined(_OPENMP)
#pragma omp parallel for default(none) \
private(n2) shared(gridsize, nbins, bin_lats, bin_addr, cell_bound_box)
#endif
*/
for ( size_t nele = 0; nele < gridsize; ++nele )
{
size_t nele4 = nele<<2;
......@@ -30,9 +31,11 @@ void calc_bin_addr(size_t gridsize, size_t nbins, const restr_t* restrict bin_la
if ( cell_bound_box_lat1 <= bin_lats[n2+1] &&
cell_bound_box_lat2 >= bin_lats[n2 ] )
{
/*
#if defined(_OPENMP)
#pragma omp critical
#endif
*/
{
bin_addr[n2 ] = MIN(nele, bin_addr[n2 ]);
bin_addr[n2+1] = MAX(nele, bin_addr[n2+1]);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment