Changeset 1556 for XIOS/dev/branch_openmp/src
- Timestamp:
- 07/04/18 13:38:47 (6 years ago)
- Location:
- XIOS/dev/branch_openmp/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/client.cpp
r1545 r1556 74 74 75 75 MPI_Allgather(&hashClient,1,MPI_LONG,hashAll,1,MPI_LONG,CXios::globalComm) ; 76 76 77 77 map<unsigned long, int> colors ; 78 78 map<unsigned long, int> leaders ; … … 101 101 myColor=colors[hashClient]; 102 102 MPI_Comm_split(CXios::globalComm,myColor,rank_,&intraComm) ; 103 103 104 104 if (CXios::usingServer) 105 105 { -
XIOS/dev/branch_openmp/src/cxios.cpp
r1545 r1556 125 125 { 126 126 isClient = true; 127 isServer = false; 127 128 128 129 initialize() ; -
XIOS/dev/branch_openmp/src/node/file.cpp
r1545 r1556 721 721 722 722 // Now everything is ok, close it 723 //close();723 close(); 724 724 } 725 725 -
XIOS/dev/branch_openmp/src/xios_server.f90
r1545 r1556 3 3 IMPLICIT NONE 4 4 INCLUDE "mpif.h" 5 INTEGER :: ierr 6 5 INTEGER :: ierr, provided 6 7 CALL MPI_Init_thread(3, provided, ierr) 7 8 CALL xios_init_server 8 9 CALL MPI_Finalize(ierr) 10 9 11 10 12 END PROGRAM server_main
Note: See TracChangeset
for help on using the changeset viewer.