Changeset 1360


Ignore:
Timestamp:
12/06/17 09:49:39 (6 years ago)
Author:
yushan
Message:

toy_cmip6_omp tested on Curie (14*4+2) and Ada (14*2+2)

Location:
XIOS/dev/branch_openmp/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_openmp/src/buffer_client.cpp

    r1355 r1360  
    2828  { 
    2929    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)); 
    3232    buffer[0] = new char[bufferSize]; // transform it with MPI_ALLOC_MEM later 
    3333    buffer[1] = new char[bufferSize]; 
  • XIOS/dev/branch_openmp/src/test/toy_cmip6_omp.f90

    r1350 r1360  
    22 
    33  USE xios 
     4  USE omp_lib 
    45  USE mod_wait 
    56  IMPLICIT NONE 
     
    6364  CALL MPI_COMM_SIZE(comm,size_loc,ierr) 
    6465 
     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 
    6570 
    6671!!! Initialisation et allocation des coordonnées globales et locales pour la grille réguliÚre 
     
    356361 
    357362    CALL xios_init_server 
    358     print *, "Server : xios_finalize " 
     363    print *, "Server : xios_finalize ", rank 
    359364   
    360365    endif   
Note: See TracChangeset for help on using the changeset viewer.