Context Navigation

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

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

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

Download in other formats: