Context Navigation

source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/idomain_attr.F90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 9 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.

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: 47.9 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, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
15	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
16	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
17	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
18	, zoom_nj_loc )
19
20	IMPLICIT NONE
21	TYPE(txios(domain)) :: domain_hdl
22	CHARACTER(LEN=*), INTENT(IN) ::domain_id
23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
26	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
27	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
28	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
29	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
30	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
31	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
32	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
33	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
35	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:)
36	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
37	INTEGER , OPTIONAL, INTENT(IN) :: iend
38	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
39	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
40	INTEGER , OPTIONAL, INTENT(IN) :: jend
41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
43	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
44	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
45	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
47	INTEGER , OPTIONAL, INTENT(IN) :: ni
48	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
49	INTEGER , OPTIONAL, INTENT(IN) :: nj
50	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
51	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
54	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
55	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
56	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
57	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
58	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
59	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
60	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
61	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
62
63	CALL xios(get_domain_handle)(domain_id,domain_hdl)
64	CALL xios(set_domain_attr_hdl_) &
65	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
66	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
67	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
68	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
69	, zoom_nj_loc )
70
71	END SUBROUTINE xios(set_domain_attr)
72
73	SUBROUTINE xios(set_domain_attr_hdl) &
74	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
75	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
76	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
77	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
78	, zoom_nj_loc )
79
80	IMPLICIT NONE
81	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
82	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
83	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
84	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
85	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
86	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
87	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
88	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
89	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
90	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
91	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
92	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
94	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:)
95	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
96	INTEGER , OPTIONAL, INTENT(IN) :: iend
97	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
98	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
99	INTEGER , OPTIONAL, INTENT(IN) :: jend
100	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
102	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
103	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
104	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
105	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
106	INTEGER , OPTIONAL, INTENT(IN) :: ni
107	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
108	INTEGER , OPTIONAL, INTENT(IN) :: nj
109	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
110	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
113	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
114	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
115	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
116	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
117	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
118	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
119	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
120	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
121
122	CALL xios(set_domain_attr_hdl_) &
123	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
124	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
125	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
126	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
127	, zoom_nj_loc )
128
129	END SUBROUTINE xios(set_domain_attr_hdl)
130
131	SUBROUTINE xios(set_domain_attr_hdl_) &
132	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
133	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ &
134	, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
135	, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ &
136	, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
137
138	IMPLICIT NONE
139	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
140	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
141	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
142	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
143	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
144	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
145	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
146	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
147	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
148	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_
149	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
150	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
152	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:)
153	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
154	INTEGER , OPTIONAL, INTENT(IN) :: iend_
155	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:,:)
156	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
157	INTEGER , OPTIONAL, INTENT(IN) :: jend_
158	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
159	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
160	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
161	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:,:)
162	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
163	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
164	INTEGER , OPTIONAL, INTENT(IN) :: ni_
165	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
166	INTEGER , OPTIONAL, INTENT(IN) :: nj_
167	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
168	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
169	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
170	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
171	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_
172	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
173	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_
174	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
175	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_
176	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
177	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_
178	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
179
180	IF (PRESENT(area_)) THEN
181	CALL cxios_set_domain_area(domain_hdl%daddr, area_,size(area_,1),size(area_,2))
182	ENDIF
183
184	IF (PRESENT(bounds_lat_)) THEN
185	CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
186	ENDIF
187
188	IF (PRESENT(bounds_lon_)) THEN
189	CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
190	ENDIF
191
192	IF (PRESENT(data_dim_)) THEN
193	CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
194	ENDIF
195
196	IF (PRESENT(data_i_index_)) THEN
197	CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
198	ENDIF
199
200	IF (PRESENT(data_ibegin_)) THEN
201	CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
202	ENDIF
203
204	IF (PRESENT(data_j_index_)) THEN
205	CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
206	ENDIF
207
208	IF (PRESENT(data_jbegin_)) THEN
209	CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
210	ENDIF
211
212	IF (PRESENT(data_n_index_)) THEN
213	CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
214	ENDIF
215
216	IF (PRESENT(data_ni_)) THEN
217	CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
218	ENDIF
219
220	IF (PRESENT(data_nj_)) THEN
221	CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
222	ENDIF
223
224	IF (PRESENT(domain_group_ref_)) THEN
225	CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
226	ENDIF
227
228	IF (PRESENT(i_index_)) THEN
229	CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
230	ENDIF
231
232	IF (PRESENT(ibegin_)) THEN
233	CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
234	ENDIF
235
236	IF (PRESENT(iend_)) THEN
237	CALL cxios_set_domain_iend(domain_hdl%daddr, iend_)
238	ENDIF
239
240	IF (PRESENT(j_index_)) THEN
241	CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
242	ENDIF
243
244	IF (PRESENT(jbegin_)) THEN
245	CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
246	ENDIF
247
248	IF (PRESENT(jend_)) THEN
249	CALL cxios_set_domain_jend(domain_hdl%daddr, jend_)
250	ENDIF
251
252	IF (PRESENT(latvalue_)) THEN
253	CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
254	ENDIF
255
256	IF (PRESENT(long_name_)) THEN
257	CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
258	ENDIF
259
260	IF (PRESENT(lonvalue_)) THEN
261	CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
262	ENDIF
263
264	IF (PRESENT(mask_)) THEN
265	ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
266	mask__tmp=mask_
267	CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
268	ENDIF
269
270	IF (PRESENT(name_)) THEN
271	CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
272	ENDIF
273
274	IF (PRESENT(ni_)) THEN
275	CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
276	ENDIF
277
278	IF (PRESENT(ni_glo_)) THEN
279	CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
280	ENDIF
281
282	IF (PRESENT(nj_)) THEN
283	CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
284	ENDIF
285
286	IF (PRESENT(nj_glo_)) THEN
287	CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
288	ENDIF
289
290	IF (PRESENT(nvertex_)) THEN
291	CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
292	ENDIF
293
294	IF (PRESENT(standard_name_)) THEN
295	CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
296	ENDIF
297
298	IF (PRESENT(type_)) THEN
299	CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
300	ENDIF
301
302	IF (PRESENT(zoom_ibegin_)) THEN
303	CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
304	ENDIF
305
306	IF (PRESENT(zoom_ibegin_loc_)) THEN
307	CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
308	ENDIF
309
310	IF (PRESENT(zoom_jbegin_)) THEN
311	CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
312	ENDIF
313
314	IF (PRESENT(zoom_jbegin_loc_)) THEN
315	CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
316	ENDIF
317
318	IF (PRESENT(zoom_ni_)) THEN
319	CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
320	ENDIF
321
322	IF (PRESENT(zoom_ni_loc_)) THEN
323	CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
324	ENDIF
325
326	IF (PRESENT(zoom_nj_)) THEN
327	CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
328	ENDIF
329
330	IF (PRESENT(zoom_nj_loc_)) THEN
331	CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
332	ENDIF
333
334
335
336	END SUBROUTINE xios(set_domain_attr_hdl_)
337
338	SUBROUTINE xios(get_domain_attr) &
339	( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
340	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
341	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
342	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
343	, zoom_nj_loc )
344
345	IMPLICIT NONE
346	TYPE(txios(domain)) :: domain_hdl
347	CHARACTER(LEN=*), INTENT(IN) ::domain_id
348	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
349	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
350	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
351	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
352	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
353	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
354	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
355	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
356	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
357	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
358	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
359	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
360	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
361	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
362	INTEGER , OPTIONAL, INTENT(OUT) :: iend
363	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
364	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
365	INTEGER , OPTIONAL, INTENT(OUT) :: jend
366	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
368	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
369	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
370	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
371	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
372	INTEGER , OPTIONAL, INTENT(OUT) :: ni
373	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
374	INTEGER , OPTIONAL, INTENT(OUT) :: nj
375	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
376	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
378	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
379	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
380	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
381	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
382	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
383	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
384	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
385	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
386	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
387
388	CALL xios(get_domain_handle)(domain_id,domain_hdl)
389	CALL xios(get_domain_attr_hdl_) &
390	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
391	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
392	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
393	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
394	, zoom_nj_loc )
395
396	END SUBROUTINE xios(get_domain_attr)
397
398	SUBROUTINE xios(get_domain_attr_hdl) &
399	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
400	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
401	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
402	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
403	, zoom_nj_loc )
404
405	IMPLICIT NONE
406	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
407	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
408	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
409	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
410	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
411	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
412	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
413	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
414	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
415	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
416	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
417	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
418	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
419	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
420	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
421	INTEGER , OPTIONAL, INTENT(OUT) :: iend
422	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
423	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
424	INTEGER , OPTIONAL, INTENT(OUT) :: jend
425	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
426	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
427	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
428	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
429	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
431	INTEGER , OPTIONAL, INTENT(OUT) :: ni
432	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
433	INTEGER , OPTIONAL, INTENT(OUT) :: nj
434	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
435	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
436	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
437	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
438	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
439	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
440	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
441	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
442	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
443	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
444	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
445	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
446
447	CALL xios(get_domain_attr_hdl_) &
448	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
449	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
450	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
451	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
452	, zoom_nj_loc )
453
454	END SUBROUTINE xios(get_domain_attr_hdl)
455
456	SUBROUTINE xios(get_domain_attr_hdl_) &
457	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
458	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ &
459	, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
460	, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ &
461	, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
462
463	IMPLICIT NONE
464	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
465	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
466	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
467	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
468	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
469	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
470	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
471	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
472	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
473	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_
474	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
475	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
476	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
477	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
478	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
479	INTEGER , OPTIONAL, INTENT(OUT) :: iend_
480	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
481	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
482	INTEGER , OPTIONAL, INTENT(OUT) :: jend_
483	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
484	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
485	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
486	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:,:)
487	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
488	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
489	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
490	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
491	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
492	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
493	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
494	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
495	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
496	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
497	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
498	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
499	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
500	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_
501	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
502	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_
503	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
504
505	IF (PRESENT(area_)) THEN
506	CALL cxios_get_domain_area(domain_hdl%daddr, area_,size(area_,1),size(area_,2))
507	ENDIF
508
509	IF (PRESENT(bounds_lat_)) THEN
510	CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
511	ENDIF
512
513	IF (PRESENT(bounds_lon_)) THEN
514	CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
515	ENDIF
516
517	IF (PRESENT(data_dim_)) THEN
518	CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
519	ENDIF
520
521	IF (PRESENT(data_i_index_)) THEN
522	CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
523	ENDIF
524
525	IF (PRESENT(data_ibegin_)) THEN
526	CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
527	ENDIF
528
529	IF (PRESENT(data_j_index_)) THEN
530	CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
531	ENDIF
532
533	IF (PRESENT(data_jbegin_)) THEN
534	CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
535	ENDIF
536
537	IF (PRESENT(data_n_index_)) THEN
538	CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
539	ENDIF
540
541	IF (PRESENT(data_ni_)) THEN
542	CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
543	ENDIF
544
545	IF (PRESENT(data_nj_)) THEN
546	CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
547	ENDIF
548
549	IF (PRESENT(domain_group_ref_)) THEN
550	CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
551	ENDIF
552
553	IF (PRESENT(i_index_)) THEN
554	CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
555	ENDIF
556
557	IF (PRESENT(ibegin_)) THEN
558	CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
559	ENDIF
560
561	IF (PRESENT(iend_)) THEN
562	CALL cxios_get_domain_iend(domain_hdl%daddr, iend_)
563	ENDIF
564
565	IF (PRESENT(j_index_)) THEN
566	CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
567	ENDIF
568
569	IF (PRESENT(jbegin_)) THEN
570	CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
571	ENDIF
572
573	IF (PRESENT(jend_)) THEN
574	CALL cxios_get_domain_jend(domain_hdl%daddr, jend_)
575	ENDIF
576
577	IF (PRESENT(latvalue_)) THEN
578	CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
579	ENDIF
580
581	IF (PRESENT(long_name_)) THEN
582	CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
583	ENDIF
584
585	IF (PRESENT(lonvalue_)) THEN
586	CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
587	ENDIF
588
589	IF (PRESENT(mask_)) THEN
590	ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
591	CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
592	mask_=mask__tmp
593	ENDIF
594
595	IF (PRESENT(name_)) THEN
596	CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
597	ENDIF
598
599	IF (PRESENT(ni_)) THEN
600	CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
601	ENDIF
602
603	IF (PRESENT(ni_glo_)) THEN
604	CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
605	ENDIF
606
607	IF (PRESENT(nj_)) THEN
608	CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
609	ENDIF
610
611	IF (PRESENT(nj_glo_)) THEN
612	CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
613	ENDIF
614
615	IF (PRESENT(nvertex_)) THEN
616	CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
617	ENDIF
618
619	IF (PRESENT(standard_name_)) THEN
620	CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
621	ENDIF
622
623	IF (PRESENT(type_)) THEN
624	CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
625	ENDIF
626
627	IF (PRESENT(zoom_ibegin_)) THEN
628	CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
629	ENDIF
630
631	IF (PRESENT(zoom_ibegin_loc_)) THEN
632	CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
633	ENDIF
634
635	IF (PRESENT(zoom_jbegin_)) THEN
636	CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
637	ENDIF
638
639	IF (PRESENT(zoom_jbegin_loc_)) THEN
640	CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
641	ENDIF
642
643	IF (PRESENT(zoom_ni_)) THEN
644	CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
645	ENDIF
646
647	IF (PRESENT(zoom_ni_loc_)) THEN
648	CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
649	ENDIF
650
651	IF (PRESENT(zoom_nj_)) THEN
652	CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
653	ENDIF
654
655	IF (PRESENT(zoom_nj_loc_)) THEN
656	CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
657	ENDIF
658
659
660
661	END SUBROUTINE xios(get_domain_attr_hdl_)
662
663	SUBROUTINE xios(is_defined_domain_attr) &
664	( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
665	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
666	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
667	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
668	, zoom_nj_loc )
669
670	IMPLICIT NONE
671	TYPE(txios(domain)) :: domain_hdl
672	CHARACTER(LEN=*), INTENT(IN) ::domain_id
673	LOGICAL, OPTIONAL, INTENT(OUT) :: area
674	LOGICAL(KIND=C_BOOL) :: area_tmp
675	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
676	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
677	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
678	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
679	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
680	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
681	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
682	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
683	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
684	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
685	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
686	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
687	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
688	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
689	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
690	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
691	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
692	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
693	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
694	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
695	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
696	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
697	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
698	LOGICAL(KIND=C_BOOL) :: i_index_tmp
699	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
700	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
701	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
702	LOGICAL(KIND=C_BOOL) :: iend_tmp
703	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
704	LOGICAL(KIND=C_BOOL) :: j_index_tmp
705	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
706	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
707	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
708	LOGICAL(KIND=C_BOOL) :: jend_tmp
709	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
710	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
711	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
712	LOGICAL(KIND=C_BOOL) :: long_name_tmp
713	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
714	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
715	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
716	LOGICAL(KIND=C_BOOL) :: mask_tmp
717	LOGICAL, OPTIONAL, INTENT(OUT) :: name
718	LOGICAL(KIND=C_BOOL) :: name_tmp
719	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
720	LOGICAL(KIND=C_BOOL) :: ni_tmp
721	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
722	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
723	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
724	LOGICAL(KIND=C_BOOL) :: nj_tmp
725	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
726	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
727	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
728	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
729	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
730	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
731	LOGICAL, OPTIONAL, INTENT(OUT) :: type
732	LOGICAL(KIND=C_BOOL) :: type_tmp
733	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
734	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
735	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
736	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
737	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
738	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
739	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
740	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
741	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
742	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
743	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
744	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
745	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
746	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
747	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
748	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
749
750	CALL xios(get_domain_handle)(domain_id,domain_hdl)
751	CALL xios(is_defined_domain_attr_hdl_) &
752	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
753	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
754	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
755	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
756	, zoom_nj_loc )
757
758	END SUBROUTINE xios(is_defined_domain_attr)
759
760	SUBROUTINE xios(is_defined_domain_attr_hdl) &
761	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
762	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
763	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
764	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
765	, zoom_nj_loc )
766
767	IMPLICIT NONE
768	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
769	LOGICAL, OPTIONAL, INTENT(OUT) :: area
770	LOGICAL(KIND=C_BOOL) :: area_tmp
771	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
772	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
773	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
774	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
775	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
776	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
777	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
778	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
779	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
780	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
781	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
782	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
783	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
784	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
785	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
786	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
787	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
788	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
789	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
790	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
791	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
792	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
793	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
794	LOGICAL(KIND=C_BOOL) :: i_index_tmp
795	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
796	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
797	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
798	LOGICAL(KIND=C_BOOL) :: iend_tmp
799	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
800	LOGICAL(KIND=C_BOOL) :: j_index_tmp
801	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
802	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
803	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
804	LOGICAL(KIND=C_BOOL) :: jend_tmp
805	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
806	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
807	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
808	LOGICAL(KIND=C_BOOL) :: long_name_tmp
809	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
810	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
811	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
812	LOGICAL(KIND=C_BOOL) :: mask_tmp
813	LOGICAL, OPTIONAL, INTENT(OUT) :: name
814	LOGICAL(KIND=C_BOOL) :: name_tmp
815	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
816	LOGICAL(KIND=C_BOOL) :: ni_tmp
817	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
818	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
819	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
820	LOGICAL(KIND=C_BOOL) :: nj_tmp
821	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
822	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
823	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
824	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
825	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
826	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
827	LOGICAL, OPTIONAL, INTENT(OUT) :: type
828	LOGICAL(KIND=C_BOOL) :: type_tmp
829	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
830	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
831	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
832	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
833	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
834	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
835	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
836	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
837	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
838	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
839	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
840	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
841	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
842	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
843	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
844	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
845
846	CALL xios(is_defined_domain_attr_hdl_) &
847	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
848	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index &
849	, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
850	, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj &
851	, zoom_nj_loc )
852
853	END SUBROUTINE xios(is_defined_domain_attr_hdl)
854
855	SUBROUTINE xios(is_defined_domain_attr_hdl_) &
856	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
857	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ &
858	, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
859	, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ &
860	, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
861
862	IMPLICIT NONE
863	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
864	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
865	LOGICAL(KIND=C_BOOL) :: area__tmp
866	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
867	LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
868	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
869	LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
870	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
871	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
872	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
873	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
874	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
875	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
876	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
877	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
878	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
879	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
880	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
881	LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
882	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
883	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
884	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
885	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
886	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
887	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
888	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
889	LOGICAL(KIND=C_BOOL) :: i_index__tmp
890	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
891	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
892	LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
893	LOGICAL(KIND=C_BOOL) :: iend__tmp
894	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
895	LOGICAL(KIND=C_BOOL) :: j_index__tmp
896	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
897	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
898	LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
899	LOGICAL(KIND=C_BOOL) :: jend__tmp
900	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
901	LOGICAL(KIND=C_BOOL) :: latvalue__tmp
902	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
903	LOGICAL(KIND=C_BOOL) :: long_name__tmp
904	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
905	LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
906	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
907	LOGICAL(KIND=C_BOOL) :: mask__tmp
908	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
909	LOGICAL(KIND=C_BOOL) :: name__tmp
910	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
911	LOGICAL(KIND=C_BOOL) :: ni__tmp
912	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
913	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
914	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
915	LOGICAL(KIND=C_BOOL) :: nj__tmp
916	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
917	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
918	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
919	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
920	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
921	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
922	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
923	LOGICAL(KIND=C_BOOL) :: type__tmp
924	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
925	LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
926	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
927	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
928	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
929	LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
930	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
931	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
932	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
933	LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
934	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
935	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
936	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
937	LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
938	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
939	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
940
941	IF (PRESENT(area_)) THEN
942	area__tmp=cxios_is_defined_domain_area(domain_hdl%daddr)
943	area_=area__tmp
944	ENDIF
945
946	IF (PRESENT(bounds_lat_)) THEN
947	bounds_lat__tmp=cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
948	bounds_lat_=bounds_lat__tmp
949	ENDIF
950
951	IF (PRESENT(bounds_lon_)) THEN
952	bounds_lon__tmp=cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
953	bounds_lon_=bounds_lon__tmp
954	ENDIF
955
956	IF (PRESENT(data_dim_)) THEN
957	data_dim__tmp=cxios_is_defined_domain_data_dim(domain_hdl%daddr)
958	data_dim_=data_dim__tmp
959	ENDIF
960
961	IF (PRESENT(data_i_index_)) THEN
962	data_i_index__tmp=cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
963	data_i_index_=data_i_index__tmp
964	ENDIF
965
966	IF (PRESENT(data_ibegin_)) THEN
967	data_ibegin__tmp=cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
968	data_ibegin_=data_ibegin__tmp
969	ENDIF
970
971	IF (PRESENT(data_j_index_)) THEN
972	data_j_index__tmp=cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
973	data_j_index_=data_j_index__tmp
974	ENDIF
975
976	IF (PRESENT(data_jbegin_)) THEN
977	data_jbegin__tmp=cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
978	data_jbegin_=data_jbegin__tmp
979	ENDIF
980
981	IF (PRESENT(data_n_index_)) THEN
982	data_n_index__tmp=cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
983	data_n_index_=data_n_index__tmp
984	ENDIF
985
986	IF (PRESENT(data_ni_)) THEN
987	data_ni__tmp=cxios_is_defined_domain_data_ni(domain_hdl%daddr)
988	data_ni_=data_ni__tmp
989	ENDIF
990
991	IF (PRESENT(data_nj_)) THEN
992	data_nj__tmp=cxios_is_defined_domain_data_nj(domain_hdl%daddr)
993	data_nj_=data_nj__tmp
994	ENDIF
995
996	IF (PRESENT(domain_group_ref_)) THEN
997	domain_group_ref__tmp=cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
998	domain_group_ref_=domain_group_ref__tmp
999	ENDIF
1000
1001	IF (PRESENT(i_index_)) THEN
1002	i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr)
1003	i_index_=i_index__tmp
1004	ENDIF
1005
1006	IF (PRESENT(ibegin_)) THEN
1007	ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr)
1008	ibegin_=ibegin__tmp
1009	ENDIF
1010
1011	IF (PRESENT(iend_)) THEN
1012	iend__tmp=cxios_is_defined_domain_iend(domain_hdl%daddr)
1013	iend_=iend__tmp
1014	ENDIF
1015
1016	IF (PRESENT(j_index_)) THEN
1017	j_index__tmp=cxios_is_defined_domain_j_index(domain_hdl%daddr)
1018	j_index_=j_index__tmp
1019	ENDIF
1020
1021	IF (PRESENT(jbegin_)) THEN
1022	jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr)
1023	jbegin_=jbegin__tmp
1024	ENDIF
1025
1026	IF (PRESENT(jend_)) THEN
1027	jend__tmp=cxios_is_defined_domain_jend(domain_hdl%daddr)
1028	jend_=jend__tmp
1029	ENDIF
1030
1031	IF (PRESENT(latvalue_)) THEN
1032	latvalue__tmp=cxios_is_defined_domain_latvalue(domain_hdl%daddr)
1033	latvalue_=latvalue__tmp
1034	ENDIF
1035
1036	IF (PRESENT(long_name_)) THEN
1037	long_name__tmp=cxios_is_defined_domain_long_name(domain_hdl%daddr)
1038	long_name_=long_name__tmp
1039	ENDIF
1040
1041	IF (PRESENT(lonvalue_)) THEN
1042	lonvalue__tmp=cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
1043	lonvalue_=lonvalue__tmp
1044	ENDIF
1045
1046	IF (PRESENT(mask_)) THEN
1047	mask__tmp=cxios_is_defined_domain_mask(domain_hdl%daddr)
1048	mask_=mask__tmp
1049	ENDIF
1050
1051	IF (PRESENT(name_)) THEN
1052	name__tmp=cxios_is_defined_domain_name(domain_hdl%daddr)
1053	name_=name__tmp
1054	ENDIF
1055
1056	IF (PRESENT(ni_)) THEN
1057	ni__tmp=cxios_is_defined_domain_ni(domain_hdl%daddr)
1058	ni_=ni__tmp
1059	ENDIF
1060
1061	IF (PRESENT(ni_glo_)) THEN
1062	ni_glo__tmp=cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
1063	ni_glo_=ni_glo__tmp
1064	ENDIF
1065
1066	IF (PRESENT(nj_)) THEN
1067	nj__tmp=cxios_is_defined_domain_nj(domain_hdl%daddr)
1068	nj_=nj__tmp
1069	ENDIF
1070
1071	IF (PRESENT(nj_glo_)) THEN
1072	nj_glo__tmp=cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
1073	nj_glo_=nj_glo__tmp
1074	ENDIF
1075
1076	IF (PRESENT(nvertex_)) THEN
1077	nvertex__tmp=cxios_is_defined_domain_nvertex(domain_hdl%daddr)
1078	nvertex_=nvertex__tmp
1079	ENDIF
1080
1081	IF (PRESENT(standard_name_)) THEN
1082	standard_name__tmp=cxios_is_defined_domain_standard_name(domain_hdl%daddr)
1083	standard_name_=standard_name__tmp
1084	ENDIF
1085
1086	IF (PRESENT(type_)) THEN
1087	type__tmp=cxios_is_defined_domain_type(domain_hdl%daddr)
1088	type_=type__tmp
1089	ENDIF
1090
1091	IF (PRESENT(zoom_ibegin_)) THEN
1092	zoom_ibegin__tmp=cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr)
1093	zoom_ibegin_=zoom_ibegin__tmp
1094	ENDIF
1095
1096	IF (PRESENT(zoom_ibegin_loc_)) THEN
1097	zoom_ibegin_loc__tmp=cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr)
1098	zoom_ibegin_loc_=zoom_ibegin_loc__tmp
1099	ENDIF
1100
1101	IF (PRESENT(zoom_jbegin_)) THEN
1102	zoom_jbegin__tmp=cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr)
1103	zoom_jbegin_=zoom_jbegin__tmp
1104	ENDIF
1105
1106	IF (PRESENT(zoom_jbegin_loc_)) THEN
1107	zoom_jbegin_loc__tmp=cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr)
1108	zoom_jbegin_loc_=zoom_jbegin_loc__tmp
1109	ENDIF
1110
1111	IF (PRESENT(zoom_ni_)) THEN
1112	zoom_ni__tmp=cxios_is_defined_domain_zoom_ni(domain_hdl%daddr)
1113	zoom_ni_=zoom_ni__tmp
1114	ENDIF
1115
1116	IF (PRESENT(zoom_ni_loc_)) THEN
1117	zoom_ni_loc__tmp=cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr)
1118	zoom_ni_loc_=zoom_ni_loc__tmp
1119	ENDIF
1120
1121	IF (PRESENT(zoom_nj_)) THEN
1122	zoom_nj__tmp=cxios_is_defined_domain_zoom_nj(domain_hdl%daddr)
1123	zoom_nj_=zoom_nj__tmp
1124	ENDIF
1125
1126	IF (PRESENT(zoom_nj_loc_)) THEN
1127	zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr)
1128	zoom_nj_loc_=zoom_nj_loc__tmp
1129	ENDIF
1130
1131
1132
1133	END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1134
1135	END MODULE idomain_attr

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

Download in other formats: