source:
vendors/XMLIO_SERVER/current/src/IOSERVER/server.f90
@
1897
| Last change on this file since 1897 was 1897, checked in by flavoni, 14 years ago | |
|---|---|
| File size: 851 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 | INCLUDE 'mpif.h' |
| 13 | |
| 14 | INTEGER :: i,j,ierr |
| 15 | LOGICAL :: is_terminated |
| 16 | |
| 17 | ! CALL SLEEP(60) |
| 18 | PRINT *,'je suis un serveur' |
| 19 | CALL read_namelist |
| 20 | CALL init_parallel |
| 21 | CALL init_mpi_buffer |
| 22 | CALL init_wait |
| 23 | CALL init_interface_ioipsl |
| 24 | |
| 25 | CALL iom__init(nb_client,mpi_size,mpi_rank) |
| 26 | PRINT *,'je suis un serveur' |
| 27 | |
| 28 | |
| 29 | ! CALL MPI_BARRIER(iocomm,ierr) |
| 30 | |
| 31 | is_terminated=.FALSE. |
| 32 | |
| 33 | DO WHILE (.NOT. is_terminated) |
| 34 | CALL Check_buffer |
| 35 | CALL process_request(is_terminated) |
| 36 | ! CALL wait_us(10) |
| 37 | ENDDO |
| 38 | |
| 39 | ! CALL MPI_BARRIER(MPI_COMM_WORLD,ierr) |
| 40 | CALL histclo |
| 41 | |
| 42 | CALL Finalize_parallel |
| 43 | |
| 44 | PRINT *,"THAT'S ALL FOLK" |
| 45 | |
| 46 | END PROGRAM server |
Note: See TracBrowser
for help on using the repository browser.
