Context Navigation

ifield_attr.F90 @ 717

Last change on this file since 717 was 711, checked in by rlacroix, 9 years ago

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
only: only the timeseries are outputted, the regular file is not created.
both: both the timeseries and the regular files are outputted.
exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).

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: 35.1 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) &
[608]	14	( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	15	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	16	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	17	, valid_max, valid_min )
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(field)) :: field_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]	24	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	26	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	27	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	29	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	30	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	32	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	33	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[326]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]	35	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	36	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	37	INTEGER , OPTIONAL, INTENT(IN) :: level
	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	41	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	42	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	43	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	46	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	47	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	48	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	50	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	51	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	52
[326]	53	CALL xios(get_field_handle)(field_id,field_hdl)
	54	CALL xios(set_field_attr_hdl_) &
[608]	55	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	56	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	57	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	58	, valid_max, valid_min )
[581]	59
[326]	60	END SUBROUTINE xios(set_field_attr)
[581]	61
[326]	62	SUBROUTINE xios(set_field_attr_hdl) &
[608]	63	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	64	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	65	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	66	, valid_max, valid_min )
[581]	67
[326]	68	IMPLICIT NONE
	69	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	70	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]	72	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	73	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	74	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	75	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	77	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	78	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	79	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	80	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	81	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[326]	82	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]	83	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	84	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	85	INTEGER , OPTIONAL, INTENT(IN) :: level
	86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	89	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	90	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	91	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	92	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	94	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	95	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	96	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	98	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	99	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	100
[326]	101	CALL xios(set_field_attr_hdl_) &
[608]	102	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	103	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	104	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	105	, valid_max, valid_min )
[581]	106
[326]	107	END SUBROUTINE xios(set_field_attr_hdl)
[581]	108
[326]	109	SUBROUTINE xios(set_field_attr_hdl_) &
[608]	110	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[676]	111	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, indexed_output_, level_ &
[711]	112	, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_, ts_enabled_ &
	113	, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	114
[326]	115	IMPLICIT NONE
	116	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	117	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]	118	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[608]	119	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[326]	120	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]	121	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
	122	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	123	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
	124	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	125	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]	127	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
	128	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
[326]	129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
[676]	130	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output_
	131	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	132	INTEGER , OPTIONAL, INTENT(IN) :: level_
	133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	134	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
	136	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[593]	137	LOGICAL , OPTIONAL, INTENT(IN) :: read_access_
	138	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]	139	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]	140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]	141	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_
	142	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	143	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]	144	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]	145	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
	146	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]	147
[464]	148	IF (PRESENT(add_offset_)) THEN
	149	CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_)
	150	ENDIF
[581]	151
[326]	152	IF (PRESENT(axis_ref_)) THEN
	153	CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
	154	ENDIF
[581]	155
[608]	156	IF (PRESENT(compression_level_)) THEN
	157	CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_)
	158	ENDIF
	159
[326]	160	IF (PRESENT(default_value_)) THEN
	161	CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
	162	ENDIF
[581]	163
[472]	164	IF (PRESENT(detect_missing_value_)) THEN
[581]	165	detect_missing_value__tmp = detect_missing_value_
[472]	166	CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
	167	ENDIF
[581]	168
[326]	169	IF (PRESENT(domain_ref_)) THEN
	170	CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
	171	ENDIF
[581]	172
[326]	173	IF (PRESENT(enabled_)) THEN
[581]	174	enabled__tmp = enabled_
[326]	175	CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
	176	ENDIF
[581]	177
[326]	178	IF (PRESENT(field_ref_)) THEN
	179	CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
	180	ENDIF
[581]	181
[326]	182	IF (PRESENT(freq_offset_)) THEN
[538]	183	CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]	184	ENDIF
[581]	185
[326]	186	IF (PRESENT(freq_op_)) THEN
[538]	187	CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_)
[326]	188	ENDIF
[581]	189
[326]	190	IF (PRESENT(grid_ref_)) THEN
	191	CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
	192	ENDIF
[581]	193
[676]	194	IF (PRESENT(indexed_output_)) THEN
	195	indexed_output__tmp = indexed_output_
	196	CALL cxios_set_field_indexed_output(field_hdl%daddr, indexed_output__tmp)
	197	ENDIF
	198
[326]	199	IF (PRESENT(level_)) THEN
	200	CALL cxios_set_field_level(field_hdl%daddr, level_)
	201	ENDIF
[581]	202
[326]	203	IF (PRESENT(long_name_)) THEN
	204	CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
	205	ENDIF
[581]	206
[326]	207	IF (PRESENT(name_)) THEN
	208	CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
	209	ENDIF
[581]	210
[326]	211	IF (PRESENT(operation_)) THEN
	212	CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
	213	ENDIF
[581]	214
[326]	215	IF (PRESENT(prec_)) THEN
	216	CALL cxios_set_field_prec(field_hdl%daddr, prec_)
	217	ENDIF
[581]	218
[593]	219	IF (PRESENT(read_access_)) THEN
	220	read_access__tmp = read_access_
	221	CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp)
	222	ENDIF
	223
[464]	224	IF (PRESENT(scale_factor_)) THEN
	225	CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_)
	226	ENDIF
[581]	227
[326]	228	IF (PRESENT(standard_name_)) THEN
	229	CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
	230	ENDIF
[581]	231
[711]	232	IF (PRESENT(ts_enabled_)) THEN
	233	ts_enabled__tmp = ts_enabled_
	234	CALL cxios_set_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp)
	235	ENDIF
	236
	237	IF (PRESENT(ts_split_freq_)) THEN
	238	CALL cxios_set_field_ts_split_freq(field_hdl%daddr, ts_split_freq_)
	239	ENDIF
	240
[326]	241	IF (PRESENT(unit_)) THEN
	242	CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
	243	ENDIF
[581]	244
[463]	245	IF (PRESENT(valid_max_)) THEN
	246	CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
	247	ENDIF
[581]	248
[463]	249	IF (PRESENT(valid_min_)) THEN
	250	CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
	251	ENDIF
[581]	252
[326]	253	END SUBROUTINE xios(set_field_attr_hdl_)
[581]	254
[326]	255	SUBROUTINE xios(get_field_attr) &
[608]	256	( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	257	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	258	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	259	, valid_max, valid_min )
[581]	260
[326]	261	IMPLICIT NONE
	262	TYPE(txios(field)) :: field_hdl
	263	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	264	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	265	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	266	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	267	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	268	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	269	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	270	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	271	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	272	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	273	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	274	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	275	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[326]	276	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]	277	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	278	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	279	INTEGER , OPTIONAL, INTENT(OUT) :: level
	280	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	281	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	282	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	283	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	284	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	285	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	286	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	288	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	289	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	290	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	292	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	293	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	294
[326]	295	CALL xios(get_field_handle)(field_id,field_hdl)
	296	CALL xios(get_field_attr_hdl_) &
[608]	297	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	298	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	299	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	300	, valid_max, valid_min )
[581]	301
[326]	302	END SUBROUTINE xios(get_field_attr)
[581]	303
[326]	304	SUBROUTINE xios(get_field_attr_hdl) &
[608]	305	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	306	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	307	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	308	, valid_max, valid_min )
[581]	309
[326]	310	IMPLICIT NONE
	311	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	312	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	313	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	314	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	315	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	316	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	317	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	318	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	319	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	320	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	321	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	322	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	323	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[326]	324	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]	325	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	326	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	327	INTEGER , OPTIONAL, INTENT(OUT) :: level
	328	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	329	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	330	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	331	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	332	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	333	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	334	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	335	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	336	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	337	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	338	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	339	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	340	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	341	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	342
[326]	343	CALL xios(get_field_attr_hdl_) &
[608]	344	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	345	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	346	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	347	, valid_max, valid_min )
[581]	348
[326]	349	END SUBROUTINE xios(get_field_attr_hdl)
[581]	350
[326]	351	SUBROUTINE xios(get_field_attr_hdl_) &
[608]	352	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[676]	353	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, indexed_output_, level_ &
[711]	354	, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_, ts_enabled_ &
	355	, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	356
[326]	357	IMPLICIT NONE
	358	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	359	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]	360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[608]	361	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[326]	362	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]	363	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
	364	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
	366	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	367	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	368	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]	369	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
	370	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
[326]	371	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
[676]	372	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_
	373	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	374	INTEGER , OPTIONAL, INTENT(OUT) :: level_
	375	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	378	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[593]	379	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
	380	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]	381	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]	382	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]	383	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_
	384	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	385	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]	386	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]	387	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
	388	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]	389
[464]	390	IF (PRESENT(add_offset_)) THEN
	391	CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_)
	392	ENDIF
[581]	393
[326]	394	IF (PRESENT(axis_ref_)) THEN
	395	CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
	396	ENDIF
[581]	397
[608]	398	IF (PRESENT(compression_level_)) THEN
	399	CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_)
	400	ENDIF
	401
[326]	402	IF (PRESENT(default_value_)) THEN
	403	CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
	404	ENDIF
[581]	405
[472]	406	IF (PRESENT(detect_missing_value_)) THEN
	407	CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
[581]	408	detect_missing_value_ = detect_missing_value__tmp
[472]	409	ENDIF
[581]	410
[326]	411	IF (PRESENT(domain_ref_)) THEN
	412	CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
	413	ENDIF
[581]	414
[326]	415	IF (PRESENT(enabled_)) THEN
	416	CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
[581]	417	enabled_ = enabled__tmp
[326]	418	ENDIF
[581]	419
[326]	420	IF (PRESENT(field_ref_)) THEN
	421	CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
	422	ENDIF
[581]	423
[326]	424	IF (PRESENT(freq_offset_)) THEN
[538]	425	CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]	426	ENDIF
[581]	427
[326]	428	IF (PRESENT(freq_op_)) THEN
[538]	429	CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_)
[326]	430	ENDIF
[581]	431
[326]	432	IF (PRESENT(grid_ref_)) THEN
	433	CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
	434	ENDIF
[581]	435
[676]	436	IF (PRESENT(indexed_output_)) THEN
	437	CALL cxios_get_field_indexed_output(field_hdl%daddr, indexed_output__tmp)
	438	indexed_output_ = indexed_output__tmp
	439	ENDIF
	440
[326]	441	IF (PRESENT(level_)) THEN
	442	CALL cxios_get_field_level(field_hdl%daddr, level_)
	443	ENDIF
[581]	444
[326]	445	IF (PRESENT(long_name_)) THEN
	446	CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
	447	ENDIF
[581]	448
[326]	449	IF (PRESENT(name_)) THEN
	450	CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
	451	ENDIF
[581]	452
[326]	453	IF (PRESENT(operation_)) THEN
	454	CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
	455	ENDIF
[581]	456
[326]	457	IF (PRESENT(prec_)) THEN
	458	CALL cxios_get_field_prec(field_hdl%daddr, prec_)
	459	ENDIF
[581]	460
[593]	461	IF (PRESENT(read_access_)) THEN
	462	CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp)
	463	read_access_ = read_access__tmp
	464	ENDIF
	465
[464]	466	IF (PRESENT(scale_factor_)) THEN
	467	CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_)
	468	ENDIF
[581]	469
[326]	470	IF (PRESENT(standard_name_)) THEN
	471	CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
	472	ENDIF
[581]	473
[711]	474	IF (PRESENT(ts_enabled_)) THEN
	475	CALL cxios_get_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp)
	476	ts_enabled_ = ts_enabled__tmp
	477	ENDIF
	478
	479	IF (PRESENT(ts_split_freq_)) THEN
	480	CALL cxios_get_field_ts_split_freq(field_hdl%daddr, ts_split_freq_)
	481	ENDIF
	482
[326]	483	IF (PRESENT(unit_)) THEN
	484	CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
	485	ENDIF
[581]	486
[463]	487	IF (PRESENT(valid_max_)) THEN
	488	CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
	489	ENDIF
[581]	490
[463]	491	IF (PRESENT(valid_min_)) THEN
	492	CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
	493	ENDIF
[581]	494
[326]	495	END SUBROUTINE xios(get_field_attr_hdl_)
[581]	496
[432]	497	SUBROUTINE xios(is_defined_field_attr) &
[608]	498	( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	499	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	500	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	501	, valid_max, valid_min )
[581]	502
[432]	503	IMPLICIT NONE
	504	TYPE(txios(field)) :: field_hdl
	505	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	506	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	507	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	508	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	509	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	510	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	511	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	512	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	513	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	514	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	515	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	516	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	517	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	518	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	519	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	520	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	521	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	522	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	523	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	524	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	525	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
	526	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	527	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]	528	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	529	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	530	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	531	LOGICAL(KIND=C_BOOL) :: level_tmp
	532	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	533	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	534	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	535	LOGICAL(KIND=C_BOOL) :: name_tmp
	536	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	537	LOGICAL(KIND=C_BOOL) :: operation_tmp
	538	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	539	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	540	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	541	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	542	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	543	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	544	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	545	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	546	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	547	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	548	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	549	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	550	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	551	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	552	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	553	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	554	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	555	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	556
[432]	557	CALL xios(get_field_handle)(field_id,field_hdl)
	558	CALL xios(is_defined_field_attr_hdl_) &
[608]	559	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	560	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	561	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	562	, valid_max, valid_min )
[581]	563
[432]	564	END SUBROUTINE xios(is_defined_field_attr)
[581]	565
[432]	566	SUBROUTINE xios(is_defined_field_attr_hdl) &
[608]	567	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	568	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	569	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	570	, valid_max, valid_min )
[581]	571
[432]	572	IMPLICIT NONE
	573	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	574	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	575	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	576	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	577	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	578	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	579	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	580	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	581	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	582	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	583	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	584	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	585	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	586	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	587	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	588	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	589	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	590	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	591	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	592	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	593	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
	594	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	595	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]	596	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	597	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	598	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	599	LOGICAL(KIND=C_BOOL) :: level_tmp
	600	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	601	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	602	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	603	LOGICAL(KIND=C_BOOL) :: name_tmp
	604	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	605	LOGICAL(KIND=C_BOOL) :: operation_tmp
	606	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	607	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	608	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	609	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	610	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	611	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	612	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	613	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	614	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	615	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	616	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	617	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	618	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	619	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	620	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	621	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	622	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	623	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	624
[432]	625	CALL xios(is_defined_field_attr_hdl_) &
[608]	626	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
[676]	627	, enabled, field_ref, freq_offset, freq_op, grid_ref, indexed_output, level, long_name, name &
[711]	628	, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
	629	, valid_max, valid_min )
[581]	630
[432]	631	END SUBROUTINE xios(is_defined_field_attr_hdl)
[581]	632
[432]	633	SUBROUTINE xios(is_defined_field_attr_hdl_) &
[608]	634	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[676]	635	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, indexed_output_, level_ &
[711]	636	, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_, ts_enabled_ &
	637	, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	638
[432]	639	IMPLICIT NONE
	640	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	641	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
	642	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]	643	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	644	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[608]	645	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	646	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]	647	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
	648	LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]	649	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
	650	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]	651	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	652	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
	653	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	654	LOGICAL(KIND=C_BOOL) :: enabled__tmp
	655	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
	656	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
	657	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
	658	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
	659	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
	660	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
	661	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
	662	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
[676]	663	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
	664	LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]	665	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
	666	LOGICAL(KIND=C_BOOL) :: level__tmp
	667	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	668	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	669	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	670	LOGICAL(KIND=C_BOOL) :: name__tmp
	671	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	672	LOGICAL(KIND=C_BOOL) :: operation__tmp
	673	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	674	LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]	675	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
	676	LOGICAL(KIND=C_BOOL) :: read_access__tmp
[464]	677	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
	678	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]	679	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	680	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]	681	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
	682	LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
	683	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
	684	LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]	685	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	686	LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]	687	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
	688	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
	689	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
	690	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]	691
[464]	692	IF (PRESENT(add_offset_)) THEN
[581]	693	add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr)
	694	add_offset_ = add_offset__tmp
[464]	695	ENDIF
[581]	696
[432]	697	IF (PRESENT(axis_ref_)) THEN
[581]	698	axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr)
	699	axis_ref_ = axis_ref__tmp
[432]	700	ENDIF
[581]	701
[608]	702	IF (PRESENT(compression_level_)) THEN
	703	compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr)
	704	compression_level_ = compression_level__tmp
	705	ENDIF
	706
[432]	707	IF (PRESENT(default_value_)) THEN
[581]	708	default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr)
	709	default_value_ = default_value__tmp
[432]	710	ENDIF
[581]	711
[472]	712	IF (PRESENT(detect_missing_value_)) THEN
[581]	713	detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr)
	714	detect_missing_value_ = detect_missing_value__tmp
[472]	715	ENDIF
[581]	716
[432]	717	IF (PRESENT(domain_ref_)) THEN
[581]	718	domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr)
	719	domain_ref_ = domain_ref__tmp
[432]	720	ENDIF
[581]	721
[432]	722	IF (PRESENT(enabled_)) THEN
[581]	723	enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr)
	724	enabled_ = enabled__tmp
[432]	725	ENDIF
[581]	726
[432]	727	IF (PRESENT(field_ref_)) THEN
[581]	728	field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr)
	729	field_ref_ = field_ref__tmp
[432]	730	ENDIF
[581]	731
[432]	732	IF (PRESENT(freq_offset_)) THEN
[581]	733	freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr)
	734	freq_offset_ = freq_offset__tmp
[432]	735	ENDIF
[581]	736
[432]	737	IF (PRESENT(freq_op_)) THEN
[581]	738	freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr)
	739	freq_op_ = freq_op__tmp
[432]	740	ENDIF
[581]	741
[432]	742	IF (PRESENT(grid_ref_)) THEN
[581]	743	grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr)
	744	grid_ref_ = grid_ref__tmp
[432]	745	ENDIF
[581]	746
[676]	747	IF (PRESENT(indexed_output_)) THEN
	748	indexed_output__tmp = cxios_is_defined_field_indexed_output(field_hdl%daddr)
	749	indexed_output_ = indexed_output__tmp
	750	ENDIF
	751
[432]	752	IF (PRESENT(level_)) THEN
[581]	753	level__tmp = cxios_is_defined_field_level(field_hdl%daddr)
	754	level_ = level__tmp
[432]	755	ENDIF
[581]	756
[432]	757	IF (PRESENT(long_name_)) THEN
[581]	758	long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr)
	759	long_name_ = long_name__tmp
[432]	760	ENDIF
[581]	761
[432]	762	IF (PRESENT(name_)) THEN
[581]	763	name__tmp = cxios_is_defined_field_name(field_hdl%daddr)
	764	name_ = name__tmp
[432]	765	ENDIF
[581]	766
[432]	767	IF (PRESENT(operation_)) THEN
[581]	768	operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr)
	769	operation_ = operation__tmp
[432]	770	ENDIF
[581]	771
[432]	772	IF (PRESENT(prec_)) THEN
[581]	773	prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr)
	774	prec_ = prec__tmp
[432]	775	ENDIF
[581]	776
[593]	777	IF (PRESENT(read_access_)) THEN
	778	read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr)
	779	read_access_ = read_access__tmp
	780	ENDIF
	781
[464]	782	IF (PRESENT(scale_factor_)) THEN
[581]	783	scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr)
	784	scale_factor_ = scale_factor__tmp
[464]	785	ENDIF
[581]	786
[432]	787	IF (PRESENT(standard_name_)) THEN
[581]	788	standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr)
	789	standard_name_ = standard_name__tmp
[432]	790	ENDIF
[581]	791
[711]	792	IF (PRESENT(ts_enabled_)) THEN
	793	ts_enabled__tmp = cxios_is_defined_field_ts_enabled(field_hdl%daddr)
	794	ts_enabled_ = ts_enabled__tmp
	795	ENDIF
	796
	797	IF (PRESENT(ts_split_freq_)) THEN
	798	ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq(field_hdl%daddr)
	799	ts_split_freq_ = ts_split_freq__tmp
	800	ENDIF
	801
[432]	802	IF (PRESENT(unit_)) THEN
[581]	803	unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr)
	804	unit_ = unit__tmp
[432]	805	ENDIF
[581]	806
[463]	807	IF (PRESENT(valid_max_)) THEN
[581]	808	valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr)
	809	valid_max_ = valid_max__tmp
[463]	810	ENDIF
[581]	811
[463]	812	IF (PRESENT(valid_min_)) THEN
[581]	813	valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr)
	814	valid_min_ = valid_min__tmp
[463]	815	ENDIF
[581]	816
[432]	817	END SUBROUTINE xios(is_defined_field_attr_hdl_)
[581]	818
[326]	819	END MODULE ifield_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90 @ 717

Download in other formats: