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

added update clause to atomic pragma

parent 90b09273
......@@ -214,7 +214,7 @@ void *Ensstat(void *argument)
if ( DBL_IS_EQUAL(array2[i], field[ompthID].missval) )
{
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
nmiss++;
}
......
......@@ -578,7 +578,7 @@ void gridboxstat(field_t *field1, field_t *field2, int xinc, int yinc, int statf
if ( ompthID != 0 ) lprogress = 0;
#endif
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/nlat2*nlon2);
......
......@@ -418,7 +418,7 @@ int gridGenArea(int gridID, double* area)
if ( cdo_omp_get_thread_num() != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/gridsize);
......
......@@ -262,7 +262,7 @@ void intlinarr2(double missval, int lon_is_circular,
field[i] = missval;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/gridsize2);
......@@ -470,7 +470,7 @@ void intconarr2(double missval, int lon_is_circular,
//printf("bound_box %ld lon: %g %g lat: %g %g\n", i, bound_box[2]*RAD2DEG, bound_box[3]*RAD2DEG, bound_box[0]*RAD2DEG, bound_box[1]*RAD2DEG);
/*
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
*/
findex++;
......
......@@ -205,7 +205,7 @@ void scrip_remap_weights_bicubic(remapgrid_t *src_grid, remapgrid_t *tgt_grid, r
if ( cdo_omp_get_thread_num() != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......@@ -338,7 +338,7 @@ void scrip_remap_bicubic(remapgrid_t *src_grid, remapgrid_t *tgt_grid, const dou
if ( cdo_omp_get_thread_num() != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......
......@@ -281,7 +281,7 @@ void scrip_remap_weights_bilinear(remapgrid_t* src_grid, remapgrid_t* tgt_grid,
if ( cdo_omp_get_thread_num() != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......@@ -413,7 +413,7 @@ void scrip_remap_bilinear(remapgrid_t* src_grid, remapgrid_t* tgt_grid, const do
if ( !cdoSilentMode )
{
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......
......@@ -689,7 +689,7 @@ void remap_weights_conserv(remapgrid_t *src_grid, remapgrid_t *tgt_grid, remapva
if ( ompthID != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......
......@@ -1175,7 +1175,7 @@ void scrip_remap_weights_conserv(remapgrid_t *src_grid, remapgrid_t *tgt_grid, r
if ( ompthID != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 0.5, findex/src_grid_size);
......@@ -1400,7 +1400,7 @@ void scrip_remap_weights_conserv(remapgrid_t *src_grid, remapgrid_t *tgt_grid, r
if ( ompthID != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0.5, 0.5, findex/tgt_grid_size);
......
......@@ -503,7 +503,7 @@ void scrip_remap_weights_distwgt(int num_neighbors, remapgrid_t *src_grid, remap
if ( cdo_omp_get_thread_num() != 0 ) lprogress = 0;
#if defined(_OPENMP)
#pragma omp atomic
#pragma omp atomic update
#endif
findex++;
if ( lprogress ) progressStatus(0, 1, findex/tgt_grid_size);
......
Supports Markdown
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