source: XIOS/trunk/src/interface/fortran/ixios_interfaces.F90 @ 576

Last change on this file since 576 was 576, checked in by rlacroix, 6 years ago

Fix compilation with PGI for the development version of XIOS 2.0

  • Convert parse_xml.cpp to Fortran (port r573 to the trunk).
  • Modify date_interface to work-around a problem related to xios_duration type.
  • Reorganize the XIOS module to work-around a problem related to operator overloads for xios_duration and xios_date types.
File size: 6.7 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE XIOS_INTERFACES
4
5USE icontext, ONLY : xios(get_context_handle)
6
7USE icontext_attr, ONLY : xios(set_context_attr_hdl), xios(get_context_attr_hdl), xios(is_defined_context_attr_hdl)
8
9USE idata, ONLY : xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),                    &
10                  xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),                    &
11                  xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char), &
12                  xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char)
13
14USE idomain, ONLY : xios(get_domain_handle), xios(get_domaingroup_handle)
15
16USE idomain_attr, ONLY : xios(set_domain_attr_hdl), xios(get_domain_attr_hdl), xios(is_defined_domain_attr_hdl)
17
18USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr_hdl), xios(get_domaingroup_attr_hdl), xios(is_defined_domaingroup_attr_hdl)
19
20USE ifield, ONLY : xios(get_field_handle), xios(get_fieldgroup_handle), xios(field_is_active_id), xios(field_is_active_hdl)
21
22USE ifield_attr, ONLY : xios(set_field_attr_hdl), xios(get_field_attr_hdl), xios(is_defined_field_attr_hdl)
23
24USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr_hdl), xios(get_fieldgroup_attr_hdl), xios(is_defined_fieldgroup_attr_hdl)
25
26USE ivariable, ONLY : xios(get_variable_handle), xios(get_variablegroup_handle)
27
28USE ivariable_attr, ONLY : xios(set_variable_attr_hdl), xios(get_variable_attr_hdl), xios(is_defined_variable_attr_hdl)
29
30USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr_hdl), xios(get_variablegroup_attr_hdl), xios(is_defined_variablegroup_attr_hdl)
31
32USE ifile, ONLY : xios(get_file_handle), xios(get_filegroup_handle)
33
34USE ifile_attr, ONLY : xios(set_file_attr_hdl), xios(get_file_attr_hdl), xios(is_defined_file_attr_hdl)
35
36USE ifilegroup_attr, ONLY : xios(set_filegroup_attr_hdl), xios(get_filegroup_attr_hdl), xios(is_defined_filegroup_attr_hdl)
37
38USE igrid, ONLY : xios(get_grid_handle), xios(get_gridgroup_handle)
39
40USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(get_grid_attr_hdl), xios(is_defined_grid_attr_hdl)
41
42USE igridgroup_attr, ONLY : xios(set_gridgroup_attr_hdl), xios(get_gridgroup_attr_hdl), xios(is_defined_gridgroup_attr_hdl)
43
44USE iaxis, ONLY : xios(get_axis_handle), xios(get_axisgroup_handle)
45
46USE iaxis_attr, ONLY : xios(set_axis_attr_hdl), xios(get_axis_attr_hdl), xios(is_defined_axis_attr_hdl)
47
48USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr_hdl), xios(get_axisgroup_attr_hdl), xios(is_defined_axisgroup_attr_hdl)
49
50USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   &
51                      xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield),          &
52                      xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), &
53                      xios(add_domaingroup), xios(add_fieldgrouptofile), xios(add_variablegrouptofile),    &
54                      xios(add_variablegrouptofield)
55
56PRIVATE
57
58INTERFACE xios(set_attr)
59  MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), &
60                   xios(set_field_attr_hdl),xios(set_variable_attr_hdl), xios(set_variablegroup_attr_hdl),   &
61                   xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),                                    &
62                   xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          &
63                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl)
64END INTERFACE xios(set_attr)
65
66INTERFACE xios(get_attr)
67  MODULE PROCEDURE xios(get_domaingroup_attr_hdl), xios(get_domain_attr_hdl), xios(get_fieldgroup_attr_hdl), &
68                   xios(get_field_attr_hdl), xios(get_variable_attr_hdl), xios(get_variablegroup_attr_hdl),  &
69                   xios(get_file_attr_hdl), xios(get_filegroup_attr_hdl),                                    &
70                   xios(get_grid_attr_hdl), xios(get_gridgroup_attr_hdl), xios(get_axis_attr_hdl) ,          &
71                   xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl)
72END INTERFACE xios(get_attr)
73
74INTERFACE xios(is_defined_attr)
75  MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), &
76                   xios(is_defined_field_attr_hdl), xios(is_defined_variable_attr_hdl), xios(is_defined_variablegroup_attr_hdl),  &
77                   xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl),                                           &
78                   xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) ,          &
79                   xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl)
80END INTERFACE xios(is_defined_attr)
81
82INTERFACE xios(get_handle)
83  MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle), &
84                   xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),        &
85                   xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),   &
86                   xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),   &
87                   xios(get_variablegroup_handle)
88END INTERFACE xios(get_handle)
89
90INTERFACE xios(add_child)
91  MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),                &
92                   xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield), xios(add_axisgroup),  &
93                   xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), xios(add_domaingroup),            &
94                   xios(add_fieldgrouptofile), xios(add_variablegrouptofile),xios(add_variablegrouptofield)
95END INTERFACE xios(add_child)
96
97
98INTERFACE xios(send_field)
99  MODULE PROCEDURE xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
100                   xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d)
101END INTERFACE xios(send_field)
102
103INTERFACE xios(field_is_active)
104  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl)
105END INTERFACE xios(field_is_active)
106
107INTERFACE xios(getVar)
108  MODULE PROCEDURE xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char)
109END INTERFACE xios(getVar)
110
111INTERFACE xios(setVar)
112  MODULE PROCEDURE xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char)
113END INTERFACE xios(setVar)
114
115PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), &
116          xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar)
117
118END MODULE XIOS_INTERFACES
Note: See TracBrowser for help on using the repository browser.