Context Navigation

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

Last change on this file since 501 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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

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

Download in other formats: