Context Navigation

idomain_attr.F90 @ 657

Last change on this file since 657 was 657, checked in by mhnguyen, 7 years ago

Making changes in domain to make sure unstructed grid work with new method of index distribution

+) Change the way define i_index and j_index of a domain
+) Remove some redundant attributes of domain
+) Adjust the way to calculate index distribution on server side

Test
+) Make some minor change to test_unstruct_complete to work with new XIOS
+) On Curie
+) All test pass and correct

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: 36.7 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, domain_ref, i_index, ibegin &
16	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
17	, 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(:,:)
24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
25	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
26	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
27	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
28	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
29	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
30	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
31	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
32	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
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(:)
40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
42	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
43	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
45	INTEGER , OPTIONAL, INTENT(IN) :: ni
46	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
47	INTEGER , OPTIONAL, INTENT(IN) :: nj
48	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
49	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
52
53	CALL xios(get_domain_handle)(domain_id,domain_hdl)
54	CALL xios(set_domain_attr_hdl_) &
55	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
56	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
57	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
58	, standard_name, type )
59
60	END SUBROUTINE xios(set_domain_attr)
61
62	SUBROUTINE xios(set_domain_attr_hdl) &
63	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
64	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
65	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
66	, standard_name, type )
67
68	IMPLICIT NONE
69	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
70	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
71	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
72	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
73	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
74	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
75	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
76	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
77	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
78	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
79	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
80	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
82	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
83	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
84	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
85	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
86	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
87	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
90	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
91	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
93	INTEGER , OPTIONAL, INTENT(IN) :: ni
94	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
95	INTEGER , OPTIONAL, INTENT(IN) :: nj
96	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
97	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
98	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
99	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
100
101	CALL xios(set_domain_attr_hdl_) &
102	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
103	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
104	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
105	, standard_name, type )
106
107	END SUBROUTINE xios(set_domain_attr_hdl)
108
109	SUBROUTINE xios(set_domain_attr_hdl_) &
110	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
111	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ &
112	, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
113	, nj_glo_, nvertex_, standard_name_, type_ )
114
115	IMPLICIT NONE
116	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
117	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
118	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
119	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
120	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
121	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
122	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
123	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
124	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
125	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_
126	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
127	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
128	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
130	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
131	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
132	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
133	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
134	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
136	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
137	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:,:)
138	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
139	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
140	INTEGER , OPTIONAL, INTENT(IN) :: ni_
141	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
142	INTEGER , OPTIONAL, INTENT(IN) :: nj_
143	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
144	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
145	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
147
148	IF (PRESENT(area_)) THEN
149	CALL cxios_set_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
150	ENDIF
151
152	IF (PRESENT(bounds_lat_)) THEN
153	CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
154	ENDIF
155
156	IF (PRESENT(bounds_lon_)) THEN
157	CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
158	ENDIF
159
160	IF (PRESENT(data_dim_)) THEN
161	CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
162	ENDIF
163
164	IF (PRESENT(data_i_index_)) THEN
165	CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
166	ENDIF
167
168	IF (PRESENT(data_ibegin_)) THEN
169	CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
170	ENDIF
171
172	IF (PRESENT(data_j_index_)) THEN
173	CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
174	ENDIF
175
176	IF (PRESENT(data_jbegin_)) THEN
177	CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
178	ENDIF
179
180	IF (PRESENT(data_n_index_)) THEN
181	CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
182	ENDIF
183
184	IF (PRESENT(data_ni_)) THEN
185	CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
186	ENDIF
187
188	IF (PRESENT(data_nj_)) THEN
189	CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
190	ENDIF
191
192	IF (PRESENT(domain_group_ref_)) THEN
193	CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
194	ENDIF
195
196	IF (PRESENT(domain_ref_)) THEN
197	CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
198	ENDIF
199
200	IF (PRESENT(i_index_)) THEN
201	CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1))
202	ENDIF
203
204	IF (PRESENT(ibegin_)) THEN
205	CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
206	ENDIF
207
208	IF (PRESENT(j_index_)) THEN
209	CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1))
210	ENDIF
211
212	IF (PRESENT(jbegin_)) THEN
213	CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
214	ENDIF
215
216	IF (PRESENT(latvalue_)) THEN
217	CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
218	ENDIF
219
220	IF (PRESENT(long_name_)) THEN
221	CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
222	ENDIF
223
224	IF (PRESENT(lonvalue_)) THEN
225	CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
226	ENDIF
227
228	IF (PRESENT(mask_)) THEN
229	ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
230	mask__tmp = mask_
231	CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
232	ENDIF
233
234	IF (PRESENT(name_)) THEN
235	CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
236	ENDIF
237
238	IF (PRESENT(ni_)) THEN
239	CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
240	ENDIF
241
242	IF (PRESENT(ni_glo_)) THEN
243	CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
244	ENDIF
245
246	IF (PRESENT(nj_)) THEN
247	CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
248	ENDIF
249
250	IF (PRESENT(nj_glo_)) THEN
251	CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
252	ENDIF
253
254	IF (PRESENT(nvertex_)) THEN
255	CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
256	ENDIF
257
258	IF (PRESENT(standard_name_)) THEN
259	CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
260	ENDIF
261
262	IF (PRESENT(type_)) THEN
263	CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
264	ENDIF
265
266	END SUBROUTINE xios(set_domain_attr_hdl_)
267
268	SUBROUTINE xios(get_domain_attr) &
269	( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
270	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
271	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
272	, standard_name, type )
273
274	IMPLICIT NONE
275	TYPE(txios(domain)) :: domain_hdl
276	CHARACTER(LEN=*), INTENT(IN) ::domain_id
277	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
278	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
279	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
280	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
281	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
282	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
283	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
284	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
285	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
286	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
287	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
288	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
289	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
290	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
291	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
292	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
293	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
294	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
295	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
296	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
297	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
298	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
299	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
300	INTEGER , OPTIONAL, INTENT(OUT) :: ni
301	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
302	INTEGER , OPTIONAL, INTENT(OUT) :: nj
303	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
304	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
305	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
306	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
307
308	CALL xios(get_domain_handle)(domain_id,domain_hdl)
309	CALL xios(get_domain_attr_hdl_) &
310	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
311	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
312	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
313	, standard_name, type )
314
315	END SUBROUTINE xios(get_domain_attr)
316
317	SUBROUTINE xios(get_domain_attr_hdl) &
318	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
319	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
320	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
321	, standard_name, type )
322
323	IMPLICIT NONE
324	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
325	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
326	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
327	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
328	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
329	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
330	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
331	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
332	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
333	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
334	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
335	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
336	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
337	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
338	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
339	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
340	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
341	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
342	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
343	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
344	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
345	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
346	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
347	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
348	INTEGER , OPTIONAL, INTENT(OUT) :: ni
349	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
350	INTEGER , OPTIONAL, INTENT(OUT) :: nj
351	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
352	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
353	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
354	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
355
356	CALL xios(get_domain_attr_hdl_) &
357	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
358	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
359	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
360	, standard_name, type )
361
362	END SUBROUTINE xios(get_domain_attr_hdl)
363
364	SUBROUTINE xios(get_domain_attr_hdl_) &
365	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
366	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ &
367	, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
368	, 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_(:,:)
374	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
375	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
376	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
377	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
378	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
379	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
380	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_
381	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
382	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
383	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
385	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
386	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
387	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
388	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
389	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
390	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
391	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
392	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:,:)
393	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
394	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
395	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
396	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
397	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
398	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
399	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
400	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
401	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
402
403	IF (PRESENT(area_)) THEN
404	CALL cxios_get_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
405	ENDIF
406
407	IF (PRESENT(bounds_lat_)) THEN
408	CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
409	ENDIF
410
411	IF (PRESENT(bounds_lon_)) THEN
412	CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
413	ENDIF
414
415	IF (PRESENT(data_dim_)) THEN
416	CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
417	ENDIF
418
419	IF (PRESENT(data_i_index_)) THEN
420	CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
421	ENDIF
422
423	IF (PRESENT(data_ibegin_)) THEN
424	CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
425	ENDIF
426
427	IF (PRESENT(data_j_index_)) THEN
428	CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
429	ENDIF
430
431	IF (PRESENT(data_jbegin_)) THEN
432	CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
433	ENDIF
434
435	IF (PRESENT(data_n_index_)) THEN
436	CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
437	ENDIF
438
439	IF (PRESENT(data_ni_)) THEN
440	CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
441	ENDIF
442
443	IF (PRESENT(data_nj_)) THEN
444	CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
445	ENDIF
446
447	IF (PRESENT(domain_group_ref_)) THEN
448	CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
449	ENDIF
450
451	IF (PRESENT(domain_ref_)) THEN
452	CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
453	ENDIF
454
455	IF (PRESENT(i_index_)) THEN
456	CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1))
457	ENDIF
458
459	IF (PRESENT(ibegin_)) THEN
460	CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
461	ENDIF
462
463	IF (PRESENT(j_index_)) THEN
464	CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1))
465	ENDIF
466
467	IF (PRESENT(jbegin_)) THEN
468	CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
469	ENDIF
470
471	IF (PRESENT(latvalue_)) THEN
472	CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
473	ENDIF
474
475	IF (PRESENT(long_name_)) THEN
476	CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
477	ENDIF
478
479	IF (PRESENT(lonvalue_)) THEN
480	CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
481	ENDIF
482
483	IF (PRESENT(mask_)) THEN
484	ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
485	CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
486	mask_ = mask__tmp
487	ENDIF
488
489	IF (PRESENT(name_)) THEN
490	CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
491	ENDIF
492
493	IF (PRESENT(ni_)) THEN
494	CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
495	ENDIF
496
497	IF (PRESENT(ni_glo_)) THEN
498	CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
499	ENDIF
500
501	IF (PRESENT(nj_)) THEN
502	CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
503	ENDIF
504
505	IF (PRESENT(nj_glo_)) THEN
506	CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
507	ENDIF
508
509	IF (PRESENT(nvertex_)) THEN
510	CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
511	ENDIF
512
513	IF (PRESENT(standard_name_)) THEN
514	CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
515	ENDIF
516
517	IF (PRESENT(type_)) THEN
518	CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
519	ENDIF
520
521	END SUBROUTINE xios(get_domain_attr_hdl_)
522
523	SUBROUTINE xios(is_defined_domain_attr) &
524	( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
525	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
526	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
527	, standard_name, type )
528
529	IMPLICIT NONE
530	TYPE(txios(domain)) :: domain_hdl
531	CHARACTER(LEN=*), INTENT(IN) ::domain_id
532	LOGICAL, OPTIONAL, INTENT(OUT) :: area
533	LOGICAL(KIND=C_BOOL) :: area_tmp
534	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
535	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
536	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
537	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
538	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
539	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
540	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
541	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
542	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
543	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
544	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
545	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
546	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
547	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
548	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
549	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
550	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
551	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
552	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
553	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
554	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
555	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
556	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
557	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
558	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
559	LOGICAL(KIND=C_BOOL) :: i_index_tmp
560	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
561	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
562	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
563	LOGICAL(KIND=C_BOOL) :: j_index_tmp
564	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
565	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
566	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
567	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
568	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
569	LOGICAL(KIND=C_BOOL) :: long_name_tmp
570	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
571	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
572	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
573	LOGICAL(KIND=C_BOOL) :: mask_tmp
574	LOGICAL, OPTIONAL, INTENT(OUT) :: name
575	LOGICAL(KIND=C_BOOL) :: name_tmp
576	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
577	LOGICAL(KIND=C_BOOL) :: ni_tmp
578	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
579	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
580	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
581	LOGICAL(KIND=C_BOOL) :: nj_tmp
582	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
583	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
584	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
585	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
586	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
587	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
588	LOGICAL, OPTIONAL, INTENT(OUT) :: type
589	LOGICAL(KIND=C_BOOL) :: type_tmp
590
591	CALL xios(get_domain_handle)(domain_id,domain_hdl)
592	CALL xios(is_defined_domain_attr_hdl_) &
593	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
594	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
595	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
596	, standard_name, type )
597
598	END SUBROUTINE xios(is_defined_domain_attr)
599
600	SUBROUTINE xios(is_defined_domain_attr_hdl) &
601	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
602	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
603	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
604	, standard_name, type )
605
606	IMPLICIT NONE
607	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
608	LOGICAL, OPTIONAL, INTENT(OUT) :: area
609	LOGICAL(KIND=C_BOOL) :: area_tmp
610	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
611	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
612	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
613	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
614	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
615	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
616	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
617	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
618	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
619	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
620	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
621	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
622	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
623	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
624	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
625	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
626	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
627	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
628	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
629	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
630	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
631	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
632	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
633	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
634	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
635	LOGICAL(KIND=C_BOOL) :: i_index_tmp
636	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
637	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
638	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
639	LOGICAL(KIND=C_BOOL) :: j_index_tmp
640	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
641	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
642	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
643	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
644	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
645	LOGICAL(KIND=C_BOOL) :: long_name_tmp
646	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
647	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
648	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
649	LOGICAL(KIND=C_BOOL) :: mask_tmp
650	LOGICAL, OPTIONAL, INTENT(OUT) :: name
651	LOGICAL(KIND=C_BOOL) :: name_tmp
652	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
653	LOGICAL(KIND=C_BOOL) :: ni_tmp
654	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
655	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
656	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
657	LOGICAL(KIND=C_BOOL) :: nj_tmp
658	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
659	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
660	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
661	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
662	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
663	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
664	LOGICAL, OPTIONAL, INTENT(OUT) :: type
665	LOGICAL(KIND=C_BOOL) :: type_tmp
666
667	CALL xios(is_defined_domain_attr_hdl_) &
668	( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
669	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin &
670	, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex &
671	, standard_name, type )
672
673	END SUBROUTINE xios(is_defined_domain_attr_hdl)
674
675	SUBROUTINE xios(is_defined_domain_attr_hdl_) &
676	( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
677	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ &
678	, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ &
679	, nj_glo_, nvertex_, standard_name_, type_ )
680
681	IMPLICIT NONE
682	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
683	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
684	LOGICAL(KIND=C_BOOL) :: area__tmp
685	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
686	LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
687	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
688	LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
689	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
690	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
691	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
692	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
693	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
694	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
695	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
696	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
697	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
698	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
699	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
700	LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
701	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
702	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
703	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
704	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
705	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
706	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
707	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
708	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
709	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
710	LOGICAL(KIND=C_BOOL) :: i_index__tmp
711	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
712	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
713	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
714	LOGICAL(KIND=C_BOOL) :: j_index__tmp
715	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
716	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
717	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
718	LOGICAL(KIND=C_BOOL) :: latvalue__tmp
719	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
720	LOGICAL(KIND=C_BOOL) :: long_name__tmp
721	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
722	LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
723	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
724	LOGICAL(KIND=C_BOOL) :: mask__tmp
725	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
726	LOGICAL(KIND=C_BOOL) :: name__tmp
727	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
728	LOGICAL(KIND=C_BOOL) :: ni__tmp
729	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
730	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
731	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
732	LOGICAL(KIND=C_BOOL) :: nj__tmp
733	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
734	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
735	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
736	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
737	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
738	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
739	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
740	LOGICAL(KIND=C_BOOL) :: type__tmp
741
742	IF (PRESENT(area_)) THEN
743	area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr)
744	area_ = area__tmp
745	ENDIF
746
747	IF (PRESENT(bounds_lat_)) THEN
748	bounds_lat__tmp = cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
749	bounds_lat_ = bounds_lat__tmp
750	ENDIF
751
752	IF (PRESENT(bounds_lon_)) THEN
753	bounds_lon__tmp = cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
754	bounds_lon_ = bounds_lon__tmp
755	ENDIF
756
757	IF (PRESENT(data_dim_)) THEN
758	data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr)
759	data_dim_ = data_dim__tmp
760	ENDIF
761
762	IF (PRESENT(data_i_index_)) THEN
763	data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
764	data_i_index_ = data_i_index__tmp
765	ENDIF
766
767	IF (PRESENT(data_ibegin_)) THEN
768	data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
769	data_ibegin_ = data_ibegin__tmp
770	ENDIF
771
772	IF (PRESENT(data_j_index_)) THEN
773	data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
774	data_j_index_ = data_j_index__tmp
775	ENDIF
776
777	IF (PRESENT(data_jbegin_)) THEN
778	data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
779	data_jbegin_ = data_jbegin__tmp
780	ENDIF
781
782	IF (PRESENT(data_n_index_)) THEN
783	data_n_index__tmp = cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
784	data_n_index_ = data_n_index__tmp
785	ENDIF
786
787	IF (PRESENT(data_ni_)) THEN
788	data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
789	data_ni_ = data_ni__tmp
790	ENDIF
791
792	IF (PRESENT(data_nj_)) THEN
793	data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr)
794	data_nj_ = data_nj__tmp
795	ENDIF
796
797	IF (PRESENT(domain_group_ref_)) THEN
798	domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
799	domain_group_ref_ = domain_group_ref__tmp
800	ENDIF
801
802	IF (PRESENT(domain_ref_)) THEN
803	domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
804	domain_ref_ = domain_ref__tmp
805	ENDIF
806
807	IF (PRESENT(i_index_)) THEN
808	i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
809	i_index_ = i_index__tmp
810	ENDIF
811
812	IF (PRESENT(ibegin_)) THEN
813	ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr)
814	ibegin_ = ibegin__tmp
815	ENDIF
816
817	IF (PRESENT(j_index_)) THEN
818	j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr)
819	j_index_ = j_index__tmp
820	ENDIF
821
822	IF (PRESENT(jbegin_)) THEN
823	jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr)
824	jbegin_ = jbegin__tmp
825	ENDIF
826
827	IF (PRESENT(latvalue_)) THEN
828	latvalue__tmp = cxios_is_defined_domain_latvalue(domain_hdl%daddr)
829	latvalue_ = latvalue__tmp
830	ENDIF
831
832	IF (PRESENT(long_name_)) THEN
833	long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr)
834	long_name_ = long_name__tmp
835	ENDIF
836
837	IF (PRESENT(lonvalue_)) THEN
838	lonvalue__tmp = cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
839	lonvalue_ = lonvalue__tmp
840	ENDIF
841
842	IF (PRESENT(mask_)) THEN
843	mask__tmp = cxios_is_defined_domain_mask(domain_hdl%daddr)
844	mask_ = mask__tmp
845	ENDIF
846
847	IF (PRESENT(name_)) THEN
848	name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr)
849	name_ = name__tmp
850	ENDIF
851
852	IF (PRESENT(ni_)) THEN
853	ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr)
854	ni_ = ni__tmp
855	ENDIF
856
857	IF (PRESENT(ni_glo_)) THEN
858	ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
859	ni_glo_ = ni_glo__tmp
860	ENDIF
861
862	IF (PRESENT(nj_)) THEN
863	nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr)
864	nj_ = nj__tmp
865	ENDIF
866
867	IF (PRESENT(nj_glo_)) THEN
868	nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
869	nj_glo_ = nj_glo__tmp
870	ENDIF
871
872	IF (PRESENT(nvertex_)) THEN
873	nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr)
874	nvertex_ = nvertex__tmp
875	ENDIF
876
877	IF (PRESENT(standard_name_)) THEN
878	standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr)
879	standard_name_ = standard_name__tmp
880	ENDIF
881
882	IF (PRESENT(type_)) THEN
883	type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr)
884	type_ = type__tmp
885	ENDIF
886
887	END SUBROUTINE xios(is_defined_domain_attr_hdl_)
888
889	END MODULE idomain_attr

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

Context Navigation

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

Download in other formats: