source:
branches/dev_004_VVL/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 | |
| Line | |
|---|---|
| 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.
