Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

idomain_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: 67.4 KB

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

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

Context Navigation

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

Download in other formats: