source: XMLIO_SERVER/trunk/src/XMLIO/xmlio.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.1 KB
Line 
1MODULE xmlio
2
3  USE mod_field
4  USE mod_field_group
5  USE mod_field_definition
6  USE mod_grid
7  USE mod_grid_group
8  USE mod_grid_definition
9  USE mod_axis
10  USE mod_axis_group
11  USE mod_axis_definition
12  USE mod_file
13  USE mod_file_group
14  USE mod_file_definition
15  USE mod_dependency
16  USE string_function
17  USE error_msg
18  USE mod_context
19 
20CONTAINS
21
22  SUBROUTINE xmlio__Init(xml_file)
23  USE parsing_xml
24  IMPLICIT NONE
25    CHARACTER(LEN=*),INTENT(IN) :: xml_file
26   
27    CALL context__init
28    CALL parsing_xml_file(xml_file)
29   
30  END SUBROUTINE xmlio__init
31 
32 
33  SUBROUTINE xmlio__close_definition
34  IMPLICIT NONE
35 
36    CALL axis_group__apply_default(axis_definition)
37    CALL grid_group__apply_default(grid_definition)
38    CALL field_group__apply_default(field_definition)
39    CALL file_group__apply_default(file_definition)
40 
41    CALL field_group__solve_ref(field_definition)
42    CALL file_group__solve_field_ref(file_definition)
43
44    CALL file_group__check(file_definition)
45    CALL axis_group__check(axis_definition)
46    CALL grid_group__process_domain(grid_definition)
47     
48    CALL set_dependency
49
50  END SUBROUTINE xmlio__close_definition
51
52END MODULE xmlio
Note: See TracBrowser for help on using the repository browser.