Context Navigation

source: XIOS/dev/branch_yushan/src/interface/fortran_attr/ifield_attr.F90 @ 1037

Last change on this file since 1037 was 1037, checked in by yushan, 8 years ago
initialize the branch
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: 38.3 KB

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

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

Download in other formats: