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

Last change on this file since 2131 was 2131, checked in by oabramkina, 3 years ago

Merging branch dev_oa with tiling into trunk
File size: 21.6 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_0d), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
10                  xios(send_field_r8_4d), xios(send_field_r8_5d), xios(send_field_r8_6d), xios(send_field_r8_7d), &
11                  xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), &
12                  xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d), &
13                  xios(send_field_r8_0d_hdl), xios(send_field_r8_1d_hdl), xios(send_field_r8_2d_hdl), xios(send_field_r8_3d_hdl), &
14                  xios(send_field_r8_4d_hdl), xios(send_field_r8_5d_hdl), xios(send_field_r8_6d_hdl), xios(send_field_r8_7d_hdl), &
15                  xios(send_field_r4_0d_hdl), xios(send_field_r4_1d_hdl), xios(send_field_r4_2d_hdl), xios(send_field_r4_3d_hdl), &
16                  xios(send_field_r4_4d_hdl), xios(send_field_r4_5d_hdl), xios(send_field_r4_6d_hdl), xios(send_field_r4_7d_hdl), &
17                  xios(send_field_tiled_r8_1d), xios(send_field_tiled_r8_2d), &
18                  xios(send_field_tiled_r8_3d), xios(send_field_tiled_r8_4d), &
19                  xios(send_field_tiled_r8_5d), xios(send_field_tiled_r8_6d), xios(send_field_tiled_r8_7d), &
20                  xios(send_field_tiled_r4_1d), xios(send_field_tiled_r4_2d), &
21                  xios(send_field_tiled_r4_3d), xios(send_field_tiled_r4_4d), &
22                  xios(send_field_tiled_r4_5d), xios(send_field_tiled_r4_6d), xios(send_field_tiled_r4_7d), &
23                  xios(recv_field_r8_0d), xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), &
24                  xios(recv_field_r8_4d), xios(recv_field_r8_5d), xios(recv_field_r8_6d), xios(recv_field_r8_7d), &
25                  xios(recv_field_r4_0d), xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d), &
26                  xios(recv_field_r4_4d), xios(recv_field_r4_5d), xios(recv_field_r4_6d), xios(recv_field_r4_7d), &
27                  xios(recv_field_r8_0d_hdl), xios(recv_field_r8_1d_hdl), xios(recv_field_r8_2d_hdl), xios(recv_field_r8_3d_hdl), &
28                  xios(recv_field_r8_4d_hdl), xios(recv_field_r8_5d_hdl), xios(recv_field_r8_6d_hdl), xios(recv_field_r8_7d_hdl), &
29                  xios(recv_field_r4_0d_hdl), xios(recv_field_r4_1d_hdl), xios(recv_field_r4_2d_hdl), xios(recv_field_r4_3d_hdl), &
30                  xios(recv_field_r4_4d_hdl), xios(recv_field_r4_5d_hdl), xios(recv_field_r4_6d_hdl), xios(recv_field_r4_7d_hdl), &
31                  xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char),      &
32                  xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char)
33
34USE idomain, ONLY : xios(get_domain_handle), xios(get_domaingroup_handle)
35
36USE idomain_attr, ONLY : xios(set_domain_attr_hdl), xios(get_domain_attr_hdl), xios(is_defined_domain_attr_hdl)
37
38USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr_hdl), xios(get_domaingroup_attr_hdl), xios(is_defined_domaingroup_attr_hdl)
39
40USE ifield, ONLY : xios(get_field_handle), xios(get_fieldgroup_handle), xios(field_is_active_id), xios(field_is_active_hdl), &
41                   xios(field_get_domain_handle), xios(field_get_axis_handle), xios(field_get_scalar_handle), &
42                   xios(field_id_get_domain_handle), xios(field_id_get_axis_handle), xios(field_id_get_scalar_handle)
43
44USE ifield_attr, ONLY : xios(set_field_attr_hdl), xios(get_field_attr_hdl), xios(is_defined_field_attr_hdl)
45
46USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr_hdl), xios(get_fieldgroup_attr_hdl), xios(is_defined_fieldgroup_attr_hdl)
47
48USE ivariable, ONLY : xios(get_variable_handle), xios(get_variablegroup_handle)
49
50USE ivariable_attr, ONLY : xios(set_variable_attr_hdl), xios(get_variable_attr_hdl), xios(is_defined_variable_attr_hdl)
51
52USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr_hdl), xios(get_variablegroup_attr_hdl), &
53                                xios(is_defined_variablegroup_attr_hdl)
54
55USE ifile, ONLY : xios(get_file_handle), xios(get_filegroup_handle)
56
57USE ifile_attr, ONLY : xios(set_file_attr_hdl), xios(get_file_attr_hdl), xios(is_defined_file_attr_hdl)
58
59USE ifilegroup_attr, ONLY : xios(set_filegroup_attr_hdl), xios(get_filegroup_attr_hdl), xios(is_defined_filegroup_attr_hdl)
60
61USE igrid, ONLY : xios(get_grid_handle), xios(get_gridgroup_handle)
62
63USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(get_grid_attr_hdl), xios(is_defined_grid_attr_hdl)
64
65USE igridgroup_attr, ONLY : xios(set_gridgroup_attr_hdl), xios(get_gridgroup_attr_hdl), xios(is_defined_gridgroup_attr_hdl)
66
67USE iaxis, ONLY : xios(get_axis_handle), xios(get_axisgroup_handle)
68
69USE iaxis_attr, ONLY : xios(set_axis_attr_hdl), xios(get_axis_attr_hdl), xios(is_defined_axis_attr_hdl)
70
71USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr_hdl), xios(get_axisgroup_attr_hdl), xios(is_defined_axisgroup_attr_hdl)
72
73USE iscalar, ONLY : xios(get_scalar_handle), xios(get_scalargroup_handle)
74
75USE iscalar_attr, ONLY : xios(set_scalar_attr_hdl), xios(get_scalar_attr_hdl), xios(is_defined_scalar_attr_hdl)
76
77USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr_hdl), xios(get_scalargroup_attr_hdl), xios(is_defined_scalargroup_attr_hdl)
78
79!-------------------------------------------------------------------------------
80!!! Transformation INTERFACES
81!-------------------------------------------------------------------------------
82!!! DOMAIN TRANSFORMATIONS
83USE izoom_domain, ONLY : xios(get_zoom_domain_handle)
84
85USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr_hdl), xios(get_zoom_domain_attr_hdl), xios(is_defined_zoom_domain_attr_hdl)
86
87USE iinterpolate_domain, ONLY : xios(get_interpolate_domain_handle)
88
89USE iinterpolate_domain_attr, ONLY : xios(set_interpolate_domain_attr_hdl), xios(get_interpolate_domain_attr_hdl), &
90                                     xios(is_defined_interpolate_domain_attr_hdl)
91
92USE igenerate_rectilinear_domain, ONLY : xios(get_generate_rectilinear_domain_handle)
93
94USE igenerate_rectilinear_domain_attr, ONLY : xios(set_generate_rectilinear_domain_attr_hdl), &
95                                              xios(get_generate_rectilinear_domain_attr_hdl), &
96                                              xios(is_defined_generate_rectilinear_domain_attr_hdl)
97
98USE icompute_connectivity_domain, ONLY : xios(get_compute_connectivity_domain_handle)
99
100USE icompute_connectivity_domain_attr, ONLY : xios(set_compute_connectivity_domain_attr_hdl), &
101                                              xios(get_compute_connectivity_domain_attr_hdl), &
102                                              xios(is_defined_compute_connectivity_domain_attr_hdl)
103
104USE iexpand_domain, ONLY : xios(get_expand_domain_handle)
105
106USE iexpand_domain_attr, ONLY : xios(set_expand_domain_attr_hdl), &
107                                xios(get_expand_domain_attr_hdl), &
108                                xios(is_defined_expand_domain_attr_hdl)
109
110!!! AXIS TRANSFORMATIONS
111USE izoom_axis, ONLY : xios(get_zoom_axis_handle)
112
113USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl)
114
115USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle)
116
117USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), &
118                                   xios(get_interpolate_axis_attr_hdl), &
119                                   xios(is_defined_interpolate_axis_attr_hdl)
120
121USE iinverse_axis, ONLY : xios(get_inverse_axis_handle)
122
123USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), &
124                               xios(get_inverse_axis_attr_hdl), &
125                               xios(is_defined_inverse_axis_attr_hdl)
126
127USE ireduce_domain_to_axis, ONLY : xios(get_reduce_domain_to_axis_handle)
128
129USE ireduce_domain_to_axis_attr, ONLY : xios(set_reduce_domain_to_axis_attr_hdl), &
130                                        xios(get_reduce_domain_to_axis_attr_hdl), &
131                                        xios(is_defined_reduce_domain_to_axis_attr_hdl)
132
133USE iextract_domain_to_axis, ONLY : xios(get_extract_domain_to_axis_handle)
134
135USE iextract_domain_to_axis_attr, ONLY : xios(set_extract_domain_to_axis_attr_hdl), &
136                                         xios(get_extract_domain_to_axis_attr_hdl), &
137                                         xios(is_defined_extract_domain_to_axis_attr_hdl)
138
139!!! SCALAR TRANSFORMATIONS
140
141
142USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle)
143
144USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), &
145                                        xios(get_reduce_axis_to_scalar_attr_hdl), &
146                                        xios(is_defined_reduce_axis_to_scalar_attr_hdl)
147
148USE ireduce_domain_to_scalar, ONLY : xios(get_reduce_domain_to_scalar_handle)
149
150USE ireduce_domain_to_scalar_attr, ONLY : xios(set_reduce_domain_to_scalar_attr_hdl), &
151                                          xios(get_reduce_domain_to_scalar_attr_hdl), &
152                                          xios(is_defined_reduce_domain_to_scalar_attr_hdl)
153
154USE iextract_axis_to_scalar, ONLY : xios(get_extract_axis_to_scalar_handle)
155
156USE iextract_axis_to_scalar_attr, ONLY : xios(set_extract_axis_to_scalar_attr_hdl), &
157                                         xios(get_extract_axis_to_scalar_attr_hdl), &
158                                         xios(is_defined_extract_axis_to_scalar_attr_hdl)
159
160USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   &
161                      xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield),          &
162                      xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), &
163                      xios(add_domaingroup), xios(add_fieldgrouptofile), xios(add_variablegrouptofile),    &
164                      xios(add_variablegrouptofield), xios(add_axistogrid), xios(add_domaintogrid),        &
165                      xios(add_zoomdomaintodomain), xios(add_interpolatedomaintodomain),                   &
166                      xios(add_generatedomaintodomain), xios(add_zoomaxistoaxis),                          &
167                      xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar),      &
168                      xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), &
169                      xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoaxistoaxis),     &
170                      xios(add_extractdomaintoaxistoaxis), xios(add_reducedomaintoscalartoscalar),         &
171                      xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain)
172
173PRIVATE
174
175INTERFACE xios(set_attr)
176  MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), &
177                   xios(set_field_attr_hdl),xios(set_variable_attr_hdl), xios(set_variablegroup_attr_hdl),   &
178                   xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),                                    &
179                   xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          &
180                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl), xios(set_zoom_axis_attr_hdl),   &
181                   xios(set_zoom_domain_attr_hdl), xios(set_interpolate_axis_attr_hdl),                      &
182                   xios(set_interpolate_domain_attr_hdl), xios(set_inverse_axis_attr_hdl),                   &
183                   xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl),                &
184                   xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl),                 &
185                   xios(set_compute_connectivity_domain_attr_hdl), xios(set_reduce_domain_to_scalar_attr_hdl), &
186                   xios(set_reduce_domain_to_axis_attr_hdl), xios(set_extract_domain_to_axis_attr_hdl),        &
187                   xios(set_extract_axis_to_scalar_attr_hdl), xios(set_expand_domain_attr_hdl)
188END INTERFACE xios(set_attr)
189
190
191INTERFACE xios(get_attr)
192  MODULE PROCEDURE xios(get_domaingroup_attr_hdl), xios(get_domain_attr_hdl), xios(get_fieldgroup_attr_hdl), &
193                   xios(get_field_attr_hdl), xios(get_variable_attr_hdl), xios(get_variablegroup_attr_hdl),  &
194                   xios(get_file_attr_hdl), xios(get_filegroup_attr_hdl),                                    &
195                   xios(get_grid_attr_hdl), xios(get_gridgroup_attr_hdl), xios(get_axis_attr_hdl) ,          &
196                   xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl), xios(get_zoom_axis_attr_hdl),   &
197                   xios(get_zoom_domain_attr_hdl), xios(get_interpolate_axis_attr_hdl),                      &
198                   xios(get_interpolate_domain_attr_hdl), xios(get_inverse_axis_attr_hdl),                   &
199                   xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl),                &
200                   xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl),                 &
201                   xios(get_compute_connectivity_domain_attr_hdl), xios(get_reduce_domain_to_scalar_attr_hdl), &
202                   xios(get_reduce_domain_to_axis_attr_hdl), xios(get_extract_domain_to_axis_attr_hdl),        &
203                   xios(get_extract_axis_to_scalar_attr_hdl), xios(get_expand_domain_attr_hdl)
204END INTERFACE xios(get_attr)
205
206INTERFACE xios(is_defined_attr)
207  MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), &
208                   xios(is_defined_field_attr_hdl), xios(is_defined_variable_attr_hdl), xios(is_defined_variablegroup_attr_hdl),  &
209                   xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl),                                           &
210                   xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) ,          &
211                   xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl),                                        &
212                   xios(is_defined_zoom_axis_attr_hdl), xios(is_defined_zoom_domain_attr_hdl),                                    &
213                   xios(is_defined_interpolate_axis_attr_hdl), xios(is_defined_interpolate_domain_attr_hdl),                      &
214                   xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl),                 &
215                   xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl),                                       &
216                   xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl),        &
217                   xios(is_defined_reduce_domain_to_scalar_attr_hdl), xios(is_defined_reduce_domain_to_axis_attr_hdl),            &
218                   xios(is_defined_extract_domain_to_axis_attr_hdl), xios(is_defined_extract_axis_to_scalar_attr_hdl),            &
219                   xios(is_defined_expand_domain_attr_hdl)
220END INTERFACE xios(is_defined_attr)
221
222INTERFACE xios(get_handle)
223  MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle),                  &
224                   xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),                         &
225                   xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),                    &
226                   xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),                    &
227                   xios(get_variablegroup_handle), xios(get_zoom_axis_handle),                                       &
228                   xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle),                                  &
229                   xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle),                               &
230                   xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle),                            &
231                   xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle),                             &
232                   xios(get_compute_connectivity_domain_handle), xios(get_reduce_domain_to_scalar_handle),           &
233                   xios(get_reduce_domain_to_axis_handle), xios(get_extract_domain_to_axis_handle),                  &
234                   xios(get_extract_axis_to_scalar_handle), xios(get_expand_domain_handle)
235END INTERFACE xios(get_handle)
236
237INTERFACE xios(add_child)
238  MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),                &
239                   xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield), xios(add_axisgroup),  &
240                   xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), xios(add_domaingroup),            &
241                   xios(add_fieldgrouptofile), xios(add_variablegrouptofile),xios(add_variablegrouptofield),         &
242                   xios(add_axistogrid), xios(add_domaintogrid), xios(add_zoomdomaintodomain),                       &
243                   xios(add_interpolatedomaintodomain), xios(add_generatedomaintodomain),                            &
244                   xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis),           &
245                   xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar),                   &
246                   xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoscalartoscalar),              &
247                   xios(add_reducedomaintoaxistoaxis), xios(add_extractdomaintoaxistoaxis),                          &
248                   xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain)
249END INTERFACE xios(add_child)
250
251INTERFACE xios(send_field)
252  MODULE PROCEDURE xios(send_field_r8_0d), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
253                   xios(send_field_r8_4d), xios(send_field_r8_5d), xios(send_field_r8_6d), xios(send_field_r8_7d), &
254                   xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), &
255                   xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d), &
256                   xios(send_field_r8_0d_hdl), xios(send_field_r8_1d_hdl), xios(send_field_r8_2d_hdl), xios(send_field_r8_3d_hdl), &
257                   xios(send_field_r8_4d_hdl), xios(send_field_r8_5d_hdl), xios(send_field_r8_6d_hdl), xios(send_field_r8_7d_hdl), &
258                   xios(send_field_r4_0d_hdl), xios(send_field_r4_1d_hdl), xios(send_field_r4_2d_hdl), xios(send_field_r4_3d_hdl), &
259                   xios(send_field_r4_4d_hdl), xios(send_field_r4_5d_hdl), xios(send_field_r4_6d_hdl), xios(send_field_r4_7d_hdl), &
260                   xios(send_field_tiled_r8_1d), xios(send_field_tiled_r8_2d), &
261                   xios(send_field_tiled_r8_3d), xios(send_field_tiled_r8_4d), &
262                   xios(send_field_tiled_r8_5d), xios(send_field_tiled_r8_6d), xios(send_field_tiled_r8_7d), &
263                   xios(send_field_tiled_r4_1d), xios(send_field_tiled_r4_2d), &
264                   xios(send_field_tiled_r4_3d), xios(send_field_tiled_r4_4d), &
265                   xios(send_field_tiled_r4_5d), xios(send_field_tiled_r4_6d), xios(send_field_tiled_r4_7d)
266END INTERFACE xios(send_field)
267
268INTERFACE xios(recv_field)
269  MODULE PROCEDURE xios(recv_field_r8_0d), xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), &
270                   xios(recv_field_r8_4d), xios(recv_field_r8_5d), xios(recv_field_r8_6d), xios(recv_field_r8_7d), &
271                   xios(recv_field_r4_0d), xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d), &
272                   xios(recv_field_r4_4d), xios(recv_field_r4_5d), xios(recv_field_r4_6d), xios(recv_field_r4_7d), &
273                   xios(recv_field_r8_0d_hdl), xios(recv_field_r8_1d_hdl), xios(recv_field_r8_2d_hdl), xios(recv_field_r8_3d_hdl), &
274                   xios(recv_field_r8_4d_hdl), xios(recv_field_r8_5d_hdl), xios(recv_field_r8_6d_hdl), xios(recv_field_r8_7d_hdl), &
275                   xios(recv_field_r4_0d_hdl), xios(recv_field_r4_1d_hdl), xios(recv_field_r4_2d_hdl), xios(recv_field_r4_3d_hdl), &
276                   xios(recv_field_r4_4d_hdl), xios(recv_field_r4_5d_hdl), xios(recv_field_r4_6d_hdl), xios(recv_field_r4_7d_hdl)
277END INTERFACE xios(recv_field)
278
279INTERFACE xios(field_is_active)
280  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl)
281END INTERFACE xios(field_is_active)
282
283INTERFACE xios(field_get_domain)
284  MODULE PROCEDURE xios(field_get_domain_handle), xios(field_id_get_domain_handle)
285END INTERFACE xios(field_get_domain)
286
287INTERFACE xios(field_get_axis)
288  MODULE PROCEDURE xios(field_get_axis_handle),xios(field_id_get_axis_handle)
289END INTERFACE xios(field_get_axis)
290
291INTERFACE xios(field_get_scalar)
292  MODULE PROCEDURE xios(field_get_scalar_handle),xios(field_id_get_scalar_handle)
293END INTERFACE xios(field_get_scalar)
294
295INTERFACE xios(getVar)
296  MODULE PROCEDURE xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char)
297END INTERFACE xios(getVar)
298
299INTERFACE xios(setVar)
300  MODULE PROCEDURE xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char)
301END INTERFACE xios(setVar)
302
303PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), &
304          xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar), &
305          xios(field_get_domain),xios(field_get_axis),xios(field_get_scalar)
306
307END MODULE XIOS_INTERFACES
Note: See TracBrowser for help on using the repository browser.