Context Navigation

source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifield_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago
Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain
Property copyright set to Software name : XIOS (Xml I/O Server) http://forge.ipsl.jussieu.fr/ioserver Creation date : January 2009 Licence : CeCCIL version2 see license file in root directory : Licence_CeCILL_V2-en.txt or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement) CNRS/IPSL (Institut Pierre Simon Laplace) Project Manager : Yann Meurdesoif yann.meurdesoif@cea.fr
File size: 47.4 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ifield_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ifield
	9	USE field_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_field_attr) &
[2338]	14	( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	15	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	16	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	17	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	18	, unit, valid_max, valid_min )
[581]	19
[326]	20	IMPLICIT NONE
	21	TYPE(txios(field)) :: field_hdl
	22	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[2338]	25	LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph
	26	LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]	29	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active
	30	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]	32	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	33	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	34	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	35	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	37	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	38	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]	40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	41	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	42	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[790]	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]	45	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	46	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	47	INTEGER , OPTIONAL, INTENT(IN) :: level
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	51	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	52	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	53	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]	55	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	57	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	58	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	59	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	60	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	61	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	62	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	63
[966]	64	CALL xios(get_field_handle) &
	65	(field_id,field_hdl)
[326]	66	CALL xios(set_field_attr_hdl_) &
[2338]	67	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	68	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	69	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	70	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	71	, unit, valid_max, valid_min )
[581]	72
[326]	73	END SUBROUTINE xios(set_field_attr)
[581]	74
[326]	75	SUBROUTINE xios(set_field_attr_hdl) &
[2338]	76	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	77	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	78	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	79	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	80	, unit, valid_max, valid_min )
[581]	81
[326]	82	IMPLICIT NONE
	83	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	84	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[2338]	86	LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph
	87	LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
	89	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]	90	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active
	91	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]	92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]	93	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	94	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	95	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	96	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	98	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	99	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]	100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	102	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	103	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[790]	104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]	105	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]	106	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	107	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	108	INTEGER , OPTIONAL, INTENT(IN) :: level
	109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	110	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	112	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	113	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	114	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	115	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]	116	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	117	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	118	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	119	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	120	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	121	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	122	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	123	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	124
[326]	125	CALL xios(set_field_attr_hdl_) &
[2338]	126	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	127	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	128	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	129	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	130	, unit, valid_max, valid_min )
[581]	131
[326]	132	END SUBROUTINE xios(set_field_attr_hdl)
[581]	133
[326]	134	SUBROUTINE xios(set_field_attr_hdl_) &
[2338]	135	( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ &
	136	, check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ &
	137	, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ &
	138	, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ &
	139	, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	140
[326]	141	IMPLICIT NONE
	142	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	143	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]	144	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[2338]	145	LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph_
	146	LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]	147	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
	148	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
[1201]	149	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_
	150	LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]	151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[608]	152	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[326]	153	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]	154	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
	155	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	156	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
	157	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	158	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]	159	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
[326]	160	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]	161	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
	162	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
[790]	163	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]	164	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
[676]	165	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output_
	166	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	167	INTEGER , OPTIONAL, INTENT(IN) :: level_
	168	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	169	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	170	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
	171	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[593]	172	LOGICAL , OPTIONAL, INTENT(IN) :: read_access_
	173	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]	174	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
[464]	175	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]	176	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]	177	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_
	178	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	179	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]	180	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]	181	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
	182	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]	183
[464]	184	IF (PRESENT(add_offset_)) THEN
[966]	185	CALL cxios_set_field_add_offset &
	186	(field_hdl%daddr, add_offset_)
[464]	187	ENDIF
[581]	188
[326]	189	IF (PRESENT(axis_ref_)) THEN
[966]	190	CALL cxios_set_field_axis_ref &
	191	(field_hdl%daddr, axis_ref_, len(axis_ref_))
[326]	192	ENDIF
[581]	193
[2338]	194	IF (PRESENT(build_workflow_graph_)) THEN
	195	build_workflow_graph__tmp = build_workflow_graph_
	196	CALL cxios_set_field_build_workflow_graph &
	197	(field_hdl%daddr, build_workflow_graph__tmp)
	198	ENDIF
	199
[1021]	200	IF (PRESENT(cell_methods_)) THEN
	201	CALL cxios_set_field_cell_methods &
	202	(field_hdl%daddr, cell_methods_, len(cell_methods_))
	203	ENDIF
	204
	205	IF (PRESENT(cell_methods_mode_)) THEN
	206	CALL cxios_set_field_cell_methods_mode &
	207	(field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
	208	ENDIF
	209
[1201]	210	IF (PRESENT(check_if_active_)) THEN
	211	check_if_active__tmp = check_if_active_
	212	CALL cxios_set_field_check_if_active &
	213	(field_hdl%daddr, check_if_active__tmp)
	214	ENDIF
	215
[1492]	216	IF (PRESENT(comment_)) THEN
	217	CALL cxios_set_field_comment &
	218	(field_hdl%daddr, comment_, len(comment_))
	219	ENDIF
	220
[608]	221	IF (PRESENT(compression_level_)) THEN
[966]	222	CALL cxios_set_field_compression_level &
	223	(field_hdl%daddr, compression_level_)
[608]	224	ENDIF
	225
[326]	226	IF (PRESENT(default_value_)) THEN
[966]	227	CALL cxios_set_field_default_value &
	228	(field_hdl%daddr, default_value_)
[326]	229	ENDIF
[581]	230
[472]	231	IF (PRESENT(detect_missing_value_)) THEN
[581]	232	detect_missing_value__tmp = detect_missing_value_
[966]	233	CALL cxios_set_field_detect_missing_value &
	234	(field_hdl%daddr, detect_missing_value__tmp)
[472]	235	ENDIF
[581]	236
[326]	237	IF (PRESENT(domain_ref_)) THEN
[966]	238	CALL cxios_set_field_domain_ref &
	239	(field_hdl%daddr, domain_ref_, len(domain_ref_))
[326]	240	ENDIF
[581]	241
[326]	242	IF (PRESENT(enabled_)) THEN
[581]	243	enabled__tmp = enabled_
[966]	244	CALL cxios_set_field_enabled &
	245	(field_hdl%daddr, enabled__tmp)
[326]	246	ENDIF
[581]	247
[1021]	248	IF (PRESENT(expr_)) THEN
	249	CALL cxios_set_field_expr &
	250	(field_hdl%daddr, expr_, len(expr_))
	251	ENDIF
	252
[326]	253	IF (PRESENT(field_ref_)) THEN
[966]	254	CALL cxios_set_field_field_ref &
	255	(field_hdl%daddr, field_ref_, len(field_ref_))
[326]	256	ENDIF
[581]	257
[326]	258	IF (PRESENT(freq_offset_)) THEN
[966]	259	CALL cxios_set_field_freq_offset &
	260	(field_hdl%daddr, freq_offset_)
[326]	261	ENDIF
[581]	262
[326]	263	IF (PRESENT(freq_op_)) THEN
[966]	264	CALL cxios_set_field_freq_op &
	265	(field_hdl%daddr, freq_op_)
[326]	266	ENDIF
[581]	267
[790]	268	IF (PRESENT(grid_path_)) THEN
[966]	269	CALL cxios_set_field_grid_path &
	270	(field_hdl%daddr, grid_path_, len(grid_path_))
[790]	271	ENDIF
	272
[326]	273	IF (PRESENT(grid_ref_)) THEN
[966]	274	CALL cxios_set_field_grid_ref &
	275	(field_hdl%daddr, grid_ref_, len(grid_ref_))
[326]	276	ENDIF
[581]	277
[676]	278	IF (PRESENT(indexed_output_)) THEN
	279	indexed_output__tmp = indexed_output_
[966]	280	CALL cxios_set_field_indexed_output &
	281	(field_hdl%daddr, indexed_output__tmp)
[676]	282	ENDIF
	283
[326]	284	IF (PRESENT(level_)) THEN
[966]	285	CALL cxios_set_field_level &
	286	(field_hdl%daddr, level_)
[326]	287	ENDIF
[581]	288
[326]	289	IF (PRESENT(long_name_)) THEN
[966]	290	CALL cxios_set_field_long_name &
	291	(field_hdl%daddr, long_name_, len(long_name_))
[326]	292	ENDIF
[581]	293
[326]	294	IF (PRESENT(name_)) THEN
[966]	295	CALL cxios_set_field_name &
	296	(field_hdl%daddr, name_, len(name_))
[326]	297	ENDIF
[581]	298
[326]	299	IF (PRESENT(operation_)) THEN
[966]	300	CALL cxios_set_field_operation &
	301	(field_hdl%daddr, operation_, len(operation_))
[326]	302	ENDIF
[581]	303
[326]	304	IF (PRESENT(prec_)) THEN
[966]	305	CALL cxios_set_field_prec &
	306	(field_hdl%daddr, prec_)
[326]	307	ENDIF
[581]	308
[593]	309	IF (PRESENT(read_access_)) THEN
	310	read_access__tmp = read_access_
[966]	311	CALL cxios_set_field_read_access &
	312	(field_hdl%daddr, read_access__tmp)
[593]	313	ENDIF
	314
[891]	315	IF (PRESENT(scalar_ref_)) THEN
[966]	316	CALL cxios_set_field_scalar_ref &
	317	(field_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	318	ENDIF
	319
[464]	320	IF (PRESENT(scale_factor_)) THEN
[966]	321	CALL cxios_set_field_scale_factor &
	322	(field_hdl%daddr, scale_factor_)
[464]	323	ENDIF
[581]	324
[326]	325	IF (PRESENT(standard_name_)) THEN
[966]	326	CALL cxios_set_field_standard_name &
	327	(field_hdl%daddr, standard_name_, len(standard_name_))
[326]	328	ENDIF
[581]	329
[711]	330	IF (PRESENT(ts_enabled_)) THEN
	331	ts_enabled__tmp = ts_enabled_
[966]	332	CALL cxios_set_field_ts_enabled &
	333	(field_hdl%daddr, ts_enabled__tmp)
[711]	334	ENDIF
	335
	336	IF (PRESENT(ts_split_freq_)) THEN
[966]	337	CALL cxios_set_field_ts_split_freq &
	338	(field_hdl%daddr, ts_split_freq_)
[711]	339	ENDIF
	340
[326]	341	IF (PRESENT(unit_)) THEN
[966]	342	CALL cxios_set_field_unit &
	343	(field_hdl%daddr, unit_, len(unit_))
[326]	344	ENDIF
[581]	345
[463]	346	IF (PRESENT(valid_max_)) THEN
[966]	347	CALL cxios_set_field_valid_max &
	348	(field_hdl%daddr, valid_max_)
[463]	349	ENDIF
[581]	350
[463]	351	IF (PRESENT(valid_min_)) THEN
[966]	352	CALL cxios_set_field_valid_min &
	353	(field_hdl%daddr, valid_min_)
[463]	354	ENDIF
[581]	355
[326]	356	END SUBROUTINE xios(set_field_attr_hdl_)
[581]	357
[326]	358	SUBROUTINE xios(get_field_attr) &
[2338]	359	( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	360	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	361	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	362	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	363	, unit, valid_max, valid_min )
[581]	364
[326]	365	IMPLICIT NONE
	366	TYPE(txios(field)) :: field_hdl
	367	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	368	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	369	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[2338]	370	LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph
	371	LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	372	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
	373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]	374	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active
	375	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]	376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]	377	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	378	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	379	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	380	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	381	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	382	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	383	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]	384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]	385	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	386	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	387	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	388	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	389	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]	390	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	391	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	392	INTEGER , OPTIONAL, INTENT(OUT) :: level
	393	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	394	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	395	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	396	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	397	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	398	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	399	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]	400	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	401	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	402	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	403	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	404	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	405	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	406	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	407	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	408
[966]	409	CALL xios(get_field_handle) &
	410	(field_id,field_hdl)
[326]	411	CALL xios(get_field_attr_hdl_) &
[2338]	412	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	413	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	414	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	415	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	416	, unit, valid_max, valid_min )
[581]	417
[326]	418	END SUBROUTINE xios(get_field_attr)
[581]	419
[326]	420	SUBROUTINE xios(get_field_attr_hdl) &
[2338]	421	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	422	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	423	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	424	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	425	, unit, valid_max, valid_min )
[581]	426
[326]	427	IMPLICIT NONE
	428	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	429	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[2338]	431	LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph
	432	LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	433	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
	434	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]	435	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active
	436	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]	437	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]	438	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	439	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	440	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	441	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	442	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	443	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	444	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]	445	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]	446	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	447	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	448	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	449	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	450	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]	451	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	452	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	453	INTEGER , OPTIONAL, INTENT(OUT) :: level
	454	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	455	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	456	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	457	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	458	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	459	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	460	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]	461	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	462	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	463	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	464	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	465	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	466	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	467	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	468	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	469
[326]	470	CALL xios(get_field_attr_hdl_) &
[2338]	471	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	472	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	473	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	474	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	475	, unit, valid_max, valid_min )
[581]	476
[326]	477	END SUBROUTINE xios(get_field_attr_hdl)
[581]	478
[326]	479	SUBROUTINE xios(get_field_attr_hdl_) &
[2338]	480	( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ &
	481	, check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ &
	482	, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ &
	483	, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ &
	484	, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	485
[326]	486	IMPLICIT NONE
	487	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	488	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]	489	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[2338]	490	LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph_
	491	LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]	492	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
	493	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
[1201]	494	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_
	495	LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]	496	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[608]	497	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[326]	498	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]	499	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
	500	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	501	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
	502	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	503	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]	504	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
[326]	505	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]	506	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
	507	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
[790]	508	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]	509	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
[676]	510	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_
	511	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	512	INTEGER , OPTIONAL, INTENT(OUT) :: level_
	513	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	514	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	515	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	516	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[593]	517	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
	518	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]	519	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
[464]	520	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]	521	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]	522	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_
	523	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	524	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]	525	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]	526	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
	527	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]	528
[464]	529	IF (PRESENT(add_offset_)) THEN
[966]	530	CALL cxios_get_field_add_offset &
	531	(field_hdl%daddr, add_offset_)
[464]	532	ENDIF
[581]	533
[326]	534	IF (PRESENT(axis_ref_)) THEN
[966]	535	CALL cxios_get_field_axis_ref &
	536	(field_hdl%daddr, axis_ref_, len(axis_ref_))
[326]	537	ENDIF
[581]	538
[2338]	539	IF (PRESENT(build_workflow_graph_)) THEN
	540	CALL cxios_get_field_build_workflow_graph &
	541	(field_hdl%daddr, build_workflow_graph__tmp)
	542	build_workflow_graph_ = build_workflow_graph__tmp
	543	ENDIF
	544
[1021]	545	IF (PRESENT(cell_methods_)) THEN
	546	CALL cxios_get_field_cell_methods &
	547	(field_hdl%daddr, cell_methods_, len(cell_methods_))
	548	ENDIF
	549
	550	IF (PRESENT(cell_methods_mode_)) THEN
	551	CALL cxios_get_field_cell_methods_mode &
	552	(field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
	553	ENDIF
	554
[1201]	555	IF (PRESENT(check_if_active_)) THEN
	556	CALL cxios_get_field_check_if_active &
	557	(field_hdl%daddr, check_if_active__tmp)
	558	check_if_active_ = check_if_active__tmp
	559	ENDIF
	560
[1492]	561	IF (PRESENT(comment_)) THEN
	562	CALL cxios_get_field_comment &
	563	(field_hdl%daddr, comment_, len(comment_))
	564	ENDIF
	565
[608]	566	IF (PRESENT(compression_level_)) THEN
[966]	567	CALL cxios_get_field_compression_level &
	568	(field_hdl%daddr, compression_level_)
[608]	569	ENDIF
	570
[326]	571	IF (PRESENT(default_value_)) THEN
[966]	572	CALL cxios_get_field_default_value &
	573	(field_hdl%daddr, default_value_)
[326]	574	ENDIF
[581]	575
[472]	576	IF (PRESENT(detect_missing_value_)) THEN
[966]	577	CALL cxios_get_field_detect_missing_value &
	578	(field_hdl%daddr, detect_missing_value__tmp)
[581]	579	detect_missing_value_ = detect_missing_value__tmp
[472]	580	ENDIF
[581]	581
[326]	582	IF (PRESENT(domain_ref_)) THEN
[966]	583	CALL cxios_get_field_domain_ref &
	584	(field_hdl%daddr, domain_ref_, len(domain_ref_))
[326]	585	ENDIF
[581]	586
[326]	587	IF (PRESENT(enabled_)) THEN
[966]	588	CALL cxios_get_field_enabled &
	589	(field_hdl%daddr, enabled__tmp)
[581]	590	enabled_ = enabled__tmp
[326]	591	ENDIF
[581]	592
[1021]	593	IF (PRESENT(expr_)) THEN
	594	CALL cxios_get_field_expr &
	595	(field_hdl%daddr, expr_, len(expr_))
	596	ENDIF
	597
[326]	598	IF (PRESENT(field_ref_)) THEN
[966]	599	CALL cxios_get_field_field_ref &
	600	(field_hdl%daddr, field_ref_, len(field_ref_))
[326]	601	ENDIF
[581]	602
[326]	603	IF (PRESENT(freq_offset_)) THEN
[966]	604	CALL cxios_get_field_freq_offset &
	605	(field_hdl%daddr, freq_offset_)
[326]	606	ENDIF
[581]	607
[326]	608	IF (PRESENT(freq_op_)) THEN
[966]	609	CALL cxios_get_field_freq_op &
	610	(field_hdl%daddr, freq_op_)
[326]	611	ENDIF
[581]	612
[790]	613	IF (PRESENT(grid_path_)) THEN
[966]	614	CALL cxios_get_field_grid_path &
	615	(field_hdl%daddr, grid_path_, len(grid_path_))
[790]	616	ENDIF
	617
[326]	618	IF (PRESENT(grid_ref_)) THEN
[966]	619	CALL cxios_get_field_grid_ref &
	620	(field_hdl%daddr, grid_ref_, len(grid_ref_))
[326]	621	ENDIF
[581]	622
[676]	623	IF (PRESENT(indexed_output_)) THEN
[966]	624	CALL cxios_get_field_indexed_output &
	625	(field_hdl%daddr, indexed_output__tmp)
[676]	626	indexed_output_ = indexed_output__tmp
	627	ENDIF
	628
[326]	629	IF (PRESENT(level_)) THEN
[966]	630	CALL cxios_get_field_level &
	631	(field_hdl%daddr, level_)
[326]	632	ENDIF
[581]	633
[326]	634	IF (PRESENT(long_name_)) THEN
[966]	635	CALL cxios_get_field_long_name &
	636	(field_hdl%daddr, long_name_, len(long_name_))
[326]	637	ENDIF
[581]	638
[326]	639	IF (PRESENT(name_)) THEN
[966]	640	CALL cxios_get_field_name &
	641	(field_hdl%daddr, name_, len(name_))
[326]	642	ENDIF
[581]	643
[326]	644	IF (PRESENT(operation_)) THEN
[966]	645	CALL cxios_get_field_operation &
	646	(field_hdl%daddr, operation_, len(operation_))
[326]	647	ENDIF
[581]	648
[326]	649	IF (PRESENT(prec_)) THEN
[966]	650	CALL cxios_get_field_prec &
	651	(field_hdl%daddr, prec_)
[326]	652	ENDIF
[581]	653
[593]	654	IF (PRESENT(read_access_)) THEN
[966]	655	CALL cxios_get_field_read_access &
	656	(field_hdl%daddr, read_access__tmp)
[593]	657	read_access_ = read_access__tmp
	658	ENDIF
	659
[891]	660	IF (PRESENT(scalar_ref_)) THEN
[966]	661	CALL cxios_get_field_scalar_ref &
	662	(field_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	663	ENDIF
	664
[464]	665	IF (PRESENT(scale_factor_)) THEN
[966]	666	CALL cxios_get_field_scale_factor &
	667	(field_hdl%daddr, scale_factor_)
[464]	668	ENDIF
[581]	669
[326]	670	IF (PRESENT(standard_name_)) THEN
[966]	671	CALL cxios_get_field_standard_name &
	672	(field_hdl%daddr, standard_name_, len(standard_name_))
[326]	673	ENDIF
[581]	674
[711]	675	IF (PRESENT(ts_enabled_)) THEN
[966]	676	CALL cxios_get_field_ts_enabled &
	677	(field_hdl%daddr, ts_enabled__tmp)
[711]	678	ts_enabled_ = ts_enabled__tmp
	679	ENDIF
	680
	681	IF (PRESENT(ts_split_freq_)) THEN
[966]	682	CALL cxios_get_field_ts_split_freq &
	683	(field_hdl%daddr, ts_split_freq_)
[711]	684	ENDIF
	685
[326]	686	IF (PRESENT(unit_)) THEN
[966]	687	CALL cxios_get_field_unit &
	688	(field_hdl%daddr, unit_, len(unit_))
[326]	689	ENDIF
[581]	690
[463]	691	IF (PRESENT(valid_max_)) THEN
[966]	692	CALL cxios_get_field_valid_max &
	693	(field_hdl%daddr, valid_max_)
[463]	694	ENDIF
[581]	695
[463]	696	IF (PRESENT(valid_min_)) THEN
[966]	697	CALL cxios_get_field_valid_min &
	698	(field_hdl%daddr, valid_min_)
[463]	699	ENDIF
[581]	700
[326]	701	END SUBROUTINE xios(get_field_attr_hdl_)
[581]	702
[432]	703	SUBROUTINE xios(is_defined_field_attr) &
[2338]	704	( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	705	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	706	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	707	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	708	, unit, valid_max, valid_min )
[581]	709
[432]	710	IMPLICIT NONE
	711	TYPE(txios(field)) :: field_hdl
	712	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	713	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	714	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	715	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	716	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[2338]	717	LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph
	718	LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	719	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
	720	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
	721	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
	722	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[1201]	723	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
	724	LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]	725	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	726	LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]	727	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	728	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	729	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	730	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	731	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	732	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	733	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	734	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	735	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	736	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1021]	737	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
	738	LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]	739	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	740	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	741	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	742	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	743	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	744	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	745	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	746	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	747	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	748	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]	749	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	750	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	751	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	752	LOGICAL(KIND=C_BOOL) :: level_tmp
	753	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	754	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	755	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	756	LOGICAL(KIND=C_BOOL) :: name_tmp
	757	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	758	LOGICAL(KIND=C_BOOL) :: operation_tmp
	759	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	760	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	761	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	762	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]	763	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	764	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]	765	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	766	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	767	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	768	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	769	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	770	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	771	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	772	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	773	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	774	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	775	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	776	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	777	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	778	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	779
[966]	780	CALL xios(get_field_handle) &
	781	(field_id,field_hdl)
[432]	782	CALL xios(is_defined_field_attr_hdl_) &
[2338]	783	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	784	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	785	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	786	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	787	, unit, valid_max, valid_min )
[581]	788
[432]	789	END SUBROUTINE xios(is_defined_field_attr)
[581]	790
[432]	791	SUBROUTINE xios(is_defined_field_attr_hdl) &
[2338]	792	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	793	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	794	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	795	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	796	, unit, valid_max, valid_min )
[581]	797
[432]	798	IMPLICIT NONE
	799	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	800	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	801	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	802	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	803	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[2338]	804	LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph
	805	LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]	806	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
	807	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
	808	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
	809	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[1201]	810	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
	811	LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]	812	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	813	LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]	814	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	815	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	816	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	817	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	818	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	819	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	820	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	821	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	822	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	823	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1021]	824	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
	825	LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]	826	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	827	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	828	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	829	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	830	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	831	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	832	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	833	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	834	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	835	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]	836	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	837	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	838	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	839	LOGICAL(KIND=C_BOOL) :: level_tmp
	840	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	841	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	842	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	843	LOGICAL(KIND=C_BOOL) :: name_tmp
	844	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	845	LOGICAL(KIND=C_BOOL) :: operation_tmp
	846	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	847	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	848	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	849	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]	850	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	851	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]	852	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	853	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	854	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	855	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	856	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	857	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	858	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	859	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	860	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	861	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	862	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	863	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	864	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	865	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	866
[432]	867	CALL xios(is_defined_field_attr_hdl_) &
[2338]	868	( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active &
	869	, comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr &
	870	, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name &
	871	, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq &
	872	, unit, valid_max, valid_min )
[581]	873
[432]	874	END SUBROUTINE xios(is_defined_field_attr_hdl)
[581]	875
[432]	876	SUBROUTINE xios(is_defined_field_attr_hdl_) &
[2338]	877	( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ &
	878	, check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ &
	879	, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ &
	880	, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ &
	881	, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	882
[432]	883	IMPLICIT NONE
	884	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	885	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
	886	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]	887	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	888	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[2338]	889	LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_
	890	LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]	891	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_
	892	LOGICAL(KIND=C_BOOL) :: cell_methods__tmp
	893	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_
	894	LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp
[1201]	895	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_
	896	LOGICAL(KIND=C_BOOL) :: check_if_active__tmp
[1492]	897	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
	898	LOGICAL(KIND=C_BOOL) :: comment__tmp
[608]	899	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	900	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]	901	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
	902	LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]	903	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
	904	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]	905	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	906	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
	907	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	908	LOGICAL(KIND=C_BOOL) :: enabled__tmp
[1021]	909	LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
	910	LOGICAL(KIND=C_BOOL) :: expr__tmp
[432]	911	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
	912	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
	913	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
	914	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
	915	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
	916	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
[790]	917	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
	918	LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]	919	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
	920	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
[676]	921	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
	922	LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]	923	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
	924	LOGICAL(KIND=C_BOOL) :: level__tmp
	925	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	926	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	927	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	928	LOGICAL(KIND=C_BOOL) :: name__tmp
	929	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	930	LOGICAL(KIND=C_BOOL) :: operation__tmp
	931	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	932	LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]	933	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
	934	LOGICAL(KIND=C_BOOL) :: read_access__tmp
[891]	935	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
	936	LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
[464]	937	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
	938	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]	939	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	940	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]	941	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
	942	LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
	943	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
	944	LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]	945	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	946	LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]	947	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
	948	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
	949	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
	950	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]	951
[464]	952	IF (PRESENT(add_offset_)) THEN
[966]	953	add_offset__tmp = cxios_is_defined_field_add_offset &
	954	(field_hdl%daddr)
[581]	955	add_offset_ = add_offset__tmp
[464]	956	ENDIF
[581]	957
[432]	958	IF (PRESENT(axis_ref_)) THEN
[966]	959	axis_ref__tmp = cxios_is_defined_field_axis_ref &
	960	(field_hdl%daddr)
[581]	961	axis_ref_ = axis_ref__tmp
[432]	962	ENDIF
[581]	963
[2338]	964	IF (PRESENT(build_workflow_graph_)) THEN
	965	build_workflow_graph__tmp = cxios_is_defined_field_build_workflow_graph &
	966	(field_hdl%daddr)
	967	build_workflow_graph_ = build_workflow_graph__tmp
	968	ENDIF
	969
[1021]	970	IF (PRESENT(cell_methods_)) THEN
	971	cell_methods__tmp = cxios_is_defined_field_cell_methods &
	972	(field_hdl%daddr)
	973	cell_methods_ = cell_methods__tmp
	974	ENDIF
	975
	976	IF (PRESENT(cell_methods_mode_)) THEN
	977	cell_methods_mode__tmp = cxios_is_defined_field_cell_methods_mode &
	978	(field_hdl%daddr)
	979	cell_methods_mode_ = cell_methods_mode__tmp
	980	ENDIF
	981
[1201]	982	IF (PRESENT(check_if_active_)) THEN
	983	check_if_active__tmp = cxios_is_defined_field_check_if_active &
	984	(field_hdl%daddr)
	985	check_if_active_ = check_if_active__tmp
	986	ENDIF
	987
[1492]	988	IF (PRESENT(comment_)) THEN
	989	comment__tmp = cxios_is_defined_field_comment &
	990	(field_hdl%daddr)
	991	comment_ = comment__tmp
	992	ENDIF
	993
[608]	994	IF (PRESENT(compression_level_)) THEN
[966]	995	compression_level__tmp = cxios_is_defined_field_compression_level &
	996	(field_hdl%daddr)
[608]	997	compression_level_ = compression_level__tmp
	998	ENDIF
	999
[432]	1000	IF (PRESENT(default_value_)) THEN
[966]	1001	default_value__tmp = cxios_is_defined_field_default_value &
	1002	(field_hdl%daddr)
[581]	1003	default_value_ = default_value__tmp
[432]	1004	ENDIF
[581]	1005
[472]	1006	IF (PRESENT(detect_missing_value_)) THEN
[966]	1007	detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value &
	1008	(field_hdl%daddr)
[581]	1009	detect_missing_value_ = detect_missing_value__tmp
[472]	1010	ENDIF
[581]	1011
[432]	1012	IF (PRESENT(domain_ref_)) THEN
[966]	1013	domain_ref__tmp = cxios_is_defined_field_domain_ref &
	1014	(field_hdl%daddr)
[581]	1015	domain_ref_ = domain_ref__tmp
[432]	1016	ENDIF
[581]	1017
[432]	1018	IF (PRESENT(enabled_)) THEN
[966]	1019	enabled__tmp = cxios_is_defined_field_enabled &
	1020	(field_hdl%daddr)
[581]	1021	enabled_ = enabled__tmp
[432]	1022	ENDIF
[581]	1023
[1021]	1024	IF (PRESENT(expr_)) THEN
	1025	expr__tmp = cxios_is_defined_field_expr &
	1026	(field_hdl%daddr)
	1027	expr_ = expr__tmp
	1028	ENDIF
	1029
[432]	1030	IF (PRESENT(field_ref_)) THEN
[966]	1031	field_ref__tmp = cxios_is_defined_field_field_ref &
	1032	(field_hdl%daddr)
[581]	1033	field_ref_ = field_ref__tmp
[432]	1034	ENDIF
[581]	1035
[432]	1036	IF (PRESENT(freq_offset_)) THEN
[966]	1037	freq_offset__tmp = cxios_is_defined_field_freq_offset &
	1038	(field_hdl%daddr)
[581]	1039	freq_offset_ = freq_offset__tmp
[432]	1040	ENDIF
[581]	1041
[432]	1042	IF (PRESENT(freq_op_)) THEN
[966]	1043	freq_op__tmp = cxios_is_defined_field_freq_op &
	1044	(field_hdl%daddr)
[581]	1045	freq_op_ = freq_op__tmp
[432]	1046	ENDIF
[581]	1047
[790]	1048	IF (PRESENT(grid_path_)) THEN
[966]	1049	grid_path__tmp = cxios_is_defined_field_grid_path &
	1050	(field_hdl%daddr)
[790]	1051	grid_path_ = grid_path__tmp
	1052	ENDIF
	1053
[432]	1054	IF (PRESENT(grid_ref_)) THEN
[966]	1055	grid_ref__tmp = cxios_is_defined_field_grid_ref &
	1056	(field_hdl%daddr)
[581]	1057	grid_ref_ = grid_ref__tmp
[432]	1058	ENDIF
[581]	1059
[676]	1060	IF (PRESENT(indexed_output_)) THEN
[966]	1061	indexed_output__tmp = cxios_is_defined_field_indexed_output &
	1062	(field_hdl%daddr)
[676]	1063	indexed_output_ = indexed_output__tmp
	1064	ENDIF
	1065
[432]	1066	IF (PRESENT(level_)) THEN
[966]	1067	level__tmp = cxios_is_defined_field_level &
	1068	(field_hdl%daddr)
[581]	1069	level_ = level__tmp
[432]	1070	ENDIF
[581]	1071
[432]	1072	IF (PRESENT(long_name_)) THEN
[966]	1073	long_name__tmp = cxios_is_defined_field_long_name &
	1074	(field_hdl%daddr)
[581]	1075	long_name_ = long_name__tmp
[432]	1076	ENDIF
[581]	1077
[432]	1078	IF (PRESENT(name_)) THEN
[966]	1079	name__tmp = cxios_is_defined_field_name &
	1080	(field_hdl%daddr)
[581]	1081	name_ = name__tmp
[432]	1082	ENDIF
[581]	1083
[432]	1084	IF (PRESENT(operation_)) THEN
[966]	1085	operation__tmp = cxios_is_defined_field_operation &
	1086	(field_hdl%daddr)
[581]	1087	operation_ = operation__tmp
[432]	1088	ENDIF
[581]	1089
[432]	1090	IF (PRESENT(prec_)) THEN
[966]	1091	prec__tmp = cxios_is_defined_field_prec &
	1092	(field_hdl%daddr)
[581]	1093	prec_ = prec__tmp
[432]	1094	ENDIF
[581]	1095
[593]	1096	IF (PRESENT(read_access_)) THEN
[966]	1097	read_access__tmp = cxios_is_defined_field_read_access &
	1098	(field_hdl%daddr)
[593]	1099	read_access_ = read_access__tmp
	1100	ENDIF
	1101
[891]	1102	IF (PRESENT(scalar_ref_)) THEN
[966]	1103	scalar_ref__tmp = cxios_is_defined_field_scalar_ref &
	1104	(field_hdl%daddr)
[891]	1105	scalar_ref_ = scalar_ref__tmp
	1106	ENDIF
	1107
[464]	1108	IF (PRESENT(scale_factor_)) THEN
[966]	1109	scale_factor__tmp = cxios_is_defined_field_scale_factor &
	1110	(field_hdl%daddr)
[581]	1111	scale_factor_ = scale_factor__tmp
[464]	1112	ENDIF
[581]	1113
[432]	1114	IF (PRESENT(standard_name_)) THEN
[966]	1115	standard_name__tmp = cxios_is_defined_field_standard_name &
	1116	(field_hdl%daddr)
[581]	1117	standard_name_ = standard_name__tmp
[432]	1118	ENDIF
[581]	1119
[711]	1120	IF (PRESENT(ts_enabled_)) THEN
[966]	1121	ts_enabled__tmp = cxios_is_defined_field_ts_enabled &
	1122	(field_hdl%daddr)
[711]	1123	ts_enabled_ = ts_enabled__tmp
	1124	ENDIF
	1125
	1126	IF (PRESENT(ts_split_freq_)) THEN
[966]	1127	ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq &
	1128	(field_hdl%daddr)
[711]	1129	ts_split_freq_ = ts_split_freq__tmp
	1130	ENDIF
	1131
[432]	1132	IF (PRESENT(unit_)) THEN
[966]	1133	unit__tmp = cxios_is_defined_field_unit &
	1134	(field_hdl%daddr)
[581]	1135	unit_ = unit__tmp
[432]	1136	ENDIF
[581]	1137
[463]	1138	IF (PRESENT(valid_max_)) THEN
[966]	1139	valid_max__tmp = cxios_is_defined_field_valid_max &
	1140	(field_hdl%daddr)
[581]	1141	valid_max_ = valid_max__tmp
[463]	1142	ENDIF
[581]	1143
[463]	1144	IF (PRESENT(valid_min_)) THEN
[966]	1145	valid_min__tmp = cxios_is_defined_field_valid_min &
	1146	(field_hdl%daddr)
[581]	1147	valid_min_ = valid_min__tmp
[463]	1148	ENDIF
[581]	1149
[432]	1150	END SUBROUTINE xios(is_defined_field_attr_hdl_)
[581]	1151
[326]	1152	END MODULE ifield_attr

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

Download in other formats: