source:
trunk/NEMO/OPA_SRC/IOM/io_interface.F90
@
1410
Last change on this file since 1410 was 1359, checked in by smasson, 15 years ago | |
---|---|
|
|
File size: 1.1 KB |
Rev | Line | |
---|---|---|
[1359] | 1 | MODULE io_interface |
2 | ||
3 | !! $Id$ | |
4 | ||
5 | #if defined key_ioserver | |
6 | USE mod_ioclient | |
7 | USE mod_event_client | |
8 | USE iomanager | |
9 | #endif | |
10 | ||
11 | IMPLICIT NONE | |
12 | ||
13 | CONTAINS | |
14 | ||
15 | SUBROUTINE init_ioserver( kcomm, is_mode_server ) | |
16 | LOGICAL, intent(in ) :: is_mode_server | |
17 | INTEGER, intent( out), OPTIONAL :: kcomm | |
18 | #if defined key_ioserver | |
19 | ! | |
20 | INTEGER :: nb_server | |
21 | INTEGER :: server_rank | |
22 | INTEGER :: ierr | |
23 | # if defined key_mpp_mpi | |
24 | !$AGRIF_DO_NOT_TREAT | |
25 | #include <mpif.h> | |
26 | !$AGRIF_END_DO_NOT_TREAT | |
27 | # endif | |
28 | ||
29 | IF (is_mode_server) THEN | |
30 | CALL init_ioclient(kcomm) | |
31 | using_server=.TRUE. | |
32 | ELSE | |
33 | # if defined key_mpp_mpi | |
34 | kcomm = MPI_COMM_WORLD | |
35 | CALL MPI_INIT( ierr ) | |
36 | CALL MPI_COMM_SIZE( kcomm, nb_server, ierr ) | |
37 | CALL MPI_COMM_RANK( kcomm, server_rank, ierr ) | |
38 | # else | |
39 | nb_server = 1 | |
40 | server_rank = 0 | |
41 | # endif | |
42 | CALL iom__init(1,nb_server,server_rank) | |
43 | CALL iom__set_current_rank(1) | |
44 | using_server=.FALSE. | |
45 | ENDIF | |
46 | #endif | |
47 | ||
48 | END SUBROUTINE init_ioserver | |
49 | ||
50 | ||
51 | END MODULE io_interface |
Note: See TracBrowser
for help on using the repository browser.