Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 2131

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

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

Download in other formats: