Context Navigation

idomaingroup_attr.F90 @ 664

Last change on this file since 664 was 664, checked in by mhnguyen, 9 years ago

Changing some domain attributes

+) Longitude and latitude from now on can be 2 dimension array

Test
+) On Curie
+) test_client, test_complete pass and are correct

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: 47.5 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) &
[664]	14	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	15	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	16	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	17	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	18	, type )
[581]	19
[326]	20	IMPLICIT NONE
	21	TYPE(txios(domaingroup)) :: domaingroup_hdl
	22	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
	26	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	27	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[326]	28	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	29	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	30	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	31	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	32	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	33	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
	34	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	35	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
[546]	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]	39	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	40	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	41	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	42	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	43	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	46	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	47	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	48	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	49	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	50	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	51	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	53	INTEGER , OPTIONAL, INTENT(IN) :: ni
	54	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	55	INTEGER , OPTIONAL, INTENT(IN) :: nj
	56	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	57	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	58	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	59	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	60
[326]	61	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	62	CALL xios(set_domaingroup_attr_hdl_) &
[664]	63	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	64	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	65	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	66	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	67	, type )
[581]	68
[326]	69	END SUBROUTINE xios(set_domaingroup_attr)
[581]	70
[326]	71	SUBROUTINE xios(set_domaingroup_attr_hdl) &
[664]	72	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	73	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	74	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	75	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	76	, type )
[581]	77
[326]	78	IMPLICIT NONE
	79	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	80	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	81	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	82	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
	83	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	84	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[326]	85	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	86	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	87	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	88	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	89	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	90	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
	91	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	92	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
[546]	94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]	96	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	97	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	98	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	99	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	100	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	101	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	103	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	104	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	105	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	106	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	107	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	108	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	110	INTEGER , OPTIONAL, INTENT(IN) :: ni
	111	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	112	INTEGER , OPTIONAL, INTENT(IN) :: nj
	113	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	114	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	115	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	116	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	117
[326]	118	CALL xios(set_domaingroup_attr_hdl_) &
[664]	119	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	120	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	121	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	122	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	123	, type )
[581]	124
[326]	125	END SUBROUTINE xios(set_domaingroup_attr_hdl)
[581]	126
[326]	127	SUBROUTINE xios(set_domaingroup_attr_hdl_) &
[664]	128	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
	129	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_ &
	130	, domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_ &
	131	, latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ &
	132	, nj_, nj_glo_, nvertex_, standard_name_, type_ )
[581]	133
[326]	134	IMPLICIT NONE
	135	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	136	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
[664]	137	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
	138	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
	139	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
	140	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
[326]	141	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
	142	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
	143	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
	144	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
	145	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
	146	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_
	147	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
	148	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
	149	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
[546]	150	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[326]	151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[657]	152	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
[326]	153	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
[657]	154	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
[326]	155	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
[664]	156	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
	157	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
[326]	158	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[664]	159	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
	160	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
	161	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	162	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	163	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	164	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	165	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	166	INTEGER , OPTIONAL, INTENT(IN) :: ni_
	167	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
	168	INTEGER , OPTIONAL, INTENT(IN) :: nj_
	169	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
[449]	170	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
[326]	171	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[449]	172	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	173
[611]	174	IF (PRESENT(area_)) THEN
	175	CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, size(area_,1), size(area_,2))
	176	ENDIF
	177
[664]	178	IF (PRESENT(bounds_lat_1d_)) THEN
	179	CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2))
[449]	180	ENDIF
[581]	181
[664]	182	IF (PRESENT(bounds_lat_2d_)) THEN
	183	CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3))
[449]	184	ENDIF
[581]	185
[664]	186	IF (PRESENT(bounds_lon_1d_)) THEN
	187	CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2))
	188	ENDIF
	189
	190	IF (PRESENT(bounds_lon_2d_)) THEN
	191	CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3))
	192	ENDIF
	193
[326]	194	IF (PRESENT(data_dim_)) THEN
	195	CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	196	ENDIF
[581]	197
[326]	198	IF (PRESENT(data_i_index_)) THEN
[581]	199	CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
[326]	200	ENDIF
[581]	201
[326]	202	IF (PRESENT(data_ibegin_)) THEN
	203	CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	204	ENDIF
[581]	205
[326]	206	IF (PRESENT(data_j_index_)) THEN
[581]	207	CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
[326]	208	ENDIF
[581]	209
[326]	210	IF (PRESENT(data_jbegin_)) THEN
	211	CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	212	ENDIF
[581]	213
[326]	214	IF (PRESENT(data_n_index_)) THEN
	215	CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
	216	ENDIF
[581]	217
[326]	218	IF (PRESENT(data_ni_)) THEN
	219	CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	220	ENDIF
[581]	221
[326]	222	IF (PRESENT(data_nj_)) THEN
	223	CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	224	ENDIF
[581]	225
[326]	226	IF (PRESENT(domain_group_ref_)) THEN
	227	CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
	228	ENDIF
[581]	229
[546]	230	IF (PRESENT(domain_ref_)) THEN
	231	CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	232	ENDIF
[581]	233
[326]	234	IF (PRESENT(group_ref_)) THEN
	235	CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	236	ENDIF
[581]	237
[467]	238	IF (PRESENT(i_index_)) THEN
[657]	239	CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1))
[467]	240	ENDIF
[581]	241
[326]	242	IF (PRESENT(ibegin_)) THEN
	243	CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	244	ENDIF
[581]	245
[467]	246	IF (PRESENT(j_index_)) THEN
[657]	247	CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1))
[467]	248	ENDIF
[581]	249
[326]	250	IF (PRESENT(jbegin_)) THEN
	251	CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	252	ENDIF
[581]	253
[664]	254	IF (PRESENT(latvalue_1d_)) THEN
	255	CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1))
[326]	256	ENDIF
[581]	257
[664]	258	IF (PRESENT(latvalue_2d_)) THEN
	259	CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2))
	260	ENDIF
	261
[326]	262	IF (PRESENT(long_name_)) THEN
	263	CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	264	ENDIF
[581]	265
[664]	266	IF (PRESENT(lonvalue_1d_)) THEN
	267	CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1))
[326]	268	ENDIF
[581]	269
[664]	270	IF (PRESENT(lonvalue_2d_)) THEN
	271	CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2))
[326]	272	ENDIF
[581]	273
[664]	274	IF (PRESENT(mask_1d_)) THEN
	275	ALLOCATE(mask_1d__tmp(size(mask_1d_,1)))
	276	mask_1d__tmp = mask_1d_
	277	CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, size(mask_1d_,1))
	278	ENDIF
	279
	280	IF (PRESENT(mask_2d_)) THEN
	281	ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2)))
	282	mask_2d__tmp = mask_2d_
	283	CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2))
	284	ENDIF
	285
[326]	286	IF (PRESENT(name_)) THEN
	287	CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	288	ENDIF
[581]	289
[326]	290	IF (PRESENT(ni_)) THEN
	291	CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	292	ENDIF
[581]	293
[326]	294	IF (PRESENT(ni_glo_)) THEN
	295	CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	296	ENDIF
[581]	297
[326]	298	IF (PRESENT(nj_)) THEN
	299	CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	300	ENDIF
[581]	301
[326]	302	IF (PRESENT(nj_glo_)) THEN
	303	CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	304	ENDIF
[581]	305
[449]	306	IF (PRESENT(nvertex_)) THEN
	307	CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	308	ENDIF
[581]	309
[326]	310	IF (PRESENT(standard_name_)) THEN
	311	CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	312	ENDIF
[581]	313
[449]	314	IF (PRESENT(type_)) THEN
	315	CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	316	ENDIF
[581]	317
[326]	318	END SUBROUTINE xios(set_domaingroup_attr_hdl_)
[581]	319
[326]	320	SUBROUTINE xios(get_domaingroup_attr) &
[664]	321	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	322	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	323	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	324	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	325	, type )
[581]	326
[326]	327	IMPLICIT NONE
	328	TYPE(txios(domaingroup)) :: domaingroup_hdl
	329	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	330	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	331	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	332	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	333	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	334	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	335	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	336	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	337	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	338	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	339	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	340	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
	341	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	342	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
	343	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
[546]	344	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	345	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]	346	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	347	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	348	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	349	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	350	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	351	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	352	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	353	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	354	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	355	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	356	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	357	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	358	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	359	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	360	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	361	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	362	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	363	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	364	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	366	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	367
[326]	368	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	369	CALL xios(get_domaingroup_attr_hdl_) &
[664]	370	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	371	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	372	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	373	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	374	, type )
[581]	375
[326]	376	END SUBROUTINE xios(get_domaingroup_attr)
[581]	377
[326]	378	SUBROUTINE xios(get_domaingroup_attr_hdl) &
[664]	379	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	380	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	381	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	382	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	383	, type )
[581]	384
[326]	385	IMPLICIT NONE
	386	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	387	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	388	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	389	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	390	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	391	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	392	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	393	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	394	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	395	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	396	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	397	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
	398	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	399	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
	400	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
[546]	401	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	402	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]	403	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	404	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	405	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	406	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	407	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	408	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	409	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	410	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	411	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	412	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	413	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	414	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	415	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	416	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	417	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	418	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	419	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	420	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	421	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	422	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	423	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	424
[326]	425	CALL xios(get_domaingroup_attr_hdl_) &
[664]	426	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	427	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	428	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	429	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	430	, type )
[581]	431
[326]	432	END SUBROUTINE xios(get_domaingroup_attr_hdl)
[581]	433
[326]	434	SUBROUTINE xios(get_domaingroup_attr_hdl_) &
[664]	435	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
	436	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_ &
	437	, domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_ &
	438	, latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ &
	439	, nj_, nj_glo_, nvertex_, standard_name_, type_ )
[581]	440
[326]	441	IMPLICIT NONE
	442	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	443	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
[664]	444	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
	445	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
	446	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
	447	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
[326]	448	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
	449	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
	450	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
	451	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
	452	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
	453	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_
	454	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
	455	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
	456	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
[546]	457	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[326]	458	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[657]	459	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
[326]	460	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
[657]	461	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
[326]	462	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
[664]	463	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
	464	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
[326]	465	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[664]	466	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
	467	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
	468	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	469	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	470	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	471	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	472	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	473	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
	474	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
	475	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
	476	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
[449]	477	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
[326]	478	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[449]	479	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	480
[611]	481	IF (PRESENT(area_)) THEN
	482	CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, size(area_,1), size(area_,2))
	483	ENDIF
	484
[664]	485	IF (PRESENT(bounds_lat_1d_)) THEN
	486	CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2))
[449]	487	ENDIF
[581]	488
[664]	489	IF (PRESENT(bounds_lat_2d_)) THEN
	490	CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3))
[449]	491	ENDIF
[581]	492
[664]	493	IF (PRESENT(bounds_lon_1d_)) THEN
	494	CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2))
	495	ENDIF
	496
	497	IF (PRESENT(bounds_lon_2d_)) THEN
	498	CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3))
	499	ENDIF
	500
[326]	501	IF (PRESENT(data_dim_)) THEN
	502	CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	503	ENDIF
[581]	504
[326]	505	IF (PRESENT(data_i_index_)) THEN
[581]	506	CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
[326]	507	ENDIF
[581]	508
[326]	509	IF (PRESENT(data_ibegin_)) THEN
	510	CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	511	ENDIF
[581]	512
[326]	513	IF (PRESENT(data_j_index_)) THEN
[581]	514	CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
[326]	515	ENDIF
[581]	516
[326]	517	IF (PRESENT(data_jbegin_)) THEN
	518	CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	519	ENDIF
[581]	520
[326]	521	IF (PRESENT(data_n_index_)) THEN
	522	CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
	523	ENDIF
[581]	524
[326]	525	IF (PRESENT(data_ni_)) THEN
	526	CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	527	ENDIF
[581]	528
[326]	529	IF (PRESENT(data_nj_)) THEN
	530	CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	531	ENDIF
[581]	532
[326]	533	IF (PRESENT(domain_group_ref_)) THEN
	534	CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
	535	ENDIF
[581]	536
[546]	537	IF (PRESENT(domain_ref_)) THEN
	538	CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	539	ENDIF
[581]	540
[326]	541	IF (PRESENT(group_ref_)) THEN
	542	CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	543	ENDIF
[581]	544
[467]	545	IF (PRESENT(i_index_)) THEN
[657]	546	CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1))
[467]	547	ENDIF
[581]	548
[326]	549	IF (PRESENT(ibegin_)) THEN
	550	CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	551	ENDIF
[581]	552
[467]	553	IF (PRESENT(j_index_)) THEN
[657]	554	CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1))
[467]	555	ENDIF
[581]	556
[326]	557	IF (PRESENT(jbegin_)) THEN
	558	CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	559	ENDIF
[581]	560
[664]	561	IF (PRESENT(latvalue_1d_)) THEN
	562	CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1))
[326]	563	ENDIF
[581]	564
[664]	565	IF (PRESENT(latvalue_2d_)) THEN
	566	CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2))
	567	ENDIF
	568
[326]	569	IF (PRESENT(long_name_)) THEN
	570	CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	571	ENDIF
[581]	572
[664]	573	IF (PRESENT(lonvalue_1d_)) THEN
	574	CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1))
[326]	575	ENDIF
[581]	576
[664]	577	IF (PRESENT(lonvalue_2d_)) THEN
	578	CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2))
[326]	579	ENDIF
[581]	580
[664]	581	IF (PRESENT(mask_1d_)) THEN
	582	ALLOCATE(mask_1d__tmp(size(mask_1d_,1)))
	583	CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, size(mask_1d_,1))
	584	mask_1d_ = mask_1d__tmp
	585	ENDIF
	586
	587	IF (PRESENT(mask_2d_)) THEN
	588	ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2)))
	589	CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2))
	590	mask_2d_ = mask_2d__tmp
	591	ENDIF
	592
[326]	593	IF (PRESENT(name_)) THEN
	594	CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	595	ENDIF
[581]	596
[326]	597	IF (PRESENT(ni_)) THEN
	598	CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	599	ENDIF
[581]	600
[326]	601	IF (PRESENT(ni_glo_)) THEN
	602	CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	603	ENDIF
[581]	604
[326]	605	IF (PRESENT(nj_)) THEN
	606	CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	607	ENDIF
[581]	608
[326]	609	IF (PRESENT(nj_glo_)) THEN
	610	CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	611	ENDIF
[581]	612
[449]	613	IF (PRESENT(nvertex_)) THEN
	614	CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	615	ENDIF
[581]	616
[326]	617	IF (PRESENT(standard_name_)) THEN
	618	CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	619	ENDIF
[581]	620
[449]	621	IF (PRESENT(type_)) THEN
	622	CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	623	ENDIF
[581]	624
[326]	625	END SUBROUTINE xios(get_domaingroup_attr_hdl_)
[581]	626
[432]	627	SUBROUTINE xios(is_defined_domaingroup_attr) &
[664]	628	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	629	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	630	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	631	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	632	, type )
[581]	633
[432]	634	IMPLICIT NONE
	635	TYPE(txios(domaingroup)) :: domaingroup_hdl
	636	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	637	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	638	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	639	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	640	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	641	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	642	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	643	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	644	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	645	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	646	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	647	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	648	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	649	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	650	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	651	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	652	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	653	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	654	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	655	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	656	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	657	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
	658	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
	659	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	660	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	661	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	662	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
	663	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
	664	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
[546]	665	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	666	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	667	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	668	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	669	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	670	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	671	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	672	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	673	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	674	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	675	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	676	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	677	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	678	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	679	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	680	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	681	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	682	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	683	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	684	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	685	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	686	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	687	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	688	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	689	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	690	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	691	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	692	LOGICAL(KIND=C_BOOL) :: name_tmp
	693	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	694	LOGICAL(KIND=C_BOOL) :: ni_tmp
	695	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	696	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	697	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	698	LOGICAL(KIND=C_BOOL) :: nj_tmp
	699	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	700	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	701	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	702	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	703	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	704	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	705	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	706	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	707
[432]	708	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	709	CALL xios(is_defined_domaingroup_attr_hdl_) &
[664]	710	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	711	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	712	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	713	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	714	, type )
[581]	715
[432]	716	END SUBROUTINE xios(is_defined_domaingroup_attr)
[581]	717
[432]	718	SUBROUTINE xios(is_defined_domaingroup_attr_hdl) &
[664]	719	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	720	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	721	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	722	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	723	, type )
[581]	724
[432]	725	IMPLICIT NONE
	726	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	727	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	728	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	729	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	730	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	731	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	732	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	733	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	734	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	735	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	736	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	737	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	738	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	739	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	740	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	741	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	742	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	743	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	744	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	745	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	746	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	747	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
	748	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
	749	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	750	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	751	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	752	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
	753	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
	754	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
[546]	755	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	756	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	757	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	758	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	759	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	760	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	761	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	762	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	763	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	764	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	765	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	766	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	767	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	768	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	769	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	770	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	771	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	772	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	773	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	774	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	775	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	776	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	777	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	778	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	779	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	780	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	781	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	782	LOGICAL(KIND=C_BOOL) :: name_tmp
	783	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	784	LOGICAL(KIND=C_BOOL) :: ni_tmp
	785	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	786	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	787	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	788	LOGICAL(KIND=C_BOOL) :: nj_tmp
	789	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	790	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	791	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	792	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	793	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	794	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	795	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	796	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	797
[432]	798	CALL xios(is_defined_domaingroup_attr_hdl_) &
[664]	799	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
	800	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref &
	801	, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name &
	802	, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &
	803	, type )
[581]	804
[432]	805	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
[581]	806
[432]	807	SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) &
[664]	808	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
	809	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_ &
	810	, domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_ &
	811	, latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ &
	812	, nj_, nj_glo_, nvertex_, standard_name_, type_ )
[581]	813
[432]	814	IMPLICIT NONE
	815	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	816	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
	817	LOGICAL(KIND=C_BOOL) :: area__tmp
[664]	818	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
	819	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
	820	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
	821	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
	822	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
	823	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
	824	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
	825	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
[432]	826	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
	827	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
	828	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
	829	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
	830	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
	831	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
	832	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
	833	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
	834	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
	835	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
	836	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
	837	LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
	838	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
	839	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
	840	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
	841	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
	842	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
	843	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
[546]	844	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	845	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[432]	846	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	847	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[467]	848	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
	849	LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]	850	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
	851	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
[467]	852	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
	853	LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]	854	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
	855	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
[664]	856	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
	857	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
	858	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
	859	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
[432]	860	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	861	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[664]	862	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
	863	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
	864	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
	865	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
	866	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
	867	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
	868	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
	869	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
[432]	870	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	871	LOGICAL(KIND=C_BOOL) :: name__tmp
	872	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
	873	LOGICAL(KIND=C_BOOL) :: ni__tmp
	874	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
	875	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
	876	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
	877	LOGICAL(KIND=C_BOOL) :: nj__tmp
	878	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
	879	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[449]	880	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
	881	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[432]	882	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	883	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[449]	884	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	885	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	886
[611]	887	IF (PRESENT(area_)) THEN
	888	area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
	889	area_ = area__tmp
	890	ENDIF
	891
[664]	892	IF (PRESENT(bounds_lat_1d_)) THEN
	893	bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr)
	894	bounds_lat_1d_ = bounds_lat_1d__tmp
[449]	895	ENDIF
[581]	896
[664]	897	IF (PRESENT(bounds_lat_2d_)) THEN
	898	bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr)
	899	bounds_lat_2d_ = bounds_lat_2d__tmp
[449]	900	ENDIF
[581]	901
[664]	902	IF (PRESENT(bounds_lon_1d_)) THEN
	903	bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr)
	904	bounds_lon_1d_ = bounds_lon_1d__tmp
	905	ENDIF
	906
	907	IF (PRESENT(bounds_lon_2d_)) THEN
	908	bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr)
	909	bounds_lon_2d_ = bounds_lon_2d__tmp
	910	ENDIF
	911
[432]	912	IF (PRESENT(data_dim_)) THEN
[581]	913	data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
	914	data_dim_ = data_dim__tmp
[432]	915	ENDIF
[581]	916
[432]	917	IF (PRESENT(data_i_index_)) THEN
[581]	918	data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
	919	data_i_index_ = data_i_index__tmp
[432]	920	ENDIF
[581]	921
[432]	922	IF (PRESENT(data_ibegin_)) THEN
[581]	923	data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
	924	data_ibegin_ = data_ibegin__tmp
[432]	925	ENDIF
[581]	926
[432]	927	IF (PRESENT(data_j_index_)) THEN
[581]	928	data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
	929	data_j_index_ = data_j_index__tmp
[432]	930	ENDIF
[581]	931
[432]	932	IF (PRESENT(data_jbegin_)) THEN
[581]	933	data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
	934	data_jbegin_ = data_jbegin__tmp
[432]	935	ENDIF
[581]	936
[432]	937	IF (PRESENT(data_n_index_)) THEN
[581]	938	data_n_index__tmp = cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)
	939	data_n_index_ = data_n_index__tmp
[432]	940	ENDIF
[581]	941
[432]	942	IF (PRESENT(data_ni_)) THEN
[581]	943	data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
	944	data_ni_ = data_ni__tmp
[432]	945	ENDIF
[581]	946
[432]	947	IF (PRESENT(data_nj_)) THEN
[581]	948	data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
	949	data_nj_ = data_nj__tmp
[432]	950	ENDIF
[581]	951
[432]	952	IF (PRESENT(domain_group_ref_)) THEN
[581]	953	domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
	954	domain_group_ref_ = domain_group_ref__tmp
[432]	955	ENDIF
[581]	956
[546]	957	IF (PRESENT(domain_ref_)) THEN
[581]	958	domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
	959	domain_ref_ = domain_ref__tmp
[546]	960	ENDIF
[581]	961
[432]	962	IF (PRESENT(group_ref_)) THEN
[581]	963	group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
	964	group_ref_ = group_ref__tmp
[432]	965	ENDIF
[581]	966
[467]	967	IF (PRESENT(i_index_)) THEN
[581]	968	i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
	969	i_index_ = i_index__tmp
[467]	970	ENDIF
[581]	971
[432]	972	IF (PRESENT(ibegin_)) THEN
[581]	973	ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
	974	ibegin_ = ibegin__tmp
[432]	975	ENDIF
[581]	976
[467]	977	IF (PRESENT(j_index_)) THEN
[581]	978	j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
	979	j_index_ = j_index__tmp
[467]	980	ENDIF
[581]	981
[432]	982	IF (PRESENT(jbegin_)) THEN
[581]	983	jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
	984	jbegin_ = jbegin__tmp
[432]	985	ENDIF
[581]	986
[664]	987	IF (PRESENT(latvalue_1d_)) THEN
	988	latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr)
	989	latvalue_1d_ = latvalue_1d__tmp
[432]	990	ENDIF
[581]	991
[664]	992	IF (PRESENT(latvalue_2d_)) THEN
	993	latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr)
	994	latvalue_2d_ = latvalue_2d__tmp
	995	ENDIF
	996
[432]	997	IF (PRESENT(long_name_)) THEN
[581]	998	long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
	999	long_name_ = long_name__tmp
[432]	1000	ENDIF
[581]	1001
[664]	1002	IF (PRESENT(lonvalue_1d_)) THEN
	1003	lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr)
	1004	lonvalue_1d_ = lonvalue_1d__tmp
[432]	1005	ENDIF
[581]	1006
[664]	1007	IF (PRESENT(lonvalue_2d_)) THEN
	1008	lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr)
	1009	lonvalue_2d_ = lonvalue_2d__tmp
[432]	1010	ENDIF
[581]	1011
[664]	1012	IF (PRESENT(mask_1d_)) THEN
	1013	mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr)
	1014	mask_1d_ = mask_1d__tmp
	1015	ENDIF
	1016
	1017	IF (PRESENT(mask_2d_)) THEN
	1018	mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr)
	1019	mask_2d_ = mask_2d__tmp
	1020	ENDIF
	1021
[432]	1022	IF (PRESENT(name_)) THEN
[581]	1023	name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
	1024	name_ = name__tmp
[432]	1025	ENDIF
[581]	1026
[432]	1027	IF (PRESENT(ni_)) THEN
[581]	1028	ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
	1029	ni_ = ni__tmp
[432]	1030	ENDIF
[581]	1031
[432]	1032	IF (PRESENT(ni_glo_)) THEN
[581]	1033	ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
	1034	ni_glo_ = ni_glo__tmp
[432]	1035	ENDIF
[581]	1036
[432]	1037	IF (PRESENT(nj_)) THEN
[581]	1038	nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
	1039	nj_ = nj__tmp
[432]	1040	ENDIF
[581]	1041
[432]	1042	IF (PRESENT(nj_glo_)) THEN
[581]	1043	nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
	1044	nj_glo_ = nj_glo__tmp
[432]	1045	ENDIF
[581]	1046
[449]	1047	IF (PRESENT(nvertex_)) THEN
[581]	1048	nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
	1049	nvertex_ = nvertex__tmp
[449]	1050	ENDIF
[581]	1051
[432]	1052	IF (PRESENT(standard_name_)) THEN
[581]	1053	standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
	1054	standard_name_ = standard_name__tmp
[432]	1055	ENDIF
[581]	1056
[449]	1057	IF (PRESENT(type_)) THEN
[581]	1058	type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
	1059	type_ = type__tmp
[449]	1060	ENDIF
[581]	1061
[432]	1062	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
[581]	1063
[326]	1064	END MODULE idomaingroup_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90 @ 664

Download in other formats: