source:
branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/xmlio.f90
@
2847
Last change on this file since 2847 was 2281, checked in by smasson, 14 years ago | |
---|---|
|
|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[1897] | 1 | MODULE 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 | ||
21 | CONTAINS | |
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 | ||
53 | END MODULE xmlio |
Note: See TracBrowser
for help on using the repository browser.