Context Navigation

source: XIOS/dev/branch_openmp/src/interface/fortran_attr/idomain_attr.F90 @ 1545

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

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

Download in other formats: