Context Navigation

source: XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_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: 65.8 KB

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

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

Download in other formats: