1
0
Fork 0
mirror of https://github.com/cosmo-sims/monofonIC.git synced 2024-09-19 17:03:45 +02:00

made parallel recv dependent on whether mpi supports threading

This commit is contained in:
Oliver Hahn 2020-11-13 17:20:24 +01:00
parent 1bca9990dd
commit a467476327

View file

@ -403,15 +403,13 @@ void Grid_FFT<data_t, bdistributed>::FourierInterpolateCopyTo( grid_fft_t &grid_
}
}
MPI_Barrier( MPI_COMM_WORLD );
//--- receive data ------------------------------------------------------------
#pragma omp parallel
#pragma omp parallel if(CONFIG::MPI_threads_ok)
{
MPI_Status status;
ccomplex_t * recvbuf = new ccomplex_t[ slicesz ];
#pragma omp for schedule(dynamic)
#pragma omp for schedule(dynamic) if(CONFIG::MPI_threads_ok)
for( size_t i=0; i<grid_to.size(0); ++i )
{
size_t iglobal_recv = i + offsets_recv[CONFIG::MPI_task_rank];