Context Navigation

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

Last change on this file since 730 was 690, checked in by mhnguyen, 9 years ago

Updating some fortran interface

Test
+) On Curie
+) All tests pass

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: 44.3 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_lon_1d, bounds_lon_2d, data_dim, data_i_index &
15	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
16	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
17	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
18
19	IMPLICIT NONE
20	TYPE(txios(domain)) :: domain_hdl
21	CHARACTER(LEN=*), INTENT(IN) ::domain_id
22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
26	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
27	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
28	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
29	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
30	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
31	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
32	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
33	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src
37	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
38	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
39	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
40	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
42	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
45	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
46	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
47	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
48	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
49	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
51	INTEGER , OPTIONAL, INTENT(IN) :: ni
52	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
53	INTEGER , OPTIONAL, INTENT(IN) :: nj
54	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
55	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
57	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
58
59	CALL xios(get_domain_handle)(domain_id,domain_hdl)
60	CALL xios(set_domain_attr_hdl_) &
61	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
62	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
63	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
64	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
65
66	END SUBROUTINE xios(set_domain_attr)
67
68	SUBROUTINE xios(set_domain_attr_hdl) &
69	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
70	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
71	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
72	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
73
74	IMPLICIT NONE
75	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
76	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
77	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
78	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
79	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
80	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
81	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
82	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
83	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
84	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
85	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
86	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
87	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
89	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
90	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src
91	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
92	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
93	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
94	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
95	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
98	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
99	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
100	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
101	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
102	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
103	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
105	INTEGER , OPTIONAL, INTENT(IN) :: ni
106	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
107	INTEGER , OPTIONAL, INTENT(IN) :: nj
108	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
109	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
110	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
112
113	CALL xios(set_domain_attr_hdl_) &
114	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
115	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
116	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
117	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
118
119	END SUBROUTINE xios(set_domain_attr_hdl)
120
121	SUBROUTINE xios(set_domain_attr_hdl_) &
122	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
123	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_ &
124	, domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &
125	, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &
126	, nvertex_, standard_name_, type_ )
127
128	IMPLICIT NONE
129	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
130	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
131	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
132	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
133	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
134	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
135	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
136	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
137	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
138	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
139	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
140	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
141	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
142	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
143	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
144	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_
145	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
146	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
147	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
148	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
149	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
150	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
152	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
153	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
154	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
155	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
156	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
157	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
158	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
159	INTEGER , OPTIONAL, INTENT(IN) :: ni_
160	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
161	INTEGER , OPTIONAL, INTENT(IN) :: nj_
162	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
163	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
164	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
165	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
166
167	IF (PRESENT(area_)) THEN
168	CALL cxios_set_domain_area(domain_hdl%daddr, area_, SHAPE(area_))
169	ENDIF
170
171	IF (PRESENT(bounds_lat_1d_)) THEN
172	CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
173	ENDIF
174
175	IF (PRESENT(bounds_lat_2d_)) THEN
176	CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
177	ENDIF
178
179	IF (PRESENT(bounds_lon_1d_)) THEN
180	CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
181	ENDIF
182
183	IF (PRESENT(bounds_lon_2d_)) THEN
184	CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
185	ENDIF
186
187	IF (PRESENT(data_dim_)) THEN
188	CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
189	ENDIF
190
191	IF (PRESENT(data_i_index_)) THEN
192	CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
193	ENDIF
194
195	IF (PRESENT(data_ibegin_)) THEN
196	CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
197	ENDIF
198
199	IF (PRESENT(data_j_index_)) THEN
200	CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
201	ENDIF
202
203	IF (PRESENT(data_jbegin_)) THEN
204	CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
205	ENDIF
206
207	IF (PRESENT(data_ni_)) THEN
208	CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
209	ENDIF
210
211	IF (PRESENT(data_nj_)) THEN
212	CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
213	ENDIF
214
215	IF (PRESENT(domain_group_ref_)) THEN
216	CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
217	ENDIF
218
219	IF (PRESENT(domain_ref_)) THEN
220	CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
221	ENDIF
222
223	IF (PRESENT(domain_src_)) THEN
224	CALL cxios_set_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_))
225	ENDIF
226
227	IF (PRESENT(i_index_)) THEN
228	CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_))
229	ENDIF
230
231	IF (PRESENT(ibegin_)) THEN
232	CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
233	ENDIF
234
235	IF (PRESENT(j_index_)) THEN
236	CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_))
237	ENDIF
238
239	IF (PRESENT(jbegin_)) THEN
240	CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
241	ENDIF
242
243	IF (PRESENT(latvalue_1d_)) THEN
244	CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
245	ENDIF
246
247	IF (PRESENT(latvalue_2d_)) THEN
248	CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
249	ENDIF
250
251	IF (PRESENT(long_name_)) THEN
252	CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
253	ENDIF
254
255	IF (PRESENT(lonvalue_1d_)) THEN
256	CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
257	ENDIF
258
259	IF (PRESENT(lonvalue_2d_)) THEN
260	CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
261	ENDIF
262
263	IF (PRESENT(mask_1d_)) THEN
264	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
265	mask_1d__tmp = mask_1d_
266	CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
267	ENDIF
268
269	IF (PRESENT(mask_2d_)) THEN
270	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
271	mask_2d__tmp = mask_2d_
272	CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
273	ENDIF
274
275	IF (PRESENT(name_)) THEN
276	CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
277	ENDIF
278
279	IF (PRESENT(ni_)) THEN
280	CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
281	ENDIF
282
283	IF (PRESENT(ni_glo_)) THEN
284	CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
285	ENDIF
286
287	IF (PRESENT(nj_)) THEN
288	CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
289	ENDIF
290
291	IF (PRESENT(nj_glo_)) THEN
292	CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
293	ENDIF
294
295	IF (PRESENT(nvertex_)) THEN
296	CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
297	ENDIF
298
299	IF (PRESENT(standard_name_)) THEN
300	CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
301	ENDIF
302
303	IF (PRESENT(type_)) THEN
304	CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
305	ENDIF
306
307	END SUBROUTINE xios(set_domain_attr_hdl_)
308
309	SUBROUTINE xios(get_domain_attr) &
310	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
311	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
312	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
313	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
314
315	IMPLICIT NONE
316	TYPE(txios(domain)) :: domain_hdl
317	CHARACTER(LEN=*), INTENT(IN) ::domain_id
318	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
319	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
320	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
321	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
322	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
323	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
324	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
325	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
326	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
327	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
328	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
329	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
330	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
331	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
332	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src
333	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
334	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
335	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
336	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
337	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
338	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
339	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
340	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
341	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
342	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
343	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
344	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
345	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
346	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
347	INTEGER , OPTIONAL, INTENT(OUT) :: ni
348	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
349	INTEGER , OPTIONAL, INTENT(OUT) :: nj
350	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
351	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
352	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
353	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
354
355	CALL xios(get_domain_handle)(domain_id,domain_hdl)
356	CALL xios(get_domain_attr_hdl_) &
357	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
358	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
359	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
360	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
361
362	END SUBROUTINE xios(get_domain_attr)
363
364	SUBROUTINE xios(get_domain_attr_hdl) &
365	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
366	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
367	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
368	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
369
370	IMPLICIT NONE
371	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
372	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
373	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
374	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
375	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
376	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
377	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
378	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
379	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
380	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
381	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
382	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
383	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
385	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
386	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src
387	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
388	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
389	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
390	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
391	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
392	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
393	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
394	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
395	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
396	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
397	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
398	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
399	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
400	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
401	INTEGER , OPTIONAL, INTENT(OUT) :: ni
402	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
403	INTEGER , OPTIONAL, INTENT(OUT) :: nj
404	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
405	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
406	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
407	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
408
409	CALL xios(get_domain_attr_hdl_) &
410	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
411	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
412	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
413	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
414
415	END SUBROUTINE xios(get_domain_attr_hdl)
416
417	SUBROUTINE xios(get_domain_attr_hdl_) &
418	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
419	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_ &
420	, domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &
421	, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &
422	, nvertex_, standard_name_, type_ )
423
424	IMPLICIT NONE
425	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
426	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
427	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
428	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
429	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
430	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
431	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
432	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
433	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
434	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
435	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
436	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
437	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
438	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
439	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
440	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_
441	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
442	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
443	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
444	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
445	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
446	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
447	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
448	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
449	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
450	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
451	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
452	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
453	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
454	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
455	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
456	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
457	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
458	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
459	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
460	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
461	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
462
463	IF (PRESENT(area_)) THEN
464	CALL cxios_get_domain_area(domain_hdl%daddr, area_, SHAPE(area_))
465	ENDIF
466
467	IF (PRESENT(bounds_lat_1d_)) THEN
468	CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
469	ENDIF
470
471	IF (PRESENT(bounds_lat_2d_)) THEN
472	CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
473	ENDIF
474
475	IF (PRESENT(bounds_lon_1d_)) THEN
476	CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
477	ENDIF
478
479	IF (PRESENT(bounds_lon_2d_)) THEN
480	CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
481	ENDIF
482
483	IF (PRESENT(data_dim_)) THEN
484	CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
485	ENDIF
486
487	IF (PRESENT(data_i_index_)) THEN
488	CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
489	ENDIF
490
491	IF (PRESENT(data_ibegin_)) THEN
492	CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
493	ENDIF
494
495	IF (PRESENT(data_j_index_)) THEN
496	CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
497	ENDIF
498
499	IF (PRESENT(data_jbegin_)) THEN
500	CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
501	ENDIF
502
503	IF (PRESENT(data_ni_)) THEN
504	CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
505	ENDIF
506
507	IF (PRESENT(data_nj_)) THEN
508	CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
509	ENDIF
510
511	IF (PRESENT(domain_group_ref_)) THEN
512	CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
513	ENDIF
514
515	IF (PRESENT(domain_ref_)) THEN
516	CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
517	ENDIF
518
519	IF (PRESENT(domain_src_)) THEN
520	CALL cxios_get_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_))
521	ENDIF
522
523	IF (PRESENT(i_index_)) THEN
524	CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_))
525	ENDIF
526
527	IF (PRESENT(ibegin_)) THEN
528	CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
529	ENDIF
530
531	IF (PRESENT(j_index_)) THEN
532	CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_))
533	ENDIF
534
535	IF (PRESENT(jbegin_)) THEN
536	CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
537	ENDIF
538
539	IF (PRESENT(latvalue_1d_)) THEN
540	CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
541	ENDIF
542
543	IF (PRESENT(latvalue_2d_)) THEN
544	CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
545	ENDIF
546
547	IF (PRESENT(long_name_)) THEN
548	CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
549	ENDIF
550
551	IF (PRESENT(lonvalue_1d_)) THEN
552	CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
553	ENDIF
554
555	IF (PRESENT(lonvalue_2d_)) THEN
556	CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
557	ENDIF
558
559	IF (PRESENT(mask_1d_)) THEN
560	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
561	CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
562	mask_1d_ = mask_1d__tmp
563	ENDIF
564
565	IF (PRESENT(mask_2d_)) THEN
566	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
567	CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
568	mask_2d_ = mask_2d__tmp
569	ENDIF
570
571	IF (PRESENT(name_)) THEN
572	CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
573	ENDIF
574
575	IF (PRESENT(ni_)) THEN
576	CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
577	ENDIF
578
579	IF (PRESENT(ni_glo_)) THEN
580	CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
581	ENDIF
582
583	IF (PRESENT(nj_)) THEN
584	CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
585	ENDIF
586
587	IF (PRESENT(nj_glo_)) THEN
588	CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
589	ENDIF
590
591	IF (PRESENT(nvertex_)) THEN
592	CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
593	ENDIF
594
595	IF (PRESENT(standard_name_)) THEN
596	CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
597	ENDIF
598
599	IF (PRESENT(type_)) THEN
600	CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
601	ENDIF
602
603	END SUBROUTINE xios(get_domain_attr_hdl_)
604
605	SUBROUTINE xios(is_defined_domain_attr) &
606	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
607	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
608	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
609	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
610
611	IMPLICIT NONE
612	TYPE(txios(domain)) :: domain_hdl
613	CHARACTER(LEN=*), INTENT(IN) ::domain_id
614	LOGICAL, OPTIONAL, INTENT(OUT) :: area
615	LOGICAL(KIND=C_BOOL) :: area_tmp
616	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
617	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
618	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
619	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
620	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
621	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
622	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
623	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
624	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
625	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
626	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
627	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
628	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
629	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
630	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
631	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
632	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
633	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
634	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
635	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
636	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
637	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
638	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
639	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
640	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
641	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
642	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src
643	LOGICAL(KIND=C_BOOL) :: domain_src_tmp
644	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
645	LOGICAL(KIND=C_BOOL) :: i_index_tmp
646	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
647	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
648	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
649	LOGICAL(KIND=C_BOOL) :: j_index_tmp
650	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
651	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
652	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
653	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
654	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
655	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
656	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
657	LOGICAL(KIND=C_BOOL) :: long_name_tmp
658	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
659	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
660	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
661	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
662	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
663	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
664	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
665	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
666	LOGICAL, OPTIONAL, INTENT(OUT) :: name
667	LOGICAL(KIND=C_BOOL) :: name_tmp
668	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
669	LOGICAL(KIND=C_BOOL) :: ni_tmp
670	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
671	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
672	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
673	LOGICAL(KIND=C_BOOL) :: nj_tmp
674	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
675	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
676	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
677	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
678	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
679	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
680	LOGICAL, OPTIONAL, INTENT(OUT) :: type
681	LOGICAL(KIND=C_BOOL) :: type_tmp
682
683	CALL xios(get_domain_handle)(domain_id,domain_hdl)
684	CALL xios(is_defined_domain_attr_hdl_) &
685	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
686	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
687	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
688	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
689
690	END SUBROUTINE xios(is_defined_domain_attr)
691
692	SUBROUTINE xios(is_defined_domain_attr_hdl) &
693	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
694	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
695	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
696	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
697
698	IMPLICIT NONE
699	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
700	LOGICAL, OPTIONAL, INTENT(OUT) :: area
701	LOGICAL(KIND=C_BOOL) :: area_tmp
702	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
703	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
704	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
705	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
706	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
707	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
708	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
709	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
710	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
711	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
712	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
713	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
714	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
715	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
716	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
717	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
718	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
719	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
720	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
721	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
722	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
723	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
724	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
725	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
726	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
727	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
728	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src
729	LOGICAL(KIND=C_BOOL) :: domain_src_tmp
730	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
731	LOGICAL(KIND=C_BOOL) :: i_index_tmp
732	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
733	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
734	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
735	LOGICAL(KIND=C_BOOL) :: j_index_tmp
736	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
737	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
738	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
739	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
740	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
741	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
742	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
743	LOGICAL(KIND=C_BOOL) :: long_name_tmp
744	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
745	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
746	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
747	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
748	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
749	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
750	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
751	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
752	LOGICAL, OPTIONAL, INTENT(OUT) :: name
753	LOGICAL(KIND=C_BOOL) :: name_tmp
754	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
755	LOGICAL(KIND=C_BOOL) :: ni_tmp
756	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
757	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
758	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
759	LOGICAL(KIND=C_BOOL) :: nj_tmp
760	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
761	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
762	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
763	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
764	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
765	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
766	LOGICAL, OPTIONAL, INTENT(OUT) :: type
767	LOGICAL(KIND=C_BOOL) :: type_tmp
768
769	CALL xios(is_defined_domain_attr_hdl_) &
770	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
771	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src &
772	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
773	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
774
775	END SUBROUTINE xios(is_defined_domain_attr_hdl)
776
777	SUBROUTINE xios(is_defined_domain_attr_hdl_) &
778	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
779	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_ &
780	, domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &
781	, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &
782	, nvertex_, standard_name_, type_ )
783
784	IMPLICIT NONE
785	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
786	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
787	LOGICAL(KIND=C_BOOL) :: area__tmp
788	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
789	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
790	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
791	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
792	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
793	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
794	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
795	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
796	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
797	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
798	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
799	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
800	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
801	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
802	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
803	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
804	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
805	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
806	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
807	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
808	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
809	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
810	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
811	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
812	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
813	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
814	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_
815	LOGICAL(KIND=C_BOOL) :: domain_src__tmp
816	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
817	LOGICAL(KIND=C_BOOL) :: i_index__tmp
818	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
819	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
820	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
821	LOGICAL(KIND=C_BOOL) :: j_index__tmp
822	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
823	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
824	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
825	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
826	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
827	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
828	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
829	LOGICAL(KIND=C_BOOL) :: long_name__tmp
830	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
831	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
832	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
833	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
834	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
835	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
836	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
837	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
838	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
839	LOGICAL(KIND=C_BOOL) :: name__tmp
840	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
841	LOGICAL(KIND=C_BOOL) :: ni__tmp
842	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
843	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
844	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
845	LOGICAL(KIND=C_BOOL) :: nj__tmp
846	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
847	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
848	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
849	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
850	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
851	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
852	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
853	LOGICAL(KIND=C_BOOL) :: type__tmp
854
855	IF (PRESENT(area_)) THEN
856	area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr)
857	area_ = area__tmp
858	ENDIF
859
860	IF (PRESENT(bounds_lat_1d_)) THEN
861	bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d(domain_hdl%daddr)
862	bounds_lat_1d_ = bounds_lat_1d__tmp
863	ENDIF
864
865	IF (PRESENT(bounds_lat_2d_)) THEN
866	bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d(domain_hdl%daddr)
867	bounds_lat_2d_ = bounds_lat_2d__tmp
868	ENDIF
869
870	IF (PRESENT(bounds_lon_1d_)) THEN
871	bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d(domain_hdl%daddr)
872	bounds_lon_1d_ = bounds_lon_1d__tmp
873	ENDIF
874
875	IF (PRESENT(bounds_lon_2d_)) THEN
876	bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d(domain_hdl%daddr)
877	bounds_lon_2d_ = bounds_lon_2d__tmp
878	ENDIF
879
880	IF (PRESENT(data_dim_)) THEN
881	data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr)
882	data_dim_ = data_dim__tmp
883	ENDIF
884
885	IF (PRESENT(data_i_index_)) THEN
886	data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
887	data_i_index_ = data_i_index__tmp
888	ENDIF
889
890	IF (PRESENT(data_ibegin_)) THEN
891	data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
892	data_ibegin_ = data_ibegin__tmp
893	ENDIF
894
895	IF (PRESENT(data_j_index_)) THEN
896	data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
897	data_j_index_ = data_j_index__tmp
898	ENDIF
899
900	IF (PRESENT(data_jbegin_)) THEN
901	data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
902	data_jbegin_ = data_jbegin__tmp
903	ENDIF
904
905	IF (PRESENT(data_ni_)) THEN
906	data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
907	data_ni_ = data_ni__tmp
908	ENDIF
909
910	IF (PRESENT(data_nj_)) THEN
911	data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr)
912	data_nj_ = data_nj__tmp
913	ENDIF
914
915	IF (PRESENT(domain_group_ref_)) THEN
916	domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
917	domain_group_ref_ = domain_group_ref__tmp
918	ENDIF
919
920	IF (PRESENT(domain_ref_)) THEN
921	domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
922	domain_ref_ = domain_ref__tmp
923	ENDIF
924
925	IF (PRESENT(domain_src_)) THEN
926	domain_src__tmp = cxios_is_defined_domain_domain_src(domain_hdl%daddr)
927	domain_src_ = domain_src__tmp
928	ENDIF
929
930	IF (PRESENT(i_index_)) THEN
931	i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
932	i_index_ = i_index__tmp
933	ENDIF
934
935	IF (PRESENT(ibegin_)) THEN
936	ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr)
937	ibegin_ = ibegin__tmp
938	ENDIF
939
940	IF (PRESENT(j_index_)) THEN
941	j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr)
942	j_index_ = j_index__tmp
943	ENDIF
944
945	IF (PRESENT(jbegin_)) THEN
946	jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr)
947	jbegin_ = jbegin__tmp
948	ENDIF
949
950	IF (PRESENT(latvalue_1d_)) THEN
951	latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d(domain_hdl%daddr)
952	latvalue_1d_ = latvalue_1d__tmp
953	ENDIF
954
955	IF (PRESENT(latvalue_2d_)) THEN
956	latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d(domain_hdl%daddr)
957	latvalue_2d_ = latvalue_2d__tmp
958	ENDIF
959
960	IF (PRESENT(long_name_)) THEN
961	long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr)
962	long_name_ = long_name__tmp
963	ENDIF
964
965	IF (PRESENT(lonvalue_1d_)) THEN
966	lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d(domain_hdl%daddr)
967	lonvalue_1d_ = lonvalue_1d__tmp
968	ENDIF
969
970	IF (PRESENT(lonvalue_2d_)) THEN
971	lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d(domain_hdl%daddr)
972	lonvalue_2d_ = lonvalue_2d__tmp
973	ENDIF
974
975	IF (PRESENT(mask_1d_)) THEN
976	mask_1d__tmp = cxios_is_defined_domain_mask_1d(domain_hdl%daddr)
977	mask_1d_ = mask_1d__tmp
978	ENDIF
979
980	IF (PRESENT(mask_2d_)) THEN
981	mask_2d__tmp = cxios_is_defined_domain_mask_2d(domain_hdl%daddr)
982	mask_2d_ = mask_2d__tmp
983	ENDIF
984
985	IF (PRESENT(name_)) THEN
986	name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr)
987	name_ = name__tmp
988	ENDIF
989
990	IF (PRESENT(ni_)) THEN
991	ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr)
992	ni_ = ni__tmp
993	ENDIF
994
995	IF (PRESENT(ni_glo_)) THEN
996	ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
997	ni_glo_ = ni_glo__tmp
998	ENDIF
999
1000	IF (PRESENT(nj_)) THEN
1001	nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr)
1002	nj_ = nj__tmp
1003	ENDIF
1004
1005	IF (PRESENT(nj_glo_)) THEN
1006	nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
1007	nj_glo_ = nj_glo__tmp
1008	ENDIF
1009
1010	IF (PRESENT(nvertex_)) THEN
1011	nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr)
1012	nvertex_ = nvertex__tmp
1013	ENDIF
1014
1015	IF (PRESENT(standard_name_)) THEN
1016	standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr)
1017	standard_name_ = standard_name__tmp
1018	ENDIF
1019
1020	IF (PRESENT(type_)) THEN
1021	type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr)
1022	type_ = type__tmp
1023	ENDIF
1024
1025	END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1026
1027	END MODULE idomain_attr

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

Download in other formats: