- Timestamp:
- 07/25/19 17:32:38 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/parallel/transfert.F90
r963 r964 2 2 #ifdef CPP_USING_MPI 3 3 4 #if defined(CPP_USING_MPI_LEGACY) 5 #warning("Using legacy transfert_mpi (not default)") 6 use transfert_mpi_legacy_mod, only : t_message, t_request, & 7 req_i1, req_e1_scal, req_e1_vect, & 8 req_i0, req_e0_scal, req_e0_vect, & 9 req_z1_scal, & 10 init_transfert, & 11 init_message => init_message_mpi, & 12 finalize_message => finalize_message_mpi, & 13 send_message => send_message_mpi, & 14 wait_message => wait_message_mpi, & 15 test_message => test_message_mpi 16 #else 4 #if defined(CPP_USING_MPI_NEW) 5 #warning("Using new transfert_mpi (not default, not working with req_z1_scal)") 17 6 ! transfert_mpi using manual pack/unpack (default) 18 7 use transfert_mpi_mod, only : t_message, t_request, & … … 26 15 wait_message, & 27 16 test_message 17 18 #else 19 use transfert_mpi_legacy_mod, only : t_message, t_request, & 20 req_i1, req_e1_scal, req_e1_vect, & 21 req_i0, req_e0_scal, req_e0_vect, & 22 req_z1_scal, & 23 init_transfert, & 24 init_message => init_message_mpi, & 25 finalize_message => finalize_message_mpi, & 26 send_message => send_message_mpi, & 27 wait_message => wait_message_mpi, & 28 test_message => test_message_mpi 28 29 #endif 29 30 #else … … 48 49 req_i1, req_e1_scal, req_e1_vect, & 49 50 req_i0, req_e0_scal, req_e0_vect, & 50 !req_z1_scal, & 51 #if !defined(CPP_USING_MPI_NEW) 52 req_z1_scal, & 53 #endif 51 54 init_transfert, & 52 55 init_message, &
Note: See TracChangeset
for help on using the changeset viewer.