Context Navigation

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

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

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

Download in other formats: