Changeset 1347 for XIOS/dev/branch_openmp/src/server.cpp

Timestamp:

11/27/17 13:46:40 (7 years ago)

Author:

yushan

Message:

dev omp from Ada

File:

• XIOS/dev/branch_openmp/src/server.cpp (modified) (2 diffs)

XIOS/dev/branch_openmp/src/server.cpp

@@ -92 +92 @@
              MPI_Comm_size(intraComm,&intraCommSize) ;
              MPI_Comm_rank(intraComm,&intraCommRank) ;
-             info(50)<<"intercommCreate::server "<<rank<<" intraCommSize : "<<intraCommSize
-                     <<" intraCommRank :"<<intraCommRank<<"  clientLeader "<< clientLeader<<endl ;
-
+             #pragma omp critical (_output)
+             {
+               info(50)<<"intercommCreate::server "<<rank<<" intraCommSize : "<<intraCommSize
+                       <<" intraCommRank :"<<intraCommRank<<"  clientLeader "<< clientLeader<<endl ;
+             }
              MPI_Intercomm_create(intraComm,0,CXios::globalComm,clientLeader,0,&newComm) ;
              interComm.push_back(newComm) ;
@@ -391 +393 @@
 
        MPI_Comm contextIntercomm;
+       //MPI_Barrier(CXios::globalComm);
+       
        MPI_Intercomm_create(intraComm,0,CXios::globalComm,leaderRank,10+leaderRank,&contextIntercomm);