Last change
on this file since 2347 was
40,
checked in by ymipsl, 15 years ago
|
- Les attributs XML peuvent désormais être passer dynamiquement à travers l'interface du server IO.
- ajout d'un attribut name_suffix pour les fichiers
YM
|
File size:
851 bytes
|
Rev | Line | |
---|
[8] | 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 |
---|
[26] | 9 | USE mod_ioserver_namelist |
---|
[40] | 10 | |
---|
[8] | 11 | IMPLICIT NONE |
---|
| 12 | INCLUDE 'mpif.h' |
---|
| 13 | |
---|
| 14 | INTEGER :: i,j,ierr |
---|
| 15 | LOGICAL :: is_terminated |
---|
| 16 | |
---|
[17] | 17 | ! CALL SLEEP(60) |
---|
[8] | 18 | PRINT *,'je suis un serveur' |
---|
[26] | 19 | CALL read_namelist |
---|
[8] | 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.