source:
vendors/XMLIO_SERVER/current/src/IOSERVER/server.f90
@
2765
Last change on this file since 2765 was 1897, checked in by flavoni, 14 years ago | |
---|---|
File size: 851 bytes |
Rev | Line | |
---|---|---|
[1897] | 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.