Context Navigation

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

Last change on this file since 1626 was 1626, checked in by oabramkina, 5 years ago
Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.
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: 53.8 KB

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

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

Download in other formats: