Context Navigation

source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/idomain_attr.F90 @ 1205

Last change on this file since 1205 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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: 43.4 KB

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

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

Download in other formats: