Context Navigation

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

Last change on this file since 802 was 790, checked in by rlacroix, 9 years ago

Add a new field attribute grid_path to allow chaining spatial transformations.

Intermediate grids must be separated by comma and the source/destination grids must not be listed.

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

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

Download in other formats: