Changeset 1601 for XIOS/dev/dev_trunk_omp/src/node/file.cpp
- Timestamp:
- 11/19/18 15:52:54 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/node/file.cpp
r1542 r1601 289 289 290 290 int color = allZoneEmpty ? 0 : 1; 291 MPI_Comm_split(server->intraComm, color, server->intraCommRank, &fileComm);292 if (allZoneEmpty) MPI_Comm_free(&fileComm);291 ep_lib::MPI_Comm_split(server->intraComm, color, server->intraCommRank, &fileComm); 292 if (allZoneEmpty) ep_lib::MPI_Comm_free(&fileComm); 293 293 } 294 294 … … 524 524 { 525 525 int commSize, commRank; 526 MPI_Comm_size(fileComm, &commSize);527 MPI_Comm_rank(fileComm, &commRank);526 ep_lib::MPI_Comm_size(fileComm, &commSize); 527 ep_lib::MPI_Comm_rank(fileComm, &commRank); 528 528 529 529 if (server->intraCommSize > 1) … … 602 602 CContext* context = CContext::getCurrent(); 603 603 CContextServer* server = context->server; 604 MPI_Comm readComm = this->fileComm;604 ep_lib::MPI_Comm readComm = this->fileComm; 605 605 606 606 if (!allZoneEmpty) … … 645 645 { 646 646 int commSize, commRank; 647 MPI_Comm_size(readComm, &commSize);648 MPI_Comm_rank(readComm, &commRank);647 ep_lib::MPI_Comm_size(readComm, &commSize); 648 ep_lib::MPI_Comm_rank(readComm, &commRank); 649 649 650 650 if (server->intraCommSize > 1) … … 688 688 isOpen = false; 689 689 } 690 if (fileComm != MPI_COMM_NULL) MPI_Comm_free(&fileComm);690 //if (fileComm != MPI_COMM_NULL) MPI_Comm_free(&fileComm); 691 691 } 692 692 //---------------------------------------------------------------- … … 713 713 714 714 // Read necessary value from file 715 #pragma omp critical (_func) 715 716 this->data_in->readFieldAttributesValues(enabledFields[idx]); 716 717
Note: See TracChangeset
for help on using the changeset viewer.