|
Last change
on this file since 26 was
26,
checked in by ymipsl, 15 years ago
|
|
Mise à jour importante :
- ajout de la grille type LMDZ
- ajout des context
- ajout de namelist pour parametrer l'utilisation du server : avec/sans MPI, en utlisant ou pas OASIS
|
|
File size:
848 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 | IMPLICIT NONE |
|---|
| 11 | INCLUDE 'mpif.h' |
|---|
| 12 | |
|---|
| 13 | INTEGER :: i,j,ierr |
|---|
| 14 | LOGICAL :: is_terminated |
|---|
| 15 | |
|---|
| 16 | ! CALL SLEEP(60) |
|---|
| 17 | PRINT *,'je suis un serveur' |
|---|
| 18 | CALL read_namelist |
|---|
| 19 | CALL init_parallel |
|---|
| 20 | CALL init_mpi_buffer |
|---|
| 21 | CALL init_wait |
|---|
| 22 | CALL init_interface_ioipsl |
|---|
| 23 | |
|---|
| 24 | CALL iom__init(nb_client,mpi_size,mpi_rank) |
|---|
| 25 | PRINT *,'je suis un serveur' |
|---|
| 26 | |
|---|
| 27 | |
|---|
| 28 | ! CALL MPI_BARRIER(iocomm,ierr) |
|---|
| 29 | |
|---|
| 30 | is_terminated=.FALSE. |
|---|
| 31 | |
|---|
| 32 | DO WHILE (.NOT. is_terminated) |
|---|
| 33 | CALL Check_buffer |
|---|
| 34 | CALL process_request(is_terminated) |
|---|
| 35 | ! CALL wait_us(10) |
|---|
| 36 | ENDDO |
|---|
| 37 | |
|---|
| 38 | ! CALL MPI_BARRIER(MPI_COMM_WORLD,ierr) |
|---|
| 39 | CALL histclo |
|---|
| 40 | |
|---|
| 41 | CALL Finalize_parallel |
|---|
| 42 | |
|---|
| 43 | PRINT *,"THAT'S ALL FOLK" |
|---|
| 44 | |
|---|
| 45 | END PROGRAM server |
|---|
Note: See
TracBrowser
for help on using the repository browser.
