source: XMLIO_V2/dev/common/src/xmlio/fortran/ixios.F90 @ 286

Last change on this file since 286 was 286, checked in by ymipsl, 13 years ago

reprise en main de la version de H. Ozdoba. Correction de différentes erreurs de conception et bug.
Version NEMO operationnel en client/server, interoperabilita avec OASIS, reconstition de fichiers via netcdf4/HDF5

YM
File size: 5.5 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE XIOS
4
5
6USE icontext, ONLY : txios(context), xios(set_context_attr), xios(set_context_attr_hdl),   &
7                     xios(get_context_handle), xios(set_current_context),                  &
8                     xios(is_valid_context)
9
10USE idata, ONLY : xios(initialize), xios(finalize), xios(close_context_definition),       &
11                  xios(context_finalize), xios(send_field_r8_1d), xios(send_field_r8_2d), &
12                  xios(send_field_r8_3d), xios(send_field_r4_1d), xios(send_field_r4_2d), &
13                  xios(send_field_r4_3d)
14
15USE idate, ONLY : txios(date),txios(time), xios(set_timestep),xios(update_calendar)
16
17USE idomain, ONLY : txios(domain), txios(domaingroup), xios(set_domaingroup_attr),       &
18                    xios(set_domaingroup_attr_hdl), xios(set_domain_attr), xios(set_domain_attr_hdl),&
19                    xios(get_domain_handle), xios(get_domaingroup_handle),xios(is_valid_domain),     &
20                    xios(is_valid_domaingroup)
21                     
22USE ifield, ONLY : txios(field), txios(fieldgroup), xios(set_fieldgroup_attr),           &
23                   xios(set_fieldgroup_attr_hdl),xios(set_field_attr),xios(set_field_attr_hdl),      &
24                   xios(get_field_handle), xios(get_fieldgroup_handle), xios(is_valid_field),        &
25                   xios(is_valid_fieldgroup) 
26                   
27USE ifile, ONLY : txios(file), txios(filegroup), xios(set_file_attr),xios(set_file_attr_hdl), &
28                  xios(set_filegroup_attr), xios(set_filegroup_attr_hdl), xios(get_file_handle),    & 
29                  xios(get_filegroup_handle), xios(is_valid_file), xios(is_valid_filegroup)
30                 
31USE igrid, ONLY : txios(grid), txios(gridgroup), xios(set_grid_attr), xios(set_grid_attr_hdl), &
32                  xios(set_gridgroup_attr), xios(set_gridgroup_attr_hdl), xios(get_grid_handle),     &
33                  xios(get_gridgroup_handle), xios(is_valid_grid), xios(is_valid_gridgroup) 
34
35USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(set_axis_attr), xios(set_axis_attr_hdl), &
36                  xios(set_axisgroup_attr), xios(set_axisgroup_attr_hdl), xios(get_axis_handle),     &
37                  xios(get_axisgroup_handle), xios(is_valid_axis), xios(is_valid_axisgroup) 
38
39USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),          &
40                     xios(add_fieldtofile), xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), &
41                     xios(add_fieldgroup), xios(add_domaingroup), xios(add_fieldgrouptofile)
42
43USE idata, ONLY : xios(initialize), xios(finalize), xios(close_context_definition), xios(context_finalize), &
44                  xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),                   &
45                  xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d)
46                 
47
48PRIVATE
49
50
51INTERFACE xios(set_attr)
52  MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), &
53                   xios(set_field_attr_hdl), xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),          &
54                   xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          &
55                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl)
56END INTERFACE xios(set_attr)
57
58INTERFACE xios(get_handle)
59  MODULE PROCEDURE  xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle),        &
60                    xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),               &
61                    xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),          &
62                    xios(get_field_handle), xios(get_fieldgroup_handle)
63END INTERFACE xios(get_handle) 
64
65INTERFACE xios(add_child)
66  MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),    &
67                   xios(add_fieldtofile), xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), &
68                   xios(add_fieldgroup), xios(add_domaingroup), xios(add_fieldgrouptofile)
69END INTERFACE xios(add_child)
70
71
72INTERFACE xios(send_field)
73  MODULE PROCEDURE  xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),              &
74                    xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d)
75END INTERFACE xios(send_field)
76
77 
78 PUBLIC :: txios(domain), txios(domaingroup),txios(field), txios(fieldgroup),txios(file), txios(filegroup), &
79          txios(grid), txios(gridgroup), txios(axis), txios(axisgroup),txios(context), txios(date),txios(time) 
80
81 PUBLIC :: xios(set_attr), xios(set_domain_attr), xios(set_domaingroup_attr), xios(set_fieldgroup_attr), &
82          xios(set_field_attr), xios(set_file_attr), xios(set_filegroup_attr),          &
83          xios(set_grid_attr), xios(set_gridgroup_attr), xios(set_axis_attr) ,          &
84          xios(set_axisgroup_attr), xios(set_context_attr)
85
86 PUBLIC :: xios(get_handle) 
87
88 PUBLIC :: xios(is_valid_context),xios(is_valid_domain), xios(is_valid_domaingroup),xios(is_valid_field),        &
89          xios(is_valid_fieldgroup), xios(is_valid_file), xios(is_valid_filegroup), xios(is_valid_grid),         &
90          xios(is_valid_gridgroup), xios(is_valid_axis), xios(is_valid_axisgroup)
91         
92 PUBLIC :: xios(set_current_context) 
93 PUBLIC :: xios(set_timestep),xios(update_calendar)
94 PUBLIC :: xios(initialize), xios(finalize), xios(close_context_definition), xios(context_finalize), xios(send_field)
95
96END MODULE XIOS
Note: See TracBrowser for help on using the repository browser.