Context Navigation

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

Last change on this file since 1205 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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

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

Download in other formats: