Context Navigation

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

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

Context Navigation

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

Download in other formats: