Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifield_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

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: 45.4 KB

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

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

Download in other formats: