OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Domain has parallel decomp function to test

Browse Source
This commit is contained in:
JamesEMcclure
2019-08-06 13:36:04 -04:00
parent b23af91d98
commit d4806cef20
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
common/Domain.cpp
View File

@@ -533,7 +533,7 @@ void Domain::Decomp(std::shared_ptr<Database> domain_db )
}
else{
//printf("Sending data to process %i \n", rnk);
MPI_Send(loc_id,N,MPI_CHAR,rnk,15,comm);
MPI_Send(loc_id,N,MPI_CHAR,rnk,15,Comm);
}
// Write the data for this rank data
sprintf(LocalRankFilename,"ID.%05i",rnk+rank_offset);
@@ -552,9 +552,9 @@ void Domain::Decomp(std::shared_ptr<Database> domain_db )
else{
// Recieve the subdomain from rank = 0
//printf("Ready to recieve data %i at process %i \n", N,rank);
MPI_Recv(id,N,MPI_CHAR,0,15,comm,MPI_STATUS_IGNORE);
MPI_Recv(id,N,MPI_CHAR,0,15,Comm,MPI_STATUS_IGNORE);
}
MPI_Barrier(comm);
MPI_Barrier(Comm);
}
/********************************************************