Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

idomaingroup_attr.F90

Last change on this file was 2623, checked in by jderouillat, 4 months ago
Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
Property copyright set to Software name : XIOS (Xml I/O Server) http://forge.ipsl.jussieu.fr/ioserver Creation date : January 2009 Licence : CeCCIL version2 see license file in root directory : Licence_CeCILL_V2-en.txt or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement) CNRS/IPSL (Institut Pierre Simon Laplace) Project Manager : Yann Meurdesoif yann.meurdesoif@cea.fr
File size: 70.6 KB

Line
1	! * ************************************************************************** *
2	! * Interface auto generated - do not modify *
3	! * ************************************************************************** *
4	#include "xios_fortran_prefix.hpp"
5
6	MODULE idomaingroup_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE idomain
9	USE domaingroup_interface_attr
10	USE LOGICAL_BOOL_CONVERSION
11
12	CONTAINS
13
14	SUBROUTINE xios(set_domaingroup_attr) &
15	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
16	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
17	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
18	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
19	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
20	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
21	, type )
22
23	IMPLICIT NONE
24	TYPE(txios(domaingroup)) :: domaingroup_hdl
25	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
26	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
27	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
28	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
30	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
31	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
32	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
34	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
35	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
36	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
37	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
38	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
39	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
40	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
45	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
46	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
47	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
48	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
50	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
51	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
54	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
55	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
56	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
57	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
58	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
59	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
60	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
61	INTEGER , OPTIONAL, INTENT(IN) :: ni
62	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
63	INTEGER , OPTIONAL, INTENT(IN) :: nj
64	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
65	INTEGER , OPTIONAL, INTENT(IN) :: ntiles
66	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
67	INTEGER , OPTIONAL, INTENT(IN) :: prec
68	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
69	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
70	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
71	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
72	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:)
73	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:)
74	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
75	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
76	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:)
77	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:)
78	LOGICAL , OPTIONAL, INTENT(IN) :: tile_only
79	LOGICAL (KIND=C_BOOL) :: tile_only_tmp
80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
81
82	CALL xios(get_domaingroup_handle) &
83	(domaingroup_id,domaingroup_hdl)
84	CALL xios(set_domaingroup_attr_hdl_) &
85	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
86	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
87	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
88	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
89	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
90	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
91	, type )
92
93	END SUBROUTINE xios(set_domaingroup_attr)
94
95	SUBROUTINE xios(set_domaingroup_attr_hdl) &
96	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
97	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
98	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
99	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
100	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
101	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
102	, type )
103
104	IMPLICIT NONE
105	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
106	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
107	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
108	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
110	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
111	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
114	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
115	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
116	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
117	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
118	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
119	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
120	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
121	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
123	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
124	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
125	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
126	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
127	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
128	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
130	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
131	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
132	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
134	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
135	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
136	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
137	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
138	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
139	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
141	INTEGER , OPTIONAL, INTENT(IN) :: ni
142	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
143	INTEGER , OPTIONAL, INTENT(IN) :: nj
144	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
145	INTEGER , OPTIONAL, INTENT(IN) :: ntiles
146	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
147	INTEGER , OPTIONAL, INTENT(IN) :: prec
148	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
149	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
150	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
151	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
152	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:)
153	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:)
154	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
155	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
156	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:)
157	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:)
158	LOGICAL , OPTIONAL, INTENT(IN) :: tile_only
159	LOGICAL (KIND=C_BOOL) :: tile_only_tmp
160	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
161
162	CALL xios(set_domaingroup_attr_hdl_) &
163	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
164	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
165	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
166	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
167	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
168	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
169	, type )
170
171	END SUBROUTINE xios(set_domaingroup_attr_hdl)
172
173	SUBROUTINE xios(set_domaingroup_attr_hdl_) &
174	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
175	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
176	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ &
177	, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ &
178	, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
179	, tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ &
180	, tile_ni_, tile_nj_, tile_only_, type_ )
181
182	IMPLICIT NONE
183	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
184	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
185	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
186	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
187	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
188	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
189	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
190	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
191	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
192	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
193	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
194	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
195	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
196	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
197	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
198	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
199	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
200	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
201	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
202	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
203	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
204	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
205	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
206	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
207	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
208	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
209	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
210	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
211	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
212	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
213	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
214	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
215	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
216	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
217	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
218	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
219	INTEGER , OPTIONAL, INTENT(IN) :: ni_
220	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
221	INTEGER , OPTIONAL, INTENT(IN) :: nj_
222	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
223	INTEGER , OPTIONAL, INTENT(IN) :: ntiles_
224	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
225	INTEGER , OPTIONAL, INTENT(IN) :: prec_
226	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
227	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
228	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:)
229	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:)
230	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni_(:)
231	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj_(:)
232	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:)
233	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:)
234	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni_(:)
235	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj_(:)
236	LOGICAL , OPTIONAL, INTENT(IN) :: tile_only_
237	LOGICAL (KIND=C_BOOL) :: tile_only__tmp
238	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
239
240	IF (PRESENT(area_)) THEN
241	CALL cxios_set_domaingroup_area &
242	(domaingroup_hdl%daddr, area_, SHAPE(area_))
243	ENDIF
244
245	IF (PRESENT(bounds_lat_1d_)) THEN
246	CALL cxios_set_domaingroup_bounds_lat_1d &
247	(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
248	ENDIF
249
250	IF (PRESENT(bounds_lat_2d_)) THEN
251	CALL cxios_set_domaingroup_bounds_lat_2d &
252	(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
253	ENDIF
254
255	IF (PRESENT(bounds_lat_name_)) THEN
256	CALL cxios_set_domaingroup_bounds_lat_name &
257	(domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
258	ENDIF
259
260	IF (PRESENT(bounds_lon_1d_)) THEN
261	CALL cxios_set_domaingroup_bounds_lon_1d &
262	(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
263	ENDIF
264
265	IF (PRESENT(bounds_lon_2d_)) THEN
266	CALL cxios_set_domaingroup_bounds_lon_2d &
267	(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
268	ENDIF
269
270	IF (PRESENT(bounds_lon_name_)) THEN
271	CALL cxios_set_domaingroup_bounds_lon_name &
272	(domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
273	ENDIF
274
275	IF (PRESENT(comment_)) THEN
276	CALL cxios_set_domaingroup_comment &
277	(domaingroup_hdl%daddr, comment_, len(comment_))
278	ENDIF
279
280	IF (PRESENT(data_dim_)) THEN
281	CALL cxios_set_domaingroup_data_dim &
282	(domaingroup_hdl%daddr, data_dim_)
283	ENDIF
284
285	IF (PRESENT(data_i_index_)) THEN
286	CALL cxios_set_domaingroup_data_i_index &
287	(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
288	ENDIF
289
290	IF (PRESENT(data_ibegin_)) THEN
291	CALL cxios_set_domaingroup_data_ibegin &
292	(domaingroup_hdl%daddr, data_ibegin_)
293	ENDIF
294
295	IF (PRESENT(data_j_index_)) THEN
296	CALL cxios_set_domaingroup_data_j_index &
297	(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
298	ENDIF
299
300	IF (PRESENT(data_jbegin_)) THEN
301	CALL cxios_set_domaingroup_data_jbegin &
302	(domaingroup_hdl%daddr, data_jbegin_)
303	ENDIF
304
305	IF (PRESENT(data_ni_)) THEN
306	CALL cxios_set_domaingroup_data_ni &
307	(domaingroup_hdl%daddr, data_ni_)
308	ENDIF
309
310	IF (PRESENT(data_nj_)) THEN
311	CALL cxios_set_domaingroup_data_nj &
312	(domaingroup_hdl%daddr, data_nj_)
313	ENDIF
314
315	IF (PRESENT(dim_i_name_)) THEN
316	CALL cxios_set_domaingroup_dim_i_name &
317	(domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
318	ENDIF
319
320	IF (PRESENT(dim_j_name_)) THEN
321	CALL cxios_set_domaingroup_dim_j_name &
322	(domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
323	ENDIF
324
325	IF (PRESENT(domain_ref_)) THEN
326	CALL cxios_set_domaingroup_domain_ref &
327	(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
328	ENDIF
329
330	IF (PRESENT(group_ref_)) THEN
331	CALL cxios_set_domaingroup_group_ref &
332	(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
333	ENDIF
334
335	IF (PRESENT(i_index_)) THEN
336	CALL cxios_set_domaingroup_i_index &
337	(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
338	ENDIF
339
340	IF (PRESENT(ibegin_)) THEN
341	CALL cxios_set_domaingroup_ibegin &
342	(domaingroup_hdl%daddr, ibegin_)
343	ENDIF
344
345	IF (PRESENT(j_index_)) THEN
346	CALL cxios_set_domaingroup_j_index &
347	(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
348	ENDIF
349
350	IF (PRESENT(jbegin_)) THEN
351	CALL cxios_set_domaingroup_jbegin &
352	(domaingroup_hdl%daddr, jbegin_)
353	ENDIF
354
355	IF (PRESENT(lat_name_)) THEN
356	CALL cxios_set_domaingroup_lat_name &
357	(domaingroup_hdl%daddr, lat_name_, len(lat_name_))
358	ENDIF
359
360	IF (PRESENT(latvalue_1d_)) THEN
361	CALL cxios_set_domaingroup_latvalue_1d &
362	(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
363	ENDIF
364
365	IF (PRESENT(latvalue_2d_)) THEN
366	CALL cxios_set_domaingroup_latvalue_2d &
367	(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
368	ENDIF
369
370	IF (PRESENT(lon_name_)) THEN
371	CALL cxios_set_domaingroup_lon_name &
372	(domaingroup_hdl%daddr, lon_name_, len(lon_name_))
373	ENDIF
374
375	IF (PRESENT(long_name_)) THEN
376	CALL cxios_set_domaingroup_long_name &
377	(domaingroup_hdl%daddr, long_name_, len(long_name_))
378	ENDIF
379
380	IF (PRESENT(lonvalue_1d_)) THEN
381	CALL cxios_set_domaingroup_lonvalue_1d &
382	(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
383	ENDIF
384
385	IF (PRESENT(lonvalue_2d_)) THEN
386	CALL cxios_set_domaingroup_lonvalue_2d &
387	(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
388	ENDIF
389
390	IF (PRESENT(mask_1d_)) THEN
391	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
392	mask_1d__tmp = mask_1d_
393	CALL xios_logical_to_bool_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
394	CALL cxios_set_domaingroup_mask_1d &
395	(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
396	ENDIF
397
398	IF (PRESENT(mask_2d_)) THEN
399	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
400	mask_2d__tmp = mask_2d_
401	CALL xios_logical_to_bool_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
402	CALL cxios_set_domaingroup_mask_2d &
403	(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
404	ENDIF
405
406	IF (PRESENT(name_)) THEN
407	CALL cxios_set_domaingroup_name &
408	(domaingroup_hdl%daddr, name_, len(name_))
409	ENDIF
410
411	IF (PRESENT(ni_)) THEN
412	CALL cxios_set_domaingroup_ni &
413	(domaingroup_hdl%daddr, ni_)
414	ENDIF
415
416	IF (PRESENT(ni_glo_)) THEN
417	CALL cxios_set_domaingroup_ni_glo &
418	(domaingroup_hdl%daddr, ni_glo_)
419	ENDIF
420
421	IF (PRESENT(nj_)) THEN
422	CALL cxios_set_domaingroup_nj &
423	(domaingroup_hdl%daddr, nj_)
424	ENDIF
425
426	IF (PRESENT(nj_glo_)) THEN
427	CALL cxios_set_domaingroup_nj_glo &
428	(domaingroup_hdl%daddr, nj_glo_)
429	ENDIF
430
431	IF (PRESENT(ntiles_)) THEN
432	CALL cxios_set_domaingroup_ntiles &
433	(domaingroup_hdl%daddr, ntiles_)
434	ENDIF
435
436	IF (PRESENT(nvertex_)) THEN
437	CALL cxios_set_domaingroup_nvertex &
438	(domaingroup_hdl%daddr, nvertex_)
439	ENDIF
440
441	IF (PRESENT(prec_)) THEN
442	CALL cxios_set_domaingroup_prec &
443	(domaingroup_hdl%daddr, prec_)
444	ENDIF
445
446	IF (PRESENT(radius_)) THEN
447	CALL cxios_set_domaingroup_radius &
448	(domaingroup_hdl%daddr, radius_)
449	ENDIF
450
451	IF (PRESENT(standard_name_)) THEN
452	CALL cxios_set_domaingroup_standard_name &
453	(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
454	ENDIF
455
456	IF (PRESENT(tile_data_ibegin_)) THEN
457	CALL cxios_set_domaingroup_tile_data_ibegin &
458	(domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
459	ENDIF
460
461	IF (PRESENT(tile_data_jbegin_)) THEN
462	CALL cxios_set_domaingroup_tile_data_jbegin &
463	(domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
464	ENDIF
465
466	IF (PRESENT(tile_data_ni_)) THEN
467	CALL cxios_set_domaingroup_tile_data_ni &
468	(domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_))
469	ENDIF
470
471	IF (PRESENT(tile_data_nj_)) THEN
472	CALL cxios_set_domaingroup_tile_data_nj &
473	(domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_))
474	ENDIF
475
476	IF (PRESENT(tile_ibegin_)) THEN
477	CALL cxios_set_domaingroup_tile_ibegin &
478	(domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
479	ENDIF
480
481	IF (PRESENT(tile_jbegin_)) THEN
482	CALL cxios_set_domaingroup_tile_jbegin &
483	(domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
484	ENDIF
485
486	IF (PRESENT(tile_ni_)) THEN
487	CALL cxios_set_domaingroup_tile_ni &
488	(domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
489	ENDIF
490
491	IF (PRESENT(tile_nj_)) THEN
492	CALL cxios_set_domaingroup_tile_nj &
493	(domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
494	ENDIF
495
496	IF (PRESENT(tile_only_)) THEN
497	tile_only__tmp = tile_only_
498	CALL xios_logical_to_bool_0d(tile_only__tmp)
499	CALL cxios_set_domaingroup_tile_only &
500	(domaingroup_hdl%daddr, tile_only__tmp)
501	ENDIF
502
503	IF (PRESENT(type_)) THEN
504	CALL cxios_set_domaingroup_type &
505	(domaingroup_hdl%daddr, type_, len(type_))
506	ENDIF
507
508	END SUBROUTINE xios(set_domaingroup_attr_hdl_)
509
510	SUBROUTINE xios(get_domaingroup_attr) &
511	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
512	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
513	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
514	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
515	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
516	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
517	, type )
518
519	IMPLICIT NONE
520	TYPE(txios(domaingroup)) :: domaingroup_hdl
521	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
522	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
523	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
524	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
525	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
526	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
527	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
528	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
529	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
530	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
531	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
532	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
533	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
534	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
535	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
536	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
537	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
538	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
539	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
540	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
541	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
542	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
543	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
544	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
545	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
546	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
547	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
548	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
549	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
550	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
551	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
552	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
553	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
554	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
555	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
556	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
557	INTEGER , OPTIONAL, INTENT(OUT) :: ni
558	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
559	INTEGER , OPTIONAL, INTENT(OUT) :: nj
560	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
561	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles
562	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
563	INTEGER , OPTIONAL, INTENT(OUT) :: prec
564	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
565	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
566	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
567	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
568	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:)
569	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:)
570	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
571	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
572	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:)
573	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:)
574	LOGICAL , OPTIONAL, INTENT(OUT) :: tile_only
575	LOGICAL (KIND=C_BOOL) :: tile_only_tmp
576	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
577
578	CALL xios(get_domaingroup_handle) &
579	(domaingroup_id,domaingroup_hdl)
580	CALL xios(get_domaingroup_attr_hdl_) &
581	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
582	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
583	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
584	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
585	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
586	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
587	, type )
588
589	END SUBROUTINE xios(get_domaingroup_attr)
590
591	SUBROUTINE xios(get_domaingroup_attr_hdl) &
592	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
593	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
594	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
595	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
596	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
597	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
598	, type )
599
600	IMPLICIT NONE
601	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
602	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
603	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
604	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
605	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
606	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
607	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
608	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
609	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
610	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
611	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
612	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
613	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
614	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
615	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
616	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
617	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
618	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
619	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
620	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
621	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
622	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
623	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
624	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
625	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
626	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
627	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
628	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
629	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
630	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
631	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
632	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
633	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
634	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
635	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
636	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
637	INTEGER , OPTIONAL, INTENT(OUT) :: ni
638	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
639	INTEGER , OPTIONAL, INTENT(OUT) :: nj
640	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
641	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles
642	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
643	INTEGER , OPTIONAL, INTENT(OUT) :: prec
644	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
645	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
646	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
647	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
648	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:)
649	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:)
650	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
651	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
652	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:)
653	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:)
654	LOGICAL , OPTIONAL, INTENT(OUT) :: tile_only
655	LOGICAL (KIND=C_BOOL) :: tile_only_tmp
656	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
657
658	CALL xios(get_domaingroup_attr_hdl_) &
659	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
660	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
661	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
662	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
663	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
664	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
665	, type )
666
667	END SUBROUTINE xios(get_domaingroup_attr_hdl)
668
669	SUBROUTINE xios(get_domaingroup_attr_hdl_) &
670	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
671	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
672	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ &
673	, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ &
674	, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
675	, tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ &
676	, tile_ni_, tile_nj_, tile_only_, type_ )
677
678	IMPLICIT NONE
679	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
680	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
681	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
682	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
683	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
684	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
685	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
686	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
687	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
688	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
689	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
690	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
691	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
692	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
693	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
694	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
695	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
696	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
697	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
698	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
699	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
700	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
701	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
702	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
703	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
704	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
705	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
706	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
707	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
708	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
709	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
710	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
711	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
712	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
713	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
714	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
715	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
716	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
717	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
718	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
719	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles_
720	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
721	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
722	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
723	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
724	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:)
725	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:)
726	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:)
727	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:)
728	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:)
729	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:)
730	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni_(:)
731	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj_(:)
732	LOGICAL , OPTIONAL, INTENT(OUT) :: tile_only_
733	LOGICAL (KIND=C_BOOL) :: tile_only__tmp
734	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
735
736	IF (PRESENT(area_)) THEN
737	CALL cxios_get_domaingroup_area &
738	(domaingroup_hdl%daddr, area_, SHAPE(area_))
739	ENDIF
740
741	IF (PRESENT(bounds_lat_1d_)) THEN
742	CALL cxios_get_domaingroup_bounds_lat_1d &
743	(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
744	ENDIF
745
746	IF (PRESENT(bounds_lat_2d_)) THEN
747	CALL cxios_get_domaingroup_bounds_lat_2d &
748	(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
749	ENDIF
750
751	IF (PRESENT(bounds_lat_name_)) THEN
752	CALL cxios_get_domaingroup_bounds_lat_name &
753	(domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
754	ENDIF
755
756	IF (PRESENT(bounds_lon_1d_)) THEN
757	CALL cxios_get_domaingroup_bounds_lon_1d &
758	(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
759	ENDIF
760
761	IF (PRESENT(bounds_lon_2d_)) THEN
762	CALL cxios_get_domaingroup_bounds_lon_2d &
763	(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
764	ENDIF
765
766	IF (PRESENT(bounds_lon_name_)) THEN
767	CALL cxios_get_domaingroup_bounds_lon_name &
768	(domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
769	ENDIF
770
771	IF (PRESENT(comment_)) THEN
772	CALL cxios_get_domaingroup_comment &
773	(domaingroup_hdl%daddr, comment_, len(comment_))
774	ENDIF
775
776	IF (PRESENT(data_dim_)) THEN
777	CALL cxios_get_domaingroup_data_dim &
778	(domaingroup_hdl%daddr, data_dim_)
779	ENDIF
780
781	IF (PRESENT(data_i_index_)) THEN
782	CALL cxios_get_domaingroup_data_i_index &
783	(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
784	ENDIF
785
786	IF (PRESENT(data_ibegin_)) THEN
787	CALL cxios_get_domaingroup_data_ibegin &
788	(domaingroup_hdl%daddr, data_ibegin_)
789	ENDIF
790
791	IF (PRESENT(data_j_index_)) THEN
792	CALL cxios_get_domaingroup_data_j_index &
793	(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
794	ENDIF
795
796	IF (PRESENT(data_jbegin_)) THEN
797	CALL cxios_get_domaingroup_data_jbegin &
798	(domaingroup_hdl%daddr, data_jbegin_)
799	ENDIF
800
801	IF (PRESENT(data_ni_)) THEN
802	CALL cxios_get_domaingroup_data_ni &
803	(domaingroup_hdl%daddr, data_ni_)
804	ENDIF
805
806	IF (PRESENT(data_nj_)) THEN
807	CALL cxios_get_domaingroup_data_nj &
808	(domaingroup_hdl%daddr, data_nj_)
809	ENDIF
810
811	IF (PRESENT(dim_i_name_)) THEN
812	CALL cxios_get_domaingroup_dim_i_name &
813	(domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
814	ENDIF
815
816	IF (PRESENT(dim_j_name_)) THEN
817	CALL cxios_get_domaingroup_dim_j_name &
818	(domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
819	ENDIF
820
821	IF (PRESENT(domain_ref_)) THEN
822	CALL cxios_get_domaingroup_domain_ref &
823	(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
824	ENDIF
825
826	IF (PRESENT(group_ref_)) THEN
827	CALL cxios_get_domaingroup_group_ref &
828	(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
829	ENDIF
830
831	IF (PRESENT(i_index_)) THEN
832	CALL cxios_get_domaingroup_i_index &
833	(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
834	ENDIF
835
836	IF (PRESENT(ibegin_)) THEN
837	CALL cxios_get_domaingroup_ibegin &
838	(domaingroup_hdl%daddr, ibegin_)
839	ENDIF
840
841	IF (PRESENT(j_index_)) THEN
842	CALL cxios_get_domaingroup_j_index &
843	(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
844	ENDIF
845
846	IF (PRESENT(jbegin_)) THEN
847	CALL cxios_get_domaingroup_jbegin &
848	(domaingroup_hdl%daddr, jbegin_)
849	ENDIF
850
851	IF (PRESENT(lat_name_)) THEN
852	CALL cxios_get_domaingroup_lat_name &
853	(domaingroup_hdl%daddr, lat_name_, len(lat_name_))
854	ENDIF
855
856	IF (PRESENT(latvalue_1d_)) THEN
857	CALL cxios_get_domaingroup_latvalue_1d &
858	(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
859	ENDIF
860
861	IF (PRESENT(latvalue_2d_)) THEN
862	CALL cxios_get_domaingroup_latvalue_2d &
863	(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
864	ENDIF
865
866	IF (PRESENT(lon_name_)) THEN
867	CALL cxios_get_domaingroup_lon_name &
868	(domaingroup_hdl%daddr, lon_name_, len(lon_name_))
869	ENDIF
870
871	IF (PRESENT(long_name_)) THEN
872	CALL cxios_get_domaingroup_long_name &
873	(domaingroup_hdl%daddr, long_name_, len(long_name_))
874	ENDIF
875
876	IF (PRESENT(lonvalue_1d_)) THEN
877	CALL cxios_get_domaingroup_lonvalue_1d &
878	(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
879	ENDIF
880
881	IF (PRESENT(lonvalue_2d_)) THEN
882	CALL cxios_get_domaingroup_lonvalue_2d &
883	(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
884	ENDIF
885
886	IF (PRESENT(mask_1d_)) THEN
887	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
888	CALL cxios_get_domaingroup_mask_1d &
889	(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
890	CALL xios_bool_to_logical_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
891	mask_1d_ = mask_1d__tmp
892	ENDIF
893
894	IF (PRESENT(mask_2d_)) THEN
895	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
896	CALL cxios_get_domaingroup_mask_2d &
897	(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
898	CALL xios_bool_to_logical_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
899	mask_2d_ = mask_2d__tmp
900	ENDIF
901
902	IF (PRESENT(name_)) THEN
903	CALL cxios_get_domaingroup_name &
904	(domaingroup_hdl%daddr, name_, len(name_))
905	ENDIF
906
907	IF (PRESENT(ni_)) THEN
908	CALL cxios_get_domaingroup_ni &
909	(domaingroup_hdl%daddr, ni_)
910	ENDIF
911
912	IF (PRESENT(ni_glo_)) THEN
913	CALL cxios_get_domaingroup_ni_glo &
914	(domaingroup_hdl%daddr, ni_glo_)
915	ENDIF
916
917	IF (PRESENT(nj_)) THEN
918	CALL cxios_get_domaingroup_nj &
919	(domaingroup_hdl%daddr, nj_)
920	ENDIF
921
922	IF (PRESENT(nj_glo_)) THEN
923	CALL cxios_get_domaingroup_nj_glo &
924	(domaingroup_hdl%daddr, nj_glo_)
925	ENDIF
926
927	IF (PRESENT(ntiles_)) THEN
928	CALL cxios_get_domaingroup_ntiles &
929	(domaingroup_hdl%daddr, ntiles_)
930	ENDIF
931
932	IF (PRESENT(nvertex_)) THEN
933	CALL cxios_get_domaingroup_nvertex &
934	(domaingroup_hdl%daddr, nvertex_)
935	ENDIF
936
937	IF (PRESENT(prec_)) THEN
938	CALL cxios_get_domaingroup_prec &
939	(domaingroup_hdl%daddr, prec_)
940	ENDIF
941
942	IF (PRESENT(radius_)) THEN
943	CALL cxios_get_domaingroup_radius &
944	(domaingroup_hdl%daddr, radius_)
945	ENDIF
946
947	IF (PRESENT(standard_name_)) THEN
948	CALL cxios_get_domaingroup_standard_name &
949	(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
950	ENDIF
951
952	IF (PRESENT(tile_data_ibegin_)) THEN
953	CALL cxios_get_domaingroup_tile_data_ibegin &
954	(domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
955	ENDIF
956
957	IF (PRESENT(tile_data_jbegin_)) THEN
958	CALL cxios_get_domaingroup_tile_data_jbegin &
959	(domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
960	ENDIF
961
962	IF (PRESENT(tile_data_ni_)) THEN
963	CALL cxios_get_domaingroup_tile_data_ni &
964	(domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_))
965	ENDIF
966
967	IF (PRESENT(tile_data_nj_)) THEN
968	CALL cxios_get_domaingroup_tile_data_nj &
969	(domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_))
970	ENDIF
971
972	IF (PRESENT(tile_ibegin_)) THEN
973	CALL cxios_get_domaingroup_tile_ibegin &
974	(domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
975	ENDIF
976
977	IF (PRESENT(tile_jbegin_)) THEN
978	CALL cxios_get_domaingroup_tile_jbegin &
979	(domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
980	ENDIF
981
982	IF (PRESENT(tile_ni_)) THEN
983	CALL cxios_get_domaingroup_tile_ni &
984	(domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
985	ENDIF
986
987	IF (PRESENT(tile_nj_)) THEN
988	CALL cxios_get_domaingroup_tile_nj &
989	(domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
990	ENDIF
991
992	IF (PRESENT(tile_only_)) THEN
993	CALL cxios_get_domaingroup_tile_only &
994	(domaingroup_hdl%daddr, tile_only__tmp)
995	CALL xios_bool_to_logical_0d(tile_only__tmp)
996	tile_only_ = tile_only__tmp
997	ENDIF
998
999	IF (PRESENT(type_)) THEN
1000	CALL cxios_get_domaingroup_type &
1001	(domaingroup_hdl%daddr, type_, len(type_))
1002	ENDIF
1003
1004	END SUBROUTINE xios(get_domaingroup_attr_hdl_)
1005
1006	SUBROUTINE xios(is_defined_domaingroup_attr) &
1007	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
1008	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
1009	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
1010	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
1011	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
1012	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
1013	, type )
1014
1015	IMPLICIT NONE
1016	TYPE(txios(domaingroup)) :: domaingroup_hdl
1017	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
1018	LOGICAL, OPTIONAL, INTENT(OUT) :: area
1019	LOGICAL(KIND=C_BOOL) :: area_tmp
1020	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1021	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1022	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1023	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
1024	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1025	LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
1026	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1027	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1028	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1029	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
1030	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1031	LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1032	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1033	LOGICAL(KIND=C_BOOL) :: comment_tmp
1034	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1035	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1036	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1037	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1038	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1039	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1040	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1041	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1042	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1043	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1044	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1045	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1046	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1047	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
1048	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1049	LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1050	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1051	LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
1052	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1053	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
1054	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1055	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
1056	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1057	LOGICAL(KIND=C_BOOL) :: i_index_tmp
1058	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1059	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
1060	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1061	LOGICAL(KIND=C_BOOL) :: j_index_tmp
1062	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1063	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
1064	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1065	LOGICAL(KIND=C_BOOL) :: lat_name_tmp
1066	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1067	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1068	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1069	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
1070	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1071	LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1072	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1073	LOGICAL(KIND=C_BOOL) :: long_name_tmp
1074	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1075	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1076	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1077	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1078	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1079	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1080	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1081	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1082	LOGICAL, OPTIONAL, INTENT(OUT) :: name
1083	LOGICAL(KIND=C_BOOL) :: name_tmp
1084	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1085	LOGICAL(KIND=C_BOOL) :: ni_tmp
1086	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1087	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1088	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1089	LOGICAL(KIND=C_BOOL) :: nj_tmp
1090	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1091	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1092	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1093	LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1094	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1095	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1096	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1097	LOGICAL(KIND=C_BOOL) :: prec_tmp
1098	LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1099	LOGICAL(KIND=C_BOOL) :: radius_tmp
1100	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1101	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1102	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1103	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1104	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1105	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1106	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni
1107	LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp
1108	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj
1109	LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp
1110	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1111	LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1112	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1113	LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1114	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1115	LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1116	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1117	LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1118	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only
1119	LOGICAL(KIND=C_BOOL) :: tile_only_tmp
1120	LOGICAL, OPTIONAL, INTENT(OUT) :: type
1121	LOGICAL(KIND=C_BOOL) :: type_tmp
1122
1123	CALL xios(get_domaingroup_handle) &
1124	(domaingroup_id,domaingroup_hdl)
1125	CALL xios(is_defined_domaingroup_attr_hdl_) &
1126	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
1127	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
1128	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
1129	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
1130	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
1131	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
1132	, type )
1133
1134	END SUBROUTINE xios(is_defined_domaingroup_attr)
1135
1136	SUBROUTINE xios(is_defined_domaingroup_attr_hdl) &
1137	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
1138	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
1139	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
1140	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
1141	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
1142	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
1143	, type )
1144
1145	IMPLICIT NONE
1146	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1147	LOGICAL, OPTIONAL, INTENT(OUT) :: area
1148	LOGICAL(KIND=C_BOOL) :: area_tmp
1149	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1150	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1151	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1152	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
1153	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1154	LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
1155	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1156	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1157	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1158	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
1159	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1160	LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1161	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1162	LOGICAL(KIND=C_BOOL) :: comment_tmp
1163	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1164	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1165	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1166	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1167	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1168	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1169	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1170	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1171	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1172	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1173	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1174	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1175	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1176	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
1177	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1178	LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1179	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1180	LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
1181	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1182	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
1183	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1184	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
1185	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1186	LOGICAL(KIND=C_BOOL) :: i_index_tmp
1187	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1188	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
1189	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1190	LOGICAL(KIND=C_BOOL) :: j_index_tmp
1191	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1192	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
1193	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1194	LOGICAL(KIND=C_BOOL) :: lat_name_tmp
1195	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1196	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1197	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1198	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
1199	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1200	LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1201	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1202	LOGICAL(KIND=C_BOOL) :: long_name_tmp
1203	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1204	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1205	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1206	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1207	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1208	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1209	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1210	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1211	LOGICAL, OPTIONAL, INTENT(OUT) :: name
1212	LOGICAL(KIND=C_BOOL) :: name_tmp
1213	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1214	LOGICAL(KIND=C_BOOL) :: ni_tmp
1215	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1216	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1217	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1218	LOGICAL(KIND=C_BOOL) :: nj_tmp
1219	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1220	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1221	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1222	LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1223	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1224	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1225	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1226	LOGICAL(KIND=C_BOOL) :: prec_tmp
1227	LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1228	LOGICAL(KIND=C_BOOL) :: radius_tmp
1229	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1230	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1231	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1232	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1233	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1234	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1235	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni
1236	LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp
1237	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj
1238	LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp
1239	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1240	LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1241	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1242	LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1243	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1244	LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1245	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1246	LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1247	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only
1248	LOGICAL(KIND=C_BOOL) :: tile_only_tmp
1249	LOGICAL, OPTIONAL, INTENT(OUT) :: type
1250	LOGICAL(KIND=C_BOOL) :: type_tmp
1251
1252	CALL xios(is_defined_domaingroup_attr_hdl_) &
1253	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
1254	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
1255	, data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name &
1256	, latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d &
1257	, name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin &
1258	, tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only &
1259	, type )
1260
1261	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
1262
1263	SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) &
1264	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
1265	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
1266	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ &
1267	, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ &
1268	, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
1269	, tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ &
1270	, tile_ni_, tile_nj_, tile_only_, type_ )
1271
1272	IMPLICIT NONE
1273	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1274	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1275	LOGICAL(KIND=C_BOOL) :: area__tmp
1276	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1277	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1278	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1279	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
1280	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1281	LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
1282	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1283	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1284	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1285	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
1286	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1287	LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1288	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1289	LOGICAL(KIND=C_BOOL) :: comment__tmp
1290	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1291	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1292	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1293	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1294	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1295	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1296	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1297	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1298	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1299	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1300	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1301	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1302	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1303	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
1304	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1305	LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1306	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1307	LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
1308	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1309	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
1310	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1311	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1312	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1313	LOGICAL(KIND=C_BOOL) :: i_index__tmp
1314	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1315	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
1316	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1317	LOGICAL(KIND=C_BOOL) :: j_index__tmp
1318	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1319	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
1320	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1321	LOGICAL(KIND=C_BOOL) :: lat_name__tmp
1322	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1323	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1324	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1325	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
1326	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1327	LOGICAL(KIND=C_BOOL) :: lon_name__tmp
1328	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1329	LOGICAL(KIND=C_BOOL) :: long_name__tmp
1330	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1331	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1332	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1333	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1334	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1335	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1336	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1337	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
1338	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1339	LOGICAL(KIND=C_BOOL) :: name__tmp
1340	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1341	LOGICAL(KIND=C_BOOL) :: ni__tmp
1342	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1343	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1344	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1345	LOGICAL(KIND=C_BOOL) :: nj__tmp
1346	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1347	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
1348	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_
1349	LOGICAL(KIND=C_BOOL) :: ntiles__tmp
1350	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1351	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
1352	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1353	LOGICAL(KIND=C_BOOL) :: prec__tmp
1354	LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
1355	LOGICAL(KIND=C_BOOL) :: radius__tmp
1356	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1357	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
1358	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_
1359	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp
1360	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_
1361	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp
1362	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_
1363	LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp
1364	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_
1365	LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp
1366	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_
1367	LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp
1368	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_
1369	LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp
1370	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_
1371	LOGICAL(KIND=C_BOOL) :: tile_ni__tmp
1372	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_
1373	LOGICAL(KIND=C_BOOL) :: tile_nj__tmp
1374	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only_
1375	LOGICAL(KIND=C_BOOL) :: tile_only__tmp
1376	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1377	LOGICAL(KIND=C_BOOL) :: type__tmp
1378
1379	IF (PRESENT(area_)) THEN
1380	area__tmp = cxios_is_defined_domaingroup_area &
1381	(domaingroup_hdl%daddr)
1382	area_ = area__tmp
1383	ENDIF
1384
1385	IF (PRESENT(bounds_lat_1d_)) THEN
1386	bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d &
1387	(domaingroup_hdl%daddr)
1388	bounds_lat_1d_ = bounds_lat_1d__tmp
1389	ENDIF
1390
1391	IF (PRESENT(bounds_lat_2d_)) THEN
1392	bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d &
1393	(domaingroup_hdl%daddr)
1394	bounds_lat_2d_ = bounds_lat_2d__tmp
1395	ENDIF
1396
1397	IF (PRESENT(bounds_lat_name_)) THEN
1398	bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name &
1399	(domaingroup_hdl%daddr)
1400	bounds_lat_name_ = bounds_lat_name__tmp
1401	ENDIF
1402
1403	IF (PRESENT(bounds_lon_1d_)) THEN
1404	bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d &
1405	(domaingroup_hdl%daddr)
1406	bounds_lon_1d_ = bounds_lon_1d__tmp
1407	ENDIF
1408
1409	IF (PRESENT(bounds_lon_2d_)) THEN
1410	bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d &
1411	(domaingroup_hdl%daddr)
1412	bounds_lon_2d_ = bounds_lon_2d__tmp
1413	ENDIF
1414
1415	IF (PRESENT(bounds_lon_name_)) THEN
1416	bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name &
1417	(domaingroup_hdl%daddr)
1418	bounds_lon_name_ = bounds_lon_name__tmp
1419	ENDIF
1420
1421	IF (PRESENT(comment_)) THEN
1422	comment__tmp = cxios_is_defined_domaingroup_comment &
1423	(domaingroup_hdl%daddr)
1424	comment_ = comment__tmp
1425	ENDIF
1426
1427	IF (PRESENT(data_dim_)) THEN
1428	data_dim__tmp = cxios_is_defined_domaingroup_data_dim &
1429	(domaingroup_hdl%daddr)
1430	data_dim_ = data_dim__tmp
1431	ENDIF
1432
1433	IF (PRESENT(data_i_index_)) THEN
1434	data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index &
1435	(domaingroup_hdl%daddr)
1436	data_i_index_ = data_i_index__tmp
1437	ENDIF
1438
1439	IF (PRESENT(data_ibegin_)) THEN
1440	data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin &
1441	(domaingroup_hdl%daddr)
1442	data_ibegin_ = data_ibegin__tmp
1443	ENDIF
1444
1445	IF (PRESENT(data_j_index_)) THEN
1446	data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index &
1447	(domaingroup_hdl%daddr)
1448	data_j_index_ = data_j_index__tmp
1449	ENDIF
1450
1451	IF (PRESENT(data_jbegin_)) THEN
1452	data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin &
1453	(domaingroup_hdl%daddr)
1454	data_jbegin_ = data_jbegin__tmp
1455	ENDIF
1456
1457	IF (PRESENT(data_ni_)) THEN
1458	data_ni__tmp = cxios_is_defined_domaingroup_data_ni &
1459	(domaingroup_hdl%daddr)
1460	data_ni_ = data_ni__tmp
1461	ENDIF
1462
1463	IF (PRESENT(data_nj_)) THEN
1464	data_nj__tmp = cxios_is_defined_domaingroup_data_nj &
1465	(domaingroup_hdl%daddr)
1466	data_nj_ = data_nj__tmp
1467	ENDIF
1468
1469	IF (PRESENT(dim_i_name_)) THEN
1470	dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name &
1471	(domaingroup_hdl%daddr)
1472	dim_i_name_ = dim_i_name__tmp
1473	ENDIF
1474
1475	IF (PRESENT(dim_j_name_)) THEN
1476	dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name &
1477	(domaingroup_hdl%daddr)
1478	dim_j_name_ = dim_j_name__tmp
1479	ENDIF
1480
1481	IF (PRESENT(domain_ref_)) THEN
1482	domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref &
1483	(domaingroup_hdl%daddr)
1484	domain_ref_ = domain_ref__tmp
1485	ENDIF
1486
1487	IF (PRESENT(group_ref_)) THEN
1488	group_ref__tmp = cxios_is_defined_domaingroup_group_ref &
1489	(domaingroup_hdl%daddr)
1490	group_ref_ = group_ref__tmp
1491	ENDIF
1492
1493	IF (PRESENT(i_index_)) THEN
1494	i_index__tmp = cxios_is_defined_domaingroup_i_index &
1495	(domaingroup_hdl%daddr)
1496	i_index_ = i_index__tmp
1497	ENDIF
1498
1499	IF (PRESENT(ibegin_)) THEN
1500	ibegin__tmp = cxios_is_defined_domaingroup_ibegin &
1501	(domaingroup_hdl%daddr)
1502	ibegin_ = ibegin__tmp
1503	ENDIF
1504
1505	IF (PRESENT(j_index_)) THEN
1506	j_index__tmp = cxios_is_defined_domaingroup_j_index &
1507	(domaingroup_hdl%daddr)
1508	j_index_ = j_index__tmp
1509	ENDIF
1510
1511	IF (PRESENT(jbegin_)) THEN
1512	jbegin__tmp = cxios_is_defined_domaingroup_jbegin &
1513	(domaingroup_hdl%daddr)
1514	jbegin_ = jbegin__tmp
1515	ENDIF
1516
1517	IF (PRESENT(lat_name_)) THEN
1518	lat_name__tmp = cxios_is_defined_domaingroup_lat_name &
1519	(domaingroup_hdl%daddr)
1520	lat_name_ = lat_name__tmp
1521	ENDIF
1522
1523	IF (PRESENT(latvalue_1d_)) THEN
1524	latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d &
1525	(domaingroup_hdl%daddr)
1526	latvalue_1d_ = latvalue_1d__tmp
1527	ENDIF
1528
1529	IF (PRESENT(latvalue_2d_)) THEN
1530	latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d &
1531	(domaingroup_hdl%daddr)
1532	latvalue_2d_ = latvalue_2d__tmp
1533	ENDIF
1534
1535	IF (PRESENT(lon_name_)) THEN
1536	lon_name__tmp = cxios_is_defined_domaingroup_lon_name &
1537	(domaingroup_hdl%daddr)
1538	lon_name_ = lon_name__tmp
1539	ENDIF
1540
1541	IF (PRESENT(long_name_)) THEN
1542	long_name__tmp = cxios_is_defined_domaingroup_long_name &
1543	(domaingroup_hdl%daddr)
1544	long_name_ = long_name__tmp
1545	ENDIF
1546
1547	IF (PRESENT(lonvalue_1d_)) THEN
1548	lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d &
1549	(domaingroup_hdl%daddr)
1550	lonvalue_1d_ = lonvalue_1d__tmp
1551	ENDIF
1552
1553	IF (PRESENT(lonvalue_2d_)) THEN
1554	lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d &
1555	(domaingroup_hdl%daddr)
1556	lonvalue_2d_ = lonvalue_2d__tmp
1557	ENDIF
1558
1559	IF (PRESENT(mask_1d_)) THEN
1560	mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d &
1561	(domaingroup_hdl%daddr)
1562	mask_1d_ = mask_1d__tmp
1563	ENDIF
1564
1565	IF (PRESENT(mask_2d_)) THEN
1566	mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d &
1567	(domaingroup_hdl%daddr)
1568	mask_2d_ = mask_2d__tmp
1569	ENDIF
1570
1571	IF (PRESENT(name_)) THEN
1572	name__tmp = cxios_is_defined_domaingroup_name &
1573	(domaingroup_hdl%daddr)
1574	name_ = name__tmp
1575	ENDIF
1576
1577	IF (PRESENT(ni_)) THEN
1578	ni__tmp = cxios_is_defined_domaingroup_ni &
1579	(domaingroup_hdl%daddr)
1580	ni_ = ni__tmp
1581	ENDIF
1582
1583	IF (PRESENT(ni_glo_)) THEN
1584	ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo &
1585	(domaingroup_hdl%daddr)
1586	ni_glo_ = ni_glo__tmp
1587	ENDIF
1588
1589	IF (PRESENT(nj_)) THEN
1590	nj__tmp = cxios_is_defined_domaingroup_nj &
1591	(domaingroup_hdl%daddr)
1592	nj_ = nj__tmp
1593	ENDIF
1594
1595	IF (PRESENT(nj_glo_)) THEN
1596	nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo &
1597	(domaingroup_hdl%daddr)
1598	nj_glo_ = nj_glo__tmp
1599	ENDIF
1600
1601	IF (PRESENT(ntiles_)) THEN
1602	ntiles__tmp = cxios_is_defined_domaingroup_ntiles &
1603	(domaingroup_hdl%daddr)
1604	ntiles_ = ntiles__tmp
1605	ENDIF
1606
1607	IF (PRESENT(nvertex_)) THEN
1608	nvertex__tmp = cxios_is_defined_domaingroup_nvertex &
1609	(domaingroup_hdl%daddr)
1610	nvertex_ = nvertex__tmp
1611	ENDIF
1612
1613	IF (PRESENT(prec_)) THEN
1614	prec__tmp = cxios_is_defined_domaingroup_prec &
1615	(domaingroup_hdl%daddr)
1616	prec_ = prec__tmp
1617	ENDIF
1618
1619	IF (PRESENT(radius_)) THEN
1620	radius__tmp = cxios_is_defined_domaingroup_radius &
1621	(domaingroup_hdl%daddr)
1622	radius_ = radius__tmp
1623	ENDIF
1624
1625	IF (PRESENT(standard_name_)) THEN
1626	standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
1627	(domaingroup_hdl%daddr)
1628	standard_name_ = standard_name__tmp
1629	ENDIF
1630
1631	IF (PRESENT(tile_data_ibegin_)) THEN
1632	tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin &
1633	(domaingroup_hdl%daddr)
1634	tile_data_ibegin_ = tile_data_ibegin__tmp
1635	ENDIF
1636
1637	IF (PRESENT(tile_data_jbegin_)) THEN
1638	tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin &
1639	(domaingroup_hdl%daddr)
1640	tile_data_jbegin_ = tile_data_jbegin__tmp
1641	ENDIF
1642
1643	IF (PRESENT(tile_data_ni_)) THEN
1644	tile_data_ni__tmp = cxios_is_defined_domaingroup_tile_data_ni &
1645	(domaingroup_hdl%daddr)
1646	tile_data_ni_ = tile_data_ni__tmp
1647	ENDIF
1648
1649	IF (PRESENT(tile_data_nj_)) THEN
1650	tile_data_nj__tmp = cxios_is_defined_domaingroup_tile_data_nj &
1651	(domaingroup_hdl%daddr)
1652	tile_data_nj_ = tile_data_nj__tmp
1653	ENDIF
1654
1655	IF (PRESENT(tile_ibegin_)) THEN
1656	tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin &
1657	(domaingroup_hdl%daddr)
1658	tile_ibegin_ = tile_ibegin__tmp
1659	ENDIF
1660
1661	IF (PRESENT(tile_jbegin_)) THEN
1662	tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin &
1663	(domaingroup_hdl%daddr)
1664	tile_jbegin_ = tile_jbegin__tmp
1665	ENDIF
1666
1667	IF (PRESENT(tile_ni_)) THEN
1668	tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni &
1669	(domaingroup_hdl%daddr)
1670	tile_ni_ = tile_ni__tmp
1671	ENDIF
1672
1673	IF (PRESENT(tile_nj_)) THEN
1674	tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj &
1675	(domaingroup_hdl%daddr)
1676	tile_nj_ = tile_nj__tmp
1677	ENDIF
1678
1679	IF (PRESENT(tile_only_)) THEN
1680	tile_only__tmp = cxios_is_defined_domaingroup_tile_only &
1681	(domaingroup_hdl%daddr)
1682	tile_only_ = tile_only__tmp
1683	ENDIF
1684
1685	IF (PRESENT(type_)) THEN
1686	type__tmp = cxios_is_defined_domaingroup_type &
1687	(domaingroup_hdl%daddr)
1688	type_ = type__tmp
1689	ENDIF
1690
1691	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1692
1693	END MODULE idomaingroup_attr

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: XIOS2/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

Download in other formats: