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:
parent
1bca9990dd
commit
a467476327
1 changed files with 2 additions and 4 deletions
|
@ -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];
|
||||
|
|
Loading…
Reference in a new issue