source: codes/icosagcm/trunk/src/transfert.F90 @ 155

Last change on this file since 155 was 151, checked in by ymipsl, 11 years ago

Implementation of mixte parallelism MPI/OpenMP into src directory

YM
File size: 1.0 KB
Line 
1MODULE transfert_mod
2
3#ifdef CPP_USING_MPI
4  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, &
5                                req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, &
6                                t_message,init_message=>init_message_mpi,transfert_message=>transfert_message_mpi,  &
7                                send_message=>send_message_mpi,test_message=>test_message_mpi,wait_message=>wait_message_mpi,barrier
8#else
9  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_seq, req_i1,req_e1_vect, &
10                                req_e1_scal,req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, &
11                                t_message,init_message=>init_message_seq,transfert_message=>transfert_message_seq,  &
12                                send_message=>send_message_seq,test_message=>test_message_seq,wait_message=>wait_message_seq,barrier
13#endif
14 
15END MODULE transfert_mod
Note: See TracBrowser for help on using the repository browser.