source: XMLIO_SERVER/trunk/src/XMLIO/xmlio.f90 @ 29

Last change on this file since 29 was 28, checked in by ymipsl, 15 years ago

Feature : ajout des paramÚtres temporels dans les contexts

File size: 1.2 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  USE mod_time_parameters
20 
21CONTAINS
22
23  SUBROUTINE xmlio__Init(xml_file)
24  USE parsing_xml
25  IMPLICIT NONE
26    CHARACTER(LEN=*),INTENT(IN) :: xml_file
27   
28    CALL context__init
29    CALL parsing_xml_file(xml_file)
30   
31  END SUBROUTINE xmlio__init
32 
33 
34  SUBROUTINE xmlio__close_definition
35  IMPLICIT NONE
36 
37    CALL axis_group__apply_default(axis_definition)
38    CALL grid_group__apply_default(grid_definition)
39    CALL field_group__apply_default(field_definition)
40    CALL file_group__apply_default(file_definition)
41 
42    CALL field_group__solve_ref(field_definition)
43    CALL file_group__solve_field_ref(file_definition)
44
45    CALL file_group__check(file_definition)
46    CALL axis_group__check(axis_definition)
47    CALL grid_group__process_domain(grid_definition)
48     
49    CALL set_dependency
50
51  END SUBROUTINE xmlio__close_definition
52
53END MODULE xmlio
Note: See TracBrowser for help on using the repository browser.