source: XMLIO_SERVER/trunk/src/IOSERVER/mod_ioserver_namelist.f90 @ 26

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: 1.2 KB
Line 
1MODULE mod_ioserver_namelist
2
3  LOGICAL :: using_server
4  LOGICAL :: using_oasis
5  CHARACTER(LEN=100) :: client_id
6  CHARACTER(LEN=100) :: server_id
7 
8  NAMELIST /coupling_param/ using_server,using_oasis,client_id,server_id 
9
10  INTEGER,PARAMETER,PRIVATE :: starting_unit=356
11 
12CONTAINS
13
14  SUBROUTINE set_default_namelist
15  IMPLICIT NONE
16 
17    using_server=.FALSE.
18    using_oasis=.FALSE.
19    client_id='unknown'
20    server_id='unknown'
21  END SUBROUTINE set_default_namelist
22 
23   
24  SUBROUTINE read_namelist
25  IMPLICIT NONE
26    LOGICAL :: opened
27    INTEGER :: unit
28    INTEGER :: ierr
29
30    CALL set_default_namelist   
31    unit=starting_unit
32    opened=.TRUE.
33    DO WHILE (opened) 
34      unit=unit+1
35      INQUIRE(unit,OPENED=opened)
36    ENDDO
37     
38    OPEN(UNIT=unit,FILE='xmlio_server.def',STATUS='old',IOSTAT=ierr)
39   
40   
41    IF (ierr==0) THEN
42      READ(unit,nml=coupling_param)
43      CLOSE(unit)
44    ELSE
45      PRINT *,'WARNING : mod_ioserver::read_namelist : file xmlio_server.def is absent', &
46              ' ---> using default parameter'
47    ENDIF
48   
49   
50    PRINT *,'namelist read --> ',using_server,using_oasis,client_id,server_id
51   
52  END SUBROUTINE read_namelist
53
54
55END MODULE mod_ioserver_namelist 
Note: See TracBrowser for help on using the repository browser.