Context Navigation

source: XIOS/dev/dev_olga/src/interface/fortran_attr/ifield_attr.F90 @ 1021

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

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

Download in other formats: