Context Navigation

source: XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_attr.F90 @ 1965

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

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

Download in other formats: