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

Timestamp:

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

Author:

yushan

Message:

dev omp from Ada

File:

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

XIOS/dev/branch_openmp/src/client.cpp

@@ -100 +100 @@
             MPI_Comm_size(intraComm,&intraCommSize) ;
             MPI_Comm_rank(intraComm,&intraCommRank) ;
-            info(50)<<"intercommCreate::client "<<rank<<" intraCommSize : "<<intraCommSize
-                 <<" intraCommRank :"<<intraCommRank<<"  clientLeader "<< serverLeader<<endl ;
+            #pragma omp critical (_output)
+            {
+              info(50)<<"intercommCreate::client "<<rank<<" intraCommSize : "<<intraCommSize
+                      <<" intraCommRank :"<<intraCommRank<<"  serverLeader "<< serverLeader<<endl ;
+            }
             MPI_Intercomm_create(intraComm,0,CXios::globalComm,serverLeader,0,&interComm) ;
           }
@@ -185 +188 @@
 
         MPI_Send((void*)buff,buffer.count(),MPI_CHAR,serverLeader,1,CXios::globalComm) ;
+        #pragma omp critical (_output)
+        std::cout<<"client "<<rank<<" send to server "<<serverLeader << buffer.count() <<"message with tag 1" << std::endl;
         delete [] buff ;
+
+        //MPI_Barrier(CXios::globalComm);
 
         MPI_Intercomm_create(contextComm,0,CXios::globalComm,serverLeader,10+globalRank,&contextInterComm) ;