Changeset 1360
- Timestamp:
- 12/06/17 09:49:39 (6 years ago)
- Location:
- XIOS/dev/branch_openmp/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/buffer_client.cpp
r1355 r1360 28 28 { 29 29 interComm = in_interComm; 30 *( interComm.mpi_comm) = *(in_interComm.mpi_comm);31 *( interComm.ep_comm_ptr->intercomm->mpi_inter_comm) = *(in_interComm.ep_comm_ptr->intercomm->mpi_inter_comm);30 *(static_cast< ::MPI_Comm*>(interComm.mpi_comm)) = *(static_cast< ::MPI_Comm*>(in_interComm.mpi_comm)); 31 *(static_cast< ::MPI_Comm*>(interComm.ep_comm_ptr->intercomm->mpi_inter_comm)) = *(static_cast< ::MPI_Comm*>(in_interComm.ep_comm_ptr->intercomm->mpi_inter_comm)); 32 32 buffer[0] = new char[bufferSize]; // transform it with MPI_ALLOC_MEM later 33 33 buffer[1] = new char[bufferSize]; -
XIOS/dev/branch_openmp/src/test/toy_cmip6_omp.f90
r1350 r1360 2 2 3 3 USE xios 4 USE omp_lib 4 5 USE mod_wait 5 6 IMPLICIT NONE … … 63 64 CALL MPI_COMM_SIZE(comm,size_loc,ierr) 64 65 66 rank = rank*omp_get_num_threads() + omp_get_thread_num() 67 size_loc = size_loc*omp_get_num_threads() 68 69 print*, "rank = ", rank, " size = ", size_loc 65 70 66 71 !!! Initialisation et allocation des coordonnées globales et locales pour la grille réguliÚre … … 356 361 357 362 CALL xios_init_server 358 print *, "Server : xios_finalize " 363 print *, "Server : xios_finalize ", rank 359 364 360 365 endif
Note: See TracChangeset
for help on using the changeset viewer.