Context Navigation

source: XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90 @ 1952

Last change on this file since 1952 was 1952, checked in by oabramkina, 4 years ago
Adding tile attributes.
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: 62.8 KB

Rev	Line
[326]	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
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_domain_attr) &
[1492]	14	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	15	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	16	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	17	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	18	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	19	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	20
[326]	21	IMPLICIT NONE
	22	TYPE(txios(domain)) :: domain_hdl
	23	CHARACTER(LEN=*), INTENT(IN) ::domain_id
[611]	24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	26	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
[1492]	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
[664]	28	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	29	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[1492]	30	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]	32	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	33	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	34	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	35	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	36	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	37	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	38	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
[1492]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
	40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
[546]	41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[657]	42	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	43	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	44	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	45	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[1492]	46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
[664]	47	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	48	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[1492]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
[326]	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	51	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	52	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	53	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	54	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	55	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	56	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	57	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	58	INTEGER , OPTIONAL, INTENT(IN) :: ni
	59	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	60	INTEGER , OPTIONAL, INTENT(IN) :: nj
	61	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[1952]	62	INTEGER , OPTIONAL, INTENT(IN) :: ntiles
[449]	63	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[1158]	64	INTEGER , OPTIONAL, INTENT(IN) :: prec
[1626]	65	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
[326]	66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[1952]	67	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
	68	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
	69	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
	70	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
	71	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:)
	72	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:)
[449]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	74
[966]	75	CALL xios(get_domain_handle) &
	76	(domain_id,domain_hdl)
[326]	77	CALL xios(set_domain_attr_hdl_) &
[1492]	78	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	79	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	80	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	81	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	82	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	83	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	84
[326]	85	END SUBROUTINE xios(set_domain_attr)
[581]	86
[326]	87	SUBROUTINE xios(set_domain_attr_hdl) &
[1492]	88	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	89	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	90	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	91	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	92	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	93	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	94
[326]	95	IMPLICIT NONE
	96	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	97	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	98	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	99	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
[1492]	100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
[664]	101	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	102	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[1492]	103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
	104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]	105	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	106	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	107	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	108	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	109	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	110	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	111	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
[1492]	112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
	113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
[546]	114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[657]	115	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	116	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	117	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	118	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[1492]	119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
[664]	120	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	121	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[1492]	122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
[326]	123	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	124	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	125	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	126	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	127	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	128	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	129	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	130	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	131	INTEGER , OPTIONAL, INTENT(IN) :: ni
	132	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	133	INTEGER , OPTIONAL, INTENT(IN) :: nj
	134	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[1952]	135	INTEGER , OPTIONAL, INTENT(IN) :: ntiles
[449]	136	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[1158]	137	INTEGER , OPTIONAL, INTENT(IN) :: prec
[1626]	138	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
[326]	139	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[1952]	140	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
	141	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
	142	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
	143	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
	144	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:)
	145	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:)
[449]	146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	147
[326]	148	CALL xios(set_domain_attr_hdl_) &
[1492]	149	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	150	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	151	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	152	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	153	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	154	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	155
[326]	156	END SUBROUTINE xios(set_domain_attr_hdl)
[581]	157
[326]	158	SUBROUTINE xios(set_domain_attr_hdl_) &
[1492]	159	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
	160	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
	161	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &
	162	, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ &
[1952]	163	, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
	164	, tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &
[1626]	165	)
[581]	166
[326]	167	IMPLICIT NONE
	168	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	169	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
[664]	170	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
	171	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
[1492]	172	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
[664]	173	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
	174	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
[1492]	175	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
	176	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[326]	177	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
	178	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
	179	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
	180	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
	181	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
	182	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
	183	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
[1492]	184	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
	185	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
[546]	186	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[657]	187	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
[326]	188	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
[657]	189	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
[326]	190	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
[1492]	191	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
[664]	192	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
	193	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
[1492]	194	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
[326]	195	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[664]	196	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
	197	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
	198	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	199	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	200	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	201	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	202	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	203	INTEGER , OPTIONAL, INTENT(IN) :: ni_
	204	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
	205	INTEGER , OPTIONAL, INTENT(IN) :: nj_
	206	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
[1952]	207	INTEGER , OPTIONAL, INTENT(IN) :: ntiles_
[449]	208	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
[1158]	209	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[1626]	210	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
[326]	211	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[1952]	212	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:)
	213	INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:)
	214	INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:)
	215	INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:)
	216	INTEGER , OPTIONAL, INTENT(IN) :: tile_ni_(:)
	217	INTEGER , OPTIONAL, INTENT(IN) :: tile_nj_(:)
[449]	218	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	219
[611]	220	IF (PRESENT(area_)) THEN
[966]	221	CALL cxios_set_domain_area &
	222	(domain_hdl%daddr, area_, SHAPE(area_))
[611]	223	ENDIF
	224
[664]	225	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	226	CALL cxios_set_domain_bounds_lat_1d &
	227	(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	228	ENDIF
[581]	229
[664]	230	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	231	CALL cxios_set_domain_bounds_lat_2d &
	232	(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	233	ENDIF
[581]	234
[1492]	235	IF (PRESENT(bounds_lat_name_)) THEN
	236	CALL cxios_set_domain_bounds_lat_name &
	237	(domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
	238	ENDIF
	239
[664]	240	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	241	CALL cxios_set_domain_bounds_lon_1d &
	242	(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	243	ENDIF
	244
	245	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	246	CALL cxios_set_domain_bounds_lon_2d &
	247	(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	248	ENDIF
	249
[1492]	250	IF (PRESENT(bounds_lon_name_)) THEN
	251	CALL cxios_set_domain_bounds_lon_name &
	252	(domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
	253	ENDIF
	254
	255	IF (PRESENT(comment_)) THEN
	256	CALL cxios_set_domain_comment &
	257	(domain_hdl%daddr, comment_, len(comment_))
	258	ENDIF
	259
[326]	260	IF (PRESENT(data_dim_)) THEN
[966]	261	CALL cxios_set_domain_data_dim &
	262	(domain_hdl%daddr, data_dim_)
[326]	263	ENDIF
[581]	264
[326]	265	IF (PRESENT(data_i_index_)) THEN
[966]	266	CALL cxios_set_domain_data_i_index &
	267	(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	268	ENDIF
[581]	269
[326]	270	IF (PRESENT(data_ibegin_)) THEN
[966]	271	CALL cxios_set_domain_data_ibegin &
	272	(domain_hdl%daddr, data_ibegin_)
[326]	273	ENDIF
[581]	274
[326]	275	IF (PRESENT(data_j_index_)) THEN
[966]	276	CALL cxios_set_domain_data_j_index &
	277	(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	278	ENDIF
[581]	279
[326]	280	IF (PRESENT(data_jbegin_)) THEN
[966]	281	CALL cxios_set_domain_data_jbegin &
	282	(domain_hdl%daddr, data_jbegin_)
[326]	283	ENDIF
[581]	284
[326]	285	IF (PRESENT(data_ni_)) THEN
[966]	286	CALL cxios_set_domain_data_ni &
	287	(domain_hdl%daddr, data_ni_)
[326]	288	ENDIF
[581]	289
[326]	290	IF (PRESENT(data_nj_)) THEN
[966]	291	CALL cxios_set_domain_data_nj &
	292	(domain_hdl%daddr, data_nj_)
[326]	293	ENDIF
[581]	294
[1492]	295	IF (PRESENT(dim_i_name_)) THEN
	296	CALL cxios_set_domain_dim_i_name &
	297	(domain_hdl%daddr, dim_i_name_, len(dim_i_name_))
	298	ENDIF
	299
	300	IF (PRESENT(dim_j_name_)) THEN
	301	CALL cxios_set_domain_dim_j_name &
	302	(domain_hdl%daddr, dim_j_name_, len(dim_j_name_))
	303	ENDIF
	304
[546]	305	IF (PRESENT(domain_ref_)) THEN
[966]	306	CALL cxios_set_domain_domain_ref &
	307	(domain_hdl%daddr, domain_ref_, len(domain_ref_))
[546]	308	ENDIF
[581]	309
[467]	310	IF (PRESENT(i_index_)) THEN
[966]	311	CALL cxios_set_domain_i_index &
	312	(domain_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	313	ENDIF
[581]	314
[326]	315	IF (PRESENT(ibegin_)) THEN
[966]	316	CALL cxios_set_domain_ibegin &
	317	(domain_hdl%daddr, ibegin_)
[326]	318	ENDIF
[581]	319
[467]	320	IF (PRESENT(j_index_)) THEN
[966]	321	CALL cxios_set_domain_j_index &
	322	(domain_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	323	ENDIF
[581]	324
[326]	325	IF (PRESENT(jbegin_)) THEN
[966]	326	CALL cxios_set_domain_jbegin &
	327	(domain_hdl%daddr, jbegin_)
[326]	328	ENDIF
[581]	329
[1492]	330	IF (PRESENT(lat_name_)) THEN
	331	CALL cxios_set_domain_lat_name &
	332	(domain_hdl%daddr, lat_name_, len(lat_name_))
	333	ENDIF
	334
[664]	335	IF (PRESENT(latvalue_1d_)) THEN
[966]	336	CALL cxios_set_domain_latvalue_1d &
	337	(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	338	ENDIF
[581]	339
[664]	340	IF (PRESENT(latvalue_2d_)) THEN
[966]	341	CALL cxios_set_domain_latvalue_2d &
	342	(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	343	ENDIF
	344
[1492]	345	IF (PRESENT(lon_name_)) THEN
	346	CALL cxios_set_domain_lon_name &
	347	(domain_hdl%daddr, lon_name_, len(lon_name_))
	348	ENDIF
	349
[326]	350	IF (PRESENT(long_name_)) THEN
[966]	351	CALL cxios_set_domain_long_name &
	352	(domain_hdl%daddr, long_name_, len(long_name_))
[326]	353	ENDIF
[581]	354
[664]	355	IF (PRESENT(lonvalue_1d_)) THEN
[966]	356	CALL cxios_set_domain_lonvalue_1d &
	357	(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	358	ENDIF
[581]	359
[664]	360	IF (PRESENT(lonvalue_2d_)) THEN
[966]	361	CALL cxios_set_domain_lonvalue_2d &
	362	(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	363	ENDIF
[581]	364
[664]	365	IF (PRESENT(mask_1d_)) THEN
[674]	366	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[664]	367	mask_1d__tmp = mask_1d_
[966]	368	CALL cxios_set_domain_mask_1d &
	369	(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	370	ENDIF
	371
	372	IF (PRESENT(mask_2d_)) THEN
[674]	373	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[664]	374	mask_2d__tmp = mask_2d_
[966]	375	CALL cxios_set_domain_mask_2d &
	376	(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	377	ENDIF
	378
[326]	379	IF (PRESENT(name_)) THEN
[966]	380	CALL cxios_set_domain_name &
	381	(domain_hdl%daddr, name_, len(name_))
[326]	382	ENDIF
[581]	383
[326]	384	IF (PRESENT(ni_)) THEN
[966]	385	CALL cxios_set_domain_ni &
	386	(domain_hdl%daddr, ni_)
[326]	387	ENDIF
[581]	388
[326]	389	IF (PRESENT(ni_glo_)) THEN
[966]	390	CALL cxios_set_domain_ni_glo &
	391	(domain_hdl%daddr, ni_glo_)
[326]	392	ENDIF
[581]	393
[326]	394	IF (PRESENT(nj_)) THEN
[966]	395	CALL cxios_set_domain_nj &
	396	(domain_hdl%daddr, nj_)
[326]	397	ENDIF
[581]	398
[326]	399	IF (PRESENT(nj_glo_)) THEN
[966]	400	CALL cxios_set_domain_nj_glo &
	401	(domain_hdl%daddr, nj_glo_)
[326]	402	ENDIF
[581]	403
[1952]	404	IF (PRESENT(ntiles_)) THEN
	405	CALL cxios_set_domain_ntiles &
	406	(domain_hdl%daddr, ntiles_)
	407	ENDIF
	408
[449]	409	IF (PRESENT(nvertex_)) THEN
[966]	410	CALL cxios_set_domain_nvertex &
	411	(domain_hdl%daddr, nvertex_)
[449]	412	ENDIF
[581]	413
[1158]	414	IF (PRESENT(prec_)) THEN
	415	CALL cxios_set_domain_prec &
	416	(domain_hdl%daddr, prec_)
	417	ENDIF
	418
[1626]	419	IF (PRESENT(radius_)) THEN
	420	CALL cxios_set_domain_radius &
	421	(domain_hdl%daddr, radius_)
	422	ENDIF
	423
[326]	424	IF (PRESENT(standard_name_)) THEN
[966]	425	CALL cxios_set_domain_standard_name &
	426	(domain_hdl%daddr, standard_name_, len(standard_name_))
[326]	427	ENDIF
[581]	428
[1952]	429	IF (PRESENT(tile_data_ibegin_)) THEN
	430	CALL cxios_set_domain_tile_data_ibegin &
	431	(domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
	432	ENDIF
	433
	434	IF (PRESENT(tile_data_jbegin_)) THEN
	435	CALL cxios_set_domain_tile_data_jbegin &
	436	(domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
	437	ENDIF
	438
	439	IF (PRESENT(tile_ibegin_)) THEN
	440	CALL cxios_set_domain_tile_ibegin &
	441	(domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
	442	ENDIF
	443
	444	IF (PRESENT(tile_jbegin_)) THEN
	445	CALL cxios_set_domain_tile_jbegin &
	446	(domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
	447	ENDIF
	448
	449	IF (PRESENT(tile_ni_)) THEN
	450	CALL cxios_set_domain_tile_ni &
	451	(domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
	452	ENDIF
	453
	454	IF (PRESENT(tile_nj_)) THEN
	455	CALL cxios_set_domain_tile_nj &
	456	(domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
	457	ENDIF
	458
[449]	459	IF (PRESENT(type_)) THEN
[966]	460	CALL cxios_set_domain_type &
	461	(domain_hdl%daddr, type_, len(type_))
[449]	462	ENDIF
[581]	463
[326]	464	END SUBROUTINE xios(set_domain_attr_hdl_)
[581]	465
[326]	466	SUBROUTINE xios(get_domain_attr) &
[1492]	467	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	468	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	469	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	470	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	471	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	472	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	473
[326]	474	IMPLICIT NONE
	475	TYPE(txios(domain)) :: domain_hdl
	476	CHARACTER(LEN=*), INTENT(IN) ::domain_id
[611]	477	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	478	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	479	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
[1492]	480	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
[664]	481	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	482	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[1492]	483	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
	484	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]	485	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	486	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	487	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	488	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	489	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	490	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	491	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[1492]	492	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
	493	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
[546]	494	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[657]	495	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	496	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	497	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	498	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[1492]	499	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
[664]	500	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	501	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[1492]	502	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
[326]	503	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	504	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	505	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	506	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	507	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	508	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	509	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	510	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	511	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	512	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	513	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	514	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[1952]	515	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles
[449]	516	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[1158]	517	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[1626]	518	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
[326]	519	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[1952]	520	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
	521	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
	522	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
	523	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
	524	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:)
	525	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:)
[449]	526	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	527
[966]	528	CALL xios(get_domain_handle) &
	529	(domain_id,domain_hdl)
[326]	530	CALL xios(get_domain_attr_hdl_) &
[1492]	531	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	532	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	533	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	534	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	535	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	536	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	537
[326]	538	END SUBROUTINE xios(get_domain_attr)
[581]	539
[326]	540	SUBROUTINE xios(get_domain_attr_hdl) &
[1492]	541	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	542	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	543	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	544	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	545	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	546	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	547
[326]	548	IMPLICIT NONE
	549	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	550	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	551	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	552	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
[1492]	553	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
[664]	554	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	555	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[1492]	556	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
	557	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]	558	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	559	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	560	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	561	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	562	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	563	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	564	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[1492]	565	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
	566	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
[546]	567	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[657]	568	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	569	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	570	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	571	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[1492]	572	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
[664]	573	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	574	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[1492]	575	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
[326]	576	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	577	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	578	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	579	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	580	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	581	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	582	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	583	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	584	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	585	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	586	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	587	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[1952]	588	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles
[449]	589	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[1158]	590	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[1626]	591	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
[326]	592	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[1952]	593	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
	594	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
	595	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
	596	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
	597	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:)
	598	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:)
[449]	599	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	600
[326]	601	CALL xios(get_domain_attr_hdl_) &
[1492]	602	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	603	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	604	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	605	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	606	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	607	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	608
[326]	609	END SUBROUTINE xios(get_domain_attr_hdl)
[581]	610
[326]	611	SUBROUTINE xios(get_domain_attr_hdl_) &
[1492]	612	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
	613	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
	614	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &
	615	, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ &
[1952]	616	, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
	617	, tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &
[1626]	618	)
[581]	619
[326]	620	IMPLICIT NONE
	621	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	622	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
[664]	623	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
	624	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
[1492]	625	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
[664]	626	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
	627	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
[1492]	628	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
	629	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[326]	630	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
	631	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
	632	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
	633	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
	634	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
	635	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
	636	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
[1492]	637	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
	638	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
[546]	639	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[657]	640	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
[326]	641	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
[657]	642	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
[326]	643	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
[1492]	644	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
[664]	645	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
	646	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
[1492]	647	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
[326]	648	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[664]	649	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
	650	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
	651	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	652	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	653	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	654	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	655	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	656	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
	657	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
	658	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
	659	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
[1952]	660	INTEGER , OPTIONAL, INTENT(OUT) :: ntiles_
[449]	661	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
[1158]	662	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[1626]	663	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
[326]	664	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[1952]	665	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:)
	666	INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:)
	667	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:)
	668	INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:)
	669	INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni_(:)
	670	INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj_(:)
[449]	671	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	672
[611]	673	IF (PRESENT(area_)) THEN
[966]	674	CALL cxios_get_domain_area &
	675	(domain_hdl%daddr, area_, SHAPE(area_))
[611]	676	ENDIF
	677
[664]	678	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	679	CALL cxios_get_domain_bounds_lat_1d &
	680	(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	681	ENDIF
[581]	682
[664]	683	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	684	CALL cxios_get_domain_bounds_lat_2d &
	685	(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	686	ENDIF
[581]	687
[1492]	688	IF (PRESENT(bounds_lat_name_)) THEN
	689	CALL cxios_get_domain_bounds_lat_name &
	690	(domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
	691	ENDIF
	692
[664]	693	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	694	CALL cxios_get_domain_bounds_lon_1d &
	695	(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	696	ENDIF
	697
	698	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	699	CALL cxios_get_domain_bounds_lon_2d &
	700	(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	701	ENDIF
	702
[1492]	703	IF (PRESENT(bounds_lon_name_)) THEN
	704	CALL cxios_get_domain_bounds_lon_name &
	705	(domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
	706	ENDIF
	707
	708	IF (PRESENT(comment_)) THEN
	709	CALL cxios_get_domain_comment &
	710	(domain_hdl%daddr, comment_, len(comment_))
	711	ENDIF
	712
[326]	713	IF (PRESENT(data_dim_)) THEN
[966]	714	CALL cxios_get_domain_data_dim &
	715	(domain_hdl%daddr, data_dim_)
[326]	716	ENDIF
[581]	717
[326]	718	IF (PRESENT(data_i_index_)) THEN
[966]	719	CALL cxios_get_domain_data_i_index &
	720	(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	721	ENDIF
[581]	722
[326]	723	IF (PRESENT(data_ibegin_)) THEN
[966]	724	CALL cxios_get_domain_data_ibegin &
	725	(domain_hdl%daddr, data_ibegin_)
[326]	726	ENDIF
[581]	727
[326]	728	IF (PRESENT(data_j_index_)) THEN
[966]	729	CALL cxios_get_domain_data_j_index &
	730	(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	731	ENDIF
[581]	732
[326]	733	IF (PRESENT(data_jbegin_)) THEN
[966]	734	CALL cxios_get_domain_data_jbegin &
	735	(domain_hdl%daddr, data_jbegin_)
[326]	736	ENDIF
[581]	737
[326]	738	IF (PRESENT(data_ni_)) THEN
[966]	739	CALL cxios_get_domain_data_ni &
	740	(domain_hdl%daddr, data_ni_)
[326]	741	ENDIF
[581]	742
[326]	743	IF (PRESENT(data_nj_)) THEN
[966]	744	CALL cxios_get_domain_data_nj &
	745	(domain_hdl%daddr, data_nj_)
[326]	746	ENDIF
[581]	747
[1492]	748	IF (PRESENT(dim_i_name_)) THEN
	749	CALL cxios_get_domain_dim_i_name &
	750	(domain_hdl%daddr, dim_i_name_, len(dim_i_name_))
	751	ENDIF
	752
	753	IF (PRESENT(dim_j_name_)) THEN
	754	CALL cxios_get_domain_dim_j_name &
	755	(domain_hdl%daddr, dim_j_name_, len(dim_j_name_))
	756	ENDIF
	757
[546]	758	IF (PRESENT(domain_ref_)) THEN
[966]	759	CALL cxios_get_domain_domain_ref &
	760	(domain_hdl%daddr, domain_ref_, len(domain_ref_))
[546]	761	ENDIF
[581]	762
[467]	763	IF (PRESENT(i_index_)) THEN
[966]	764	CALL cxios_get_domain_i_index &
	765	(domain_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	766	ENDIF
[581]	767
[326]	768	IF (PRESENT(ibegin_)) THEN
[966]	769	CALL cxios_get_domain_ibegin &
	770	(domain_hdl%daddr, ibegin_)
[326]	771	ENDIF
[581]	772
[467]	773	IF (PRESENT(j_index_)) THEN
[966]	774	CALL cxios_get_domain_j_index &
	775	(domain_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	776	ENDIF
[581]	777
[326]	778	IF (PRESENT(jbegin_)) THEN
[966]	779	CALL cxios_get_domain_jbegin &
	780	(domain_hdl%daddr, jbegin_)
[326]	781	ENDIF
[581]	782
[1492]	783	IF (PRESENT(lat_name_)) THEN
	784	CALL cxios_get_domain_lat_name &
	785	(domain_hdl%daddr, lat_name_, len(lat_name_))
	786	ENDIF
	787
[664]	788	IF (PRESENT(latvalue_1d_)) THEN
[966]	789	CALL cxios_get_domain_latvalue_1d &
	790	(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	791	ENDIF
[581]	792
[664]	793	IF (PRESENT(latvalue_2d_)) THEN
[966]	794	CALL cxios_get_domain_latvalue_2d &
	795	(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	796	ENDIF
	797
[1492]	798	IF (PRESENT(lon_name_)) THEN
	799	CALL cxios_get_domain_lon_name &
	800	(domain_hdl%daddr, lon_name_, len(lon_name_))
	801	ENDIF
	802
[326]	803	IF (PRESENT(long_name_)) THEN
[966]	804	CALL cxios_get_domain_long_name &
	805	(domain_hdl%daddr, long_name_, len(long_name_))
[326]	806	ENDIF
[581]	807
[664]	808	IF (PRESENT(lonvalue_1d_)) THEN
[966]	809	CALL cxios_get_domain_lonvalue_1d &
	810	(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	811	ENDIF
[581]	812
[664]	813	IF (PRESENT(lonvalue_2d_)) THEN
[966]	814	CALL cxios_get_domain_lonvalue_2d &
	815	(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	816	ENDIF
[581]	817
[664]	818	IF (PRESENT(mask_1d_)) THEN
[674]	819	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[966]	820	CALL cxios_get_domain_mask_1d &
	821	(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	822	mask_1d_ = mask_1d__tmp
	823	ENDIF
	824
	825	IF (PRESENT(mask_2d_)) THEN
[674]	826	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[966]	827	CALL cxios_get_domain_mask_2d &
	828	(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	829	mask_2d_ = mask_2d__tmp
	830	ENDIF
	831
[326]	832	IF (PRESENT(name_)) THEN
[966]	833	CALL cxios_get_domain_name &
	834	(domain_hdl%daddr, name_, len(name_))
[326]	835	ENDIF
[581]	836
[326]	837	IF (PRESENT(ni_)) THEN
[966]	838	CALL cxios_get_domain_ni &
	839	(domain_hdl%daddr, ni_)
[326]	840	ENDIF
[581]	841
[326]	842	IF (PRESENT(ni_glo_)) THEN
[966]	843	CALL cxios_get_domain_ni_glo &
	844	(domain_hdl%daddr, ni_glo_)
[326]	845	ENDIF
[581]	846
[326]	847	IF (PRESENT(nj_)) THEN
[966]	848	CALL cxios_get_domain_nj &
	849	(domain_hdl%daddr, nj_)
[326]	850	ENDIF
[581]	851
[326]	852	IF (PRESENT(nj_glo_)) THEN
[966]	853	CALL cxios_get_domain_nj_glo &
	854	(domain_hdl%daddr, nj_glo_)
[326]	855	ENDIF
[581]	856
[1952]	857	IF (PRESENT(ntiles_)) THEN
	858	CALL cxios_get_domain_ntiles &
	859	(domain_hdl%daddr, ntiles_)
	860	ENDIF
	861
[449]	862	IF (PRESENT(nvertex_)) THEN
[966]	863	CALL cxios_get_domain_nvertex &
	864	(domain_hdl%daddr, nvertex_)
[449]	865	ENDIF
[581]	866
[1158]	867	IF (PRESENT(prec_)) THEN
	868	CALL cxios_get_domain_prec &
	869	(domain_hdl%daddr, prec_)
	870	ENDIF
	871
[1626]	872	IF (PRESENT(radius_)) THEN
	873	CALL cxios_get_domain_radius &
	874	(domain_hdl%daddr, radius_)
	875	ENDIF
	876
[326]	877	IF (PRESENT(standard_name_)) THEN
[966]	878	CALL cxios_get_domain_standard_name &
	879	(domain_hdl%daddr, standard_name_, len(standard_name_))
[326]	880	ENDIF
[581]	881
[1952]	882	IF (PRESENT(tile_data_ibegin_)) THEN
	883	CALL cxios_get_domain_tile_data_ibegin &
	884	(domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
	885	ENDIF
	886
	887	IF (PRESENT(tile_data_jbegin_)) THEN
	888	CALL cxios_get_domain_tile_data_jbegin &
	889	(domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
	890	ENDIF
	891
	892	IF (PRESENT(tile_ibegin_)) THEN
	893	CALL cxios_get_domain_tile_ibegin &
	894	(domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
	895	ENDIF
	896
	897	IF (PRESENT(tile_jbegin_)) THEN
	898	CALL cxios_get_domain_tile_jbegin &
	899	(domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
	900	ENDIF
	901
	902	IF (PRESENT(tile_ni_)) THEN
	903	CALL cxios_get_domain_tile_ni &
	904	(domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
	905	ENDIF
	906
	907	IF (PRESENT(tile_nj_)) THEN
	908	CALL cxios_get_domain_tile_nj &
	909	(domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
	910	ENDIF
	911
[449]	912	IF (PRESENT(type_)) THEN
[966]	913	CALL cxios_get_domain_type &
	914	(domain_hdl%daddr, type_, len(type_))
[449]	915	ENDIF
[581]	916
[326]	917	END SUBROUTINE xios(get_domain_attr_hdl_)
[581]	918
[432]	919	SUBROUTINE xios(is_defined_domain_attr) &
[1492]	920	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	921	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	922	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	923	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	924	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	925	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	926
[432]	927	IMPLICIT NONE
	928	TYPE(txios(domain)) :: domain_hdl
	929	CHARACTER(LEN=*), INTENT(IN) ::domain_id
[611]	930	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	931	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	932	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	933	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	934	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	935	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
[1492]	936	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
	937	LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
[664]	938	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	939	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	940	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	941	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[1492]	942	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
	943	LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
	944	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	945	LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]	946	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	947	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	948	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	949	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	950	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	951	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	952	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	953	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	954	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	955	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	956	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	957	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	958	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	959	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[1492]	960	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
	961	LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
	962	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
	963	LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
[546]	964	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	965	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[467]	966	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	967	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	968	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	969	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	970	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	971	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	972	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	973	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[1492]	974	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
	975	LOGICAL(KIND=C_BOOL) :: lat_name_tmp
[664]	976	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	977	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	978	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	979	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[1492]	980	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
	981	LOGICAL(KIND=C_BOOL) :: lon_name_tmp
[432]	982	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	983	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	984	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	985	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	986	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	987	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	988	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	989	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	990	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	991	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	992	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	993	LOGICAL(KIND=C_BOOL) :: name_tmp
	994	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	995	LOGICAL(KIND=C_BOOL) :: ni_tmp
	996	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	997	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	998	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	999	LOGICAL(KIND=C_BOOL) :: nj_tmp
	1000	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	1001	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[1952]	1002	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
	1003	LOGICAL(KIND=C_BOOL) :: ntiles_tmp
[449]	1004	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	1005	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[1158]	1006	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	1007	LOGICAL(KIND=C_BOOL) :: prec_tmp
[1626]	1008	LOGICAL, OPTIONAL, INTENT(OUT) :: radius
	1009	LOGICAL(KIND=C_BOOL) :: radius_tmp
[432]	1010	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	1011	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[1952]	1012	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
	1013	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
	1014	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
	1015	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
	1016	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
	1017	LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
	1018	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
	1019	LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
	1020	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
	1021	LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
	1022	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
	1023	LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
[449]	1024	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	1025	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	1026
[966]	1027	CALL xios(get_domain_handle) &
	1028	(domain_id,domain_hdl)
[432]	1029	CALL xios(is_defined_domain_attr_hdl_) &
[1492]	1030	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	1031	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	1032	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	1033	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	1034	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	1035	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	1036
[432]	1037	END SUBROUTINE xios(is_defined_domain_attr)
[581]	1038
[432]	1039	SUBROUTINE xios(is_defined_domain_attr_hdl) &
[1492]	1040	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	1041	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	1042	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	1043	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	1044	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	1045	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	1046
[432]	1047	IMPLICIT NONE
	1048	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	1049	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	1050	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	1051	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	1052	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	1053	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	1054	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
[1492]	1055	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
	1056	LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
[664]	1057	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	1058	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	1059	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	1060	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[1492]	1061	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
	1062	LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
	1063	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	1064	LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]	1065	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	1066	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	1067	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	1068	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	1069	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	1070	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	1071	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	1072	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	1073	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	1074	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	1075	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	1076	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	1077	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	1078	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[1492]	1079	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
	1080	LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
	1081	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
	1082	LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
[546]	1083	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	1084	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[467]	1085	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	1086	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	1087	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	1088	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	1089	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	1090	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	1091	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	1092	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[1492]	1093	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
	1094	LOGICAL(KIND=C_BOOL) :: lat_name_tmp
[664]	1095	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	1096	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	1097	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	1098	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[1492]	1099	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
	1100	LOGICAL(KIND=C_BOOL) :: lon_name_tmp
[432]	1101	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	1102	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	1103	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	1104	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	1105	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	1106	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	1107	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	1108	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	1109	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	1110	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	1111	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	1112	LOGICAL(KIND=C_BOOL) :: name_tmp
	1113	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	1114	LOGICAL(KIND=C_BOOL) :: ni_tmp
	1115	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	1116	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	1117	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	1118	LOGICAL(KIND=C_BOOL) :: nj_tmp
	1119	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	1120	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[1952]	1121	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
	1122	LOGICAL(KIND=C_BOOL) :: ntiles_tmp
[449]	1123	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	1124	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[1158]	1125	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	1126	LOGICAL(KIND=C_BOOL) :: prec_tmp
[1626]	1127	LOGICAL, OPTIONAL, INTENT(OUT) :: radius
	1128	LOGICAL(KIND=C_BOOL) :: radius_tmp
[432]	1129	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	1130	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[1952]	1131	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
	1132	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
	1133	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
	1134	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
	1135	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
	1136	LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
	1137	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
	1138	LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
	1139	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
	1140	LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
	1141	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
	1142	LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
[449]	1143	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	1144	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	1145
[432]	1146	CALL xios(is_defined_domain_attr_hdl_) &
[1492]	1147	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d &
	1148	, bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni &
	1149	, data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d &
	1150	, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo &
[1952]	1151	, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin &
	1152	, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
[581]	1153
[432]	1154	END SUBROUTINE xios(is_defined_domain_attr_hdl)
[581]	1155
[432]	1156	SUBROUTINE xios(is_defined_domain_attr_hdl_) &
[1492]	1157	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &
	1158	, bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &
	1159	, data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &
	1160	, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ &
[1952]	1161	, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ &
	1162	, tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &
[1626]	1163	)
[581]	1164
[432]	1165	IMPLICIT NONE
	1166	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	1167	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
	1168	LOGICAL(KIND=C_BOOL) :: area__tmp
[664]	1169	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
	1170	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
	1171	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
	1172	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
[1492]	1173	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
	1174	LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
[664]	1175	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
	1176	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
	1177	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
	1178	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
[1492]	1179	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
	1180	LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
	1181	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
	1182	LOGICAL(KIND=C_BOOL) :: comment__tmp
[432]	1183	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
	1184	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
	1185	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
	1186	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
	1187	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
	1188	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
	1189	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
	1190	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
	1191	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
	1192	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
	1193	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
	1194	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
	1195	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
	1196	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
[1492]	1197	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
	1198	LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
	1199	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
	1200	LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
[546]	1201	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	1202	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[467]	1203	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
	1204	LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]	1205	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
	1206	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
[467]	1207	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
	1208	LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]	1209	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
	1210	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
[1492]	1211	LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
	1212	LOGICAL(KIND=C_BOOL) :: lat_name__tmp
[664]	1213	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
	1214	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
	1215	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
	1216	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
[1492]	1217	LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
	1218	LOGICAL(KIND=C_BOOL) :: lon_name__tmp
[432]	1219	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	1220	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[664]	1221	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
	1222	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
	1223	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
	1224	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
	1225	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
	1226	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
	1227	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
	1228	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
[432]	1229	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	1230	LOGICAL(KIND=C_BOOL) :: name__tmp
	1231	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
	1232	LOGICAL(KIND=C_BOOL) :: ni__tmp
	1233	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
	1234	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
	1235	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
	1236	LOGICAL(KIND=C_BOOL) :: nj__tmp
	1237	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
	1238	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[1952]	1239	LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_
	1240	LOGICAL(KIND=C_BOOL) :: ntiles__tmp
[449]	1241	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
	1242	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[1158]	1243	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	1244	LOGICAL(KIND=C_BOOL) :: prec__tmp
[1626]	1245	LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
	1246	LOGICAL(KIND=C_BOOL) :: radius__tmp
[432]	1247	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	1248	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[1952]	1249	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_
	1250	LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp
	1251	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_
	1252	LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp
	1253	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_
	1254	LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp
	1255	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_
	1256	LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp
	1257	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_
	1258	LOGICAL(KIND=C_BOOL) :: tile_ni__tmp
	1259	LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_
	1260	LOGICAL(KIND=C_BOOL) :: tile_nj__tmp
[449]	1261	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	1262	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	1263
[611]	1264	IF (PRESENT(area_)) THEN
[966]	1265	area__tmp = cxios_is_defined_domain_area &
	1266	(domain_hdl%daddr)
[611]	1267	area_ = area__tmp
	1268	ENDIF
	1269
[664]	1270	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	1271	bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d &
	1272	(domain_hdl%daddr)
[664]	1273	bounds_lat_1d_ = bounds_lat_1d__tmp
[449]	1274	ENDIF
[581]	1275
[664]	1276	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	1277	bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d &
	1278	(domain_hdl%daddr)
[664]	1279	bounds_lat_2d_ = bounds_lat_2d__tmp
[449]	1280	ENDIF
[581]	1281
[1492]	1282	IF (PRESENT(bounds_lat_name_)) THEN
	1283	bounds_lat_name__tmp = cxios_is_defined_domain_bounds_lat_name &
	1284	(domain_hdl%daddr)
	1285	bounds_lat_name_ = bounds_lat_name__tmp
	1286	ENDIF
	1287
[664]	1288	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	1289	bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d &
	1290	(domain_hdl%daddr)
[664]	1291	bounds_lon_1d_ = bounds_lon_1d__tmp
	1292	ENDIF
	1293
	1294	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	1295	bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d &
	1296	(domain_hdl%daddr)
[664]	1297	bounds_lon_2d_ = bounds_lon_2d__tmp
	1298	ENDIF
	1299
[1492]	1300	IF (PRESENT(bounds_lon_name_)) THEN
	1301	bounds_lon_name__tmp = cxios_is_defined_domain_bounds_lon_name &
	1302	(domain_hdl%daddr)
	1303	bounds_lon_name_ = bounds_lon_name__tmp
	1304	ENDIF
	1305
	1306	IF (PRESENT(comment_)) THEN
	1307	comment__tmp = cxios_is_defined_domain_comment &
	1308	(domain_hdl%daddr)
	1309	comment_ = comment__tmp
	1310	ENDIF
	1311
[432]	1312	IF (PRESENT(data_dim_)) THEN
[966]	1313	data_dim__tmp = cxios_is_defined_domain_data_dim &
	1314	(domain_hdl%daddr)
[581]	1315	data_dim_ = data_dim__tmp
[432]	1316	ENDIF
[581]	1317
[432]	1318	IF (PRESENT(data_i_index_)) THEN
[966]	1319	data_i_index__tmp = cxios_is_defined_domain_data_i_index &
	1320	(domain_hdl%daddr)
[581]	1321	data_i_index_ = data_i_index__tmp
[432]	1322	ENDIF
[581]	1323
[432]	1324	IF (PRESENT(data_ibegin_)) THEN
[966]	1325	data_ibegin__tmp = cxios_is_defined_domain_data_ibegin &
	1326	(domain_hdl%daddr)
[581]	1327	data_ibegin_ = data_ibegin__tmp
[432]	1328	ENDIF
[581]	1329
[432]	1330	IF (PRESENT(data_j_index_)) THEN
[966]	1331	data_j_index__tmp = cxios_is_defined_domain_data_j_index &
	1332	(domain_hdl%daddr)
[581]	1333	data_j_index_ = data_j_index__tmp
[432]	1334	ENDIF
[581]	1335
[432]	1336	IF (PRESENT(data_jbegin_)) THEN
[966]	1337	data_jbegin__tmp = cxios_is_defined_domain_data_jbegin &
	1338	(domain_hdl%daddr)
[581]	1339	data_jbegin_ = data_jbegin__tmp
[432]	1340	ENDIF
[581]	1341
[432]	1342	IF (PRESENT(data_ni_)) THEN
[966]	1343	data_ni__tmp = cxios_is_defined_domain_data_ni &
	1344	(domain_hdl%daddr)
[581]	1345	data_ni_ = data_ni__tmp
[432]	1346	ENDIF
[581]	1347
[432]	1348	IF (PRESENT(data_nj_)) THEN
[966]	1349	data_nj__tmp = cxios_is_defined_domain_data_nj &
	1350	(domain_hdl%daddr)
[581]	1351	data_nj_ = data_nj__tmp
[432]	1352	ENDIF
[581]	1353
[1492]	1354	IF (PRESENT(dim_i_name_)) THEN
	1355	dim_i_name__tmp = cxios_is_defined_domain_dim_i_name &
	1356	(domain_hdl%daddr)
	1357	dim_i_name_ = dim_i_name__tmp
	1358	ENDIF
	1359
	1360	IF (PRESENT(dim_j_name_)) THEN
	1361	dim_j_name__tmp = cxios_is_defined_domain_dim_j_name &
	1362	(domain_hdl%daddr)
	1363	dim_j_name_ = dim_j_name__tmp
	1364	ENDIF
	1365
[546]	1366	IF (PRESENT(domain_ref_)) THEN
[966]	1367	domain_ref__tmp = cxios_is_defined_domain_domain_ref &
	1368	(domain_hdl%daddr)
[581]	1369	domain_ref_ = domain_ref__tmp
[546]	1370	ENDIF
[581]	1371
[467]	1372	IF (PRESENT(i_index_)) THEN
[966]	1373	i_index__tmp = cxios_is_defined_domain_i_index &
	1374	(domain_hdl%daddr)
[581]	1375	i_index_ = i_index__tmp
[467]	1376	ENDIF
[581]	1377
[432]	1378	IF (PRESENT(ibegin_)) THEN
[966]	1379	ibegin__tmp = cxios_is_defined_domain_ibegin &
	1380	(domain_hdl%daddr)
[581]	1381	ibegin_ = ibegin__tmp
[432]	1382	ENDIF
[581]	1383
[467]	1384	IF (PRESENT(j_index_)) THEN
[966]	1385	j_index__tmp = cxios_is_defined_domain_j_index &
	1386	(domain_hdl%daddr)
[581]	1387	j_index_ = j_index__tmp
[467]	1388	ENDIF
[581]	1389
[432]	1390	IF (PRESENT(jbegin_)) THEN
[966]	1391	jbegin__tmp = cxios_is_defined_domain_jbegin &
	1392	(domain_hdl%daddr)
[581]	1393	jbegin_ = jbegin__tmp
[432]	1394	ENDIF
[581]	1395
[1492]	1396	IF (PRESENT(lat_name_)) THEN
	1397	lat_name__tmp = cxios_is_defined_domain_lat_name &
	1398	(domain_hdl%daddr)
	1399	lat_name_ = lat_name__tmp
	1400	ENDIF
	1401
[664]	1402	IF (PRESENT(latvalue_1d_)) THEN
[966]	1403	latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d &
	1404	(domain_hdl%daddr)
[664]	1405	latvalue_1d_ = latvalue_1d__tmp
[432]	1406	ENDIF
[581]	1407
[664]	1408	IF (PRESENT(latvalue_2d_)) THEN
[966]	1409	latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d &
	1410	(domain_hdl%daddr)
[664]	1411	latvalue_2d_ = latvalue_2d__tmp
	1412	ENDIF
	1413
[1492]	1414	IF (PRESENT(lon_name_)) THEN
	1415	lon_name__tmp = cxios_is_defined_domain_lon_name &
	1416	(domain_hdl%daddr)
	1417	lon_name_ = lon_name__tmp
	1418	ENDIF
	1419
[432]	1420	IF (PRESENT(long_name_)) THEN
[966]	1421	long_name__tmp = cxios_is_defined_domain_long_name &
	1422	(domain_hdl%daddr)
[581]	1423	long_name_ = long_name__tmp
[432]	1424	ENDIF
[581]	1425
[664]	1426	IF (PRESENT(lonvalue_1d_)) THEN
[966]	1427	lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d &
	1428	(domain_hdl%daddr)
[664]	1429	lonvalue_1d_ = lonvalue_1d__tmp
[432]	1430	ENDIF
[581]	1431
[664]	1432	IF (PRESENT(lonvalue_2d_)) THEN
[966]	1433	lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d &
	1434	(domain_hdl%daddr)
[664]	1435	lonvalue_2d_ = lonvalue_2d__tmp
[432]	1436	ENDIF
[581]	1437
[664]	1438	IF (PRESENT(mask_1d_)) THEN
[966]	1439	mask_1d__tmp = cxios_is_defined_domain_mask_1d &
	1440	(domain_hdl%daddr)
[664]	1441	mask_1d_ = mask_1d__tmp
	1442	ENDIF
	1443
	1444	IF (PRESENT(mask_2d_)) THEN
[966]	1445	mask_2d__tmp = cxios_is_defined_domain_mask_2d &
	1446	(domain_hdl%daddr)
[664]	1447	mask_2d_ = mask_2d__tmp
	1448	ENDIF
	1449
[432]	1450	IF (PRESENT(name_)) THEN
[966]	1451	name__tmp = cxios_is_defined_domain_name &
	1452	(domain_hdl%daddr)
[581]	1453	name_ = name__tmp
[432]	1454	ENDIF
[581]	1455
[432]	1456	IF (PRESENT(ni_)) THEN
[966]	1457	ni__tmp = cxios_is_defined_domain_ni &
	1458	(domain_hdl%daddr)
[581]	1459	ni_ = ni__tmp
[432]	1460	ENDIF
[581]	1461
[432]	1462	IF (PRESENT(ni_glo_)) THEN
[966]	1463	ni_glo__tmp = cxios_is_defined_domain_ni_glo &
	1464	(domain_hdl%daddr)
[581]	1465	ni_glo_ = ni_glo__tmp
[432]	1466	ENDIF
[581]	1467
[432]	1468	IF (PRESENT(nj_)) THEN
[966]	1469	nj__tmp = cxios_is_defined_domain_nj &
	1470	(domain_hdl%daddr)
[581]	1471	nj_ = nj__tmp
[432]	1472	ENDIF
[581]	1473
[432]	1474	IF (PRESENT(nj_glo_)) THEN
[966]	1475	nj_glo__tmp = cxios_is_defined_domain_nj_glo &
	1476	(domain_hdl%daddr)
[581]	1477	nj_glo_ = nj_glo__tmp
[432]	1478	ENDIF
[581]	1479
[1952]	1480	IF (PRESENT(ntiles_)) THEN
	1481	ntiles__tmp = cxios_is_defined_domain_ntiles &
	1482	(domain_hdl%daddr)
	1483	ntiles_ = ntiles__tmp
	1484	ENDIF
	1485
[449]	1486	IF (PRESENT(nvertex_)) THEN
[966]	1487	nvertex__tmp = cxios_is_defined_domain_nvertex &
	1488	(domain_hdl%daddr)
[581]	1489	nvertex_ = nvertex__tmp
[449]	1490	ENDIF
[581]	1491
[1158]	1492	IF (PRESENT(prec_)) THEN
	1493	prec__tmp = cxios_is_defined_domain_prec &
	1494	(domain_hdl%daddr)
	1495	prec_ = prec__tmp
	1496	ENDIF
	1497
[1626]	1498	IF (PRESENT(radius_)) THEN
	1499	radius__tmp = cxios_is_defined_domain_radius &
	1500	(domain_hdl%daddr)
	1501	radius_ = radius__tmp
	1502	ENDIF
	1503
[432]	1504	IF (PRESENT(standard_name_)) THEN
[966]	1505	standard_name__tmp = cxios_is_defined_domain_standard_name &
	1506	(domain_hdl%daddr)
[581]	1507	standard_name_ = standard_name__tmp
[432]	1508	ENDIF
[581]	1509
[1952]	1510	IF (PRESENT(tile_data_ibegin_)) THEN
	1511	tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin &
	1512	(domain_hdl%daddr)
	1513	tile_data_ibegin_ = tile_data_ibegin__tmp
	1514	ENDIF
	1515
	1516	IF (PRESENT(tile_data_jbegin_)) THEN
	1517	tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin &
	1518	(domain_hdl%daddr)
	1519	tile_data_jbegin_ = tile_data_jbegin__tmp
	1520	ENDIF
	1521
	1522	IF (PRESENT(tile_ibegin_)) THEN
	1523	tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin &
	1524	(domain_hdl%daddr)
	1525	tile_ibegin_ = tile_ibegin__tmp
	1526	ENDIF
	1527
	1528	IF (PRESENT(tile_jbegin_)) THEN
	1529	tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin &
	1530	(domain_hdl%daddr)
	1531	tile_jbegin_ = tile_jbegin__tmp
	1532	ENDIF
	1533
	1534	IF (PRESENT(tile_ni_)) THEN
	1535	tile_ni__tmp = cxios_is_defined_domain_tile_ni &
	1536	(domain_hdl%daddr)
	1537	tile_ni_ = tile_ni__tmp
	1538	ENDIF
	1539
	1540	IF (PRESENT(tile_nj_)) THEN
	1541	tile_nj__tmp = cxios_is_defined_domain_tile_nj &
	1542	(domain_hdl%daddr)
	1543	tile_nj_ = tile_nj__tmp
	1544	ENDIF
	1545
[449]	1546	IF (PRESENT(type_)) THEN
[966]	1547	type__tmp = cxios_is_defined_domain_type &
	1548	(domain_hdl%daddr)
[581]	1549	type_ = type__tmp
[449]	1550	ENDIF
[581]	1551
[432]	1552	END SUBROUTINE xios(is_defined_domain_attr_hdl_)
[581]	1553
[326]	1554	END MODULE idomain_attr

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

Download in other formats: