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

Last change on this file since 78 was 31, checked in by ymipsl, 12 years ago

Some bug correction for parallelism

YM
File size: 436 bytes
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, &
5                                request_add_point, create_request, gather_field
6#else
7  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request, req_i1,req_e1, &
8                                request_add_point, create_request, gather_field
9#endif
10 
11END MODULE transfert_mod
Note: See TracBrowser for help on using the repository browser.