Changeset 1988 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src
- Timestamp:
- 2010-07-07T17:58:55+02:00 (14 years ago)
- Location:
- branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioclient_para.F90
r1897 r1988 13 13 USE mpitrace 14 14 USE mod_ioserver_namelist 15 #if def USE_OASIS15 #if defined key_oasis3 || defined key_oasis4 16 16 USE mod_prism_get_comm 17 17 #endif … … 35 35 oasis_server_id=server_id 36 36 PRINT *,'prism_get_intracomm' 37 #if def USE_OASIS37 #if defined key_oasis3 || defined key_oasis4 38 38 CALL prism_get_intracomm(Comm_client_server,oasis_server_id,ierr) 39 39 #endif -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_para.F90
r1897 r1988 21 21 USE mpitrace 22 22 USE mod_ioserver_namelist 23 #if def USE_OASIS23 #if defined key_oasis3 || defined key_oasis4 24 24 USE mod_prism_get_comm 25 25 #endif … … 39 39 oasis_server_id=server_id 40 40 oasis_client_id=client_id 41 #if def USE_OASIS41 #if defined key_oasis3 || defined key_oasis4 42 42 CALL prism_init_comp_proto (comp_id, oasis_server_id, ierr) 43 43 CALL prism_get_intracomm(Comm_client_server,oasis_client_id,ierr) … … 83 83 SUBROUTINE Finalize_parallel 84 84 USE mod_ioserver_namelist 85 #if def USE_OASIS85 #if defined key_oasis3 || defined key_oasis4 86 86 USE mod_prism_proto 87 87 #endif … … 91 91 92 92 IF (using_oasis) THEN 93 #if def USE_OASIS93 #if defined key_oasis3 || defined key_oasis4 94 94 CALL prism_terminate_proto(ierr) 95 95 #endif -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mpi_mod.F90
r1897 r1988 1 1 MODULE mpi_mod 2 2 3 #if def NO_MPI3 #if ! defined key_mpp_mpi 4 4 LOGICAL, PARAMETER :: using_mpi=.FALSE. 5 5 INCLUDE 'ios_mpif.h' -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mpi_wrapper.F90
r1897 r1988 3 3 END SUBROUTINE void 4 4 5 #if def NO_MPI5 #if ! defined key_mpp_mpi 6 6 7 7 SUBROUTINE MPI_ALLOC_MEM
Note: See TracChangeset
for help on using the changeset viewer.