source:
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/server.F90
@
2292
| Last change on this file since 2292 was 2292, checked in by smasson, 14 years ago | |
|---|---|
| File size: 882 bytes | |
| Line | |
|---|---|
| 1 | PROGRAM server |
| 2 | USE mod_ioserver_para |
| 3 | USE mod_mpi_buffer_server |
| 4 | USE mod_wait |
| 5 | USE mod_global_memory |
| 6 | USE ioipsl |
| 7 | USE iomanager |
| 8 | USE mod_interface_ioipsl |
| 9 | USE mod_ioserver_namelist |
| 10 | |
| 11 | IMPLICIT NONE |
| 12 | #if defined key_mpp_mpi |
| 13 | INCLUDE 'mpif.h' |
| 14 | |
| 15 | INTEGER :: i,j,ierr |
| 16 | LOGICAL :: is_terminated |
| 17 | |
| 18 | ! CALL SLEEP(60) |
| 19 | PRINT *,'je suis un serveur' |
| 20 | CALL read_namelist |
| 21 | CALL init_parallel |
| 22 | CALL init_mpi_buffer |
| 23 | CALL init_wait |
| 24 | CALL init_interface_ioipsl |
| 25 | |
| 26 | CALL iom__init(nb_client,mpi_size,mpi_rank) |
| 27 | PRINT *,'je suis un serveur' |
| 28 | |
| 29 | |
| 30 | ! CALL MPI_BARRIER(iocomm,ierr) |
| 31 | |
| 32 | is_terminated=.FALSE. |
| 33 | |
| 34 | DO WHILE (.NOT. is_terminated) |
| 35 | CALL Check_buffer |
| 36 | CALL process_request(is_terminated) |
| 37 | ! CALL wait_us(10) |
| 38 | ENDDO |
| 39 | |
| 40 | ! CALL MPI_BARRIER(MPI_COMM_WORLD,ierr) |
| 41 | CALL histclo |
| 42 | |
| 43 | CALL Finalize_parallel |
| 44 | |
| 45 | PRINT *,"THAT'S ALL FOLK" |
| 46 | #endif |
| 47 | |
| 48 | END PROGRAM server |
Note: See TracBrowser
for help on using the repository browser.
