New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
xmlio.f90 in branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/xmlio.f90 @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
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.