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