Context Navigation

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

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

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

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

Property copyright set to
Software name : XIOS (Xml I/O Server)
http://forge.ipsl.jussieu.fr/ioserver
Creation date : January 2009
Licence : CeCCIL version2
see license file in root directory : Licence_CeCILL_V2-en.txt
or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
CNRS/IPSL (Institut Pierre Simon Laplace)
Project Manager : Yann Meurdesoif
yann.meurdesoif@cea.fr

File size: 38.7 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ifieldgroup_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ifield
	9	USE fieldgroup_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_fieldgroup_attr) &
[608]	14	( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	15	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	16	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	17	, ts_split_freq, unit, valid_max, valid_min )
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_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
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]	37	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	38	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	39	INTEGER , OPTIONAL, INTENT(IN) :: level
	40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	43	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	44	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	45	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[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
[326]	55	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
	56	CALL xios(set_fieldgroup_attr_hdl_) &
[608]	57	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	58	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	59	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	60	, ts_split_freq, unit, valid_max, valid_min )
[581]	61
[326]	62	END SUBROUTINE xios(set_fieldgroup_attr)
[581]	63
[326]	64	SUBROUTINE xios(set_fieldgroup_attr_hdl) &
[608]	65	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	66	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	67	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	68	, ts_split_freq, unit, valid_max, valid_min )
[581]	69
[326]	70	IMPLICIT NONE
	71	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	72	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]	74	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	75	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	76	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	77	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	79	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	80	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	82	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	83	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[790]	84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]	85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
	86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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
[464]	96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	98	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	99	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	100	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	102	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	103	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	104
[326]	105	CALL xios(set_fieldgroup_attr_hdl_) &
[608]	106	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	107	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	108	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	109	, ts_split_freq, unit, valid_max, valid_min )
[581]	110
[326]	111	END SUBROUTINE xios(set_fieldgroup_attr_hdl)
[581]	112
[326]	113	SUBROUTINE xios(set_fieldgroup_attr_hdl_) &
[608]	114	( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[790]	115	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ &
	116	, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_ &
	117	, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	118
[326]	119	IMPLICIT NONE
	120	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	121	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]	122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[608]	123	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[326]	124	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]	125	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
	126	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	127	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
	128	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	129	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	130	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]	131	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
	132	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
[790]	133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]	134	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
	135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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
[464]	145	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]	146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]	147	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_
	148	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	149	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]	150	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]	151	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
	152	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]	153
[464]	154	IF (PRESENT(add_offset_)) THEN
	155	CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
	156	ENDIF
[581]	157
[326]	158	IF (PRESENT(axis_ref_)) THEN
	159	CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
	160	ENDIF
[581]	161
[608]	162	IF (PRESENT(compression_level_)) THEN
	163	CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
	164	ENDIF
	165
[326]	166	IF (PRESENT(default_value_)) THEN
	167	CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
	168	ENDIF
[581]	169
[472]	170	IF (PRESENT(detect_missing_value_)) THEN
[581]	171	detect_missing_value__tmp = detect_missing_value_
[472]	172	CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
	173	ENDIF
[581]	174
[326]	175	IF (PRESENT(domain_ref_)) THEN
	176	CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
	177	ENDIF
[581]	178
[326]	179	IF (PRESENT(enabled_)) THEN
[581]	180	enabled__tmp = enabled_
[326]	181	CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
	182	ENDIF
[581]	183
[326]	184	IF (PRESENT(field_ref_)) THEN
	185	CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
	186	ENDIF
[581]	187
[326]	188	IF (PRESENT(freq_offset_)) THEN
[538]	189	CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
[326]	190	ENDIF
[581]	191
[326]	192	IF (PRESENT(freq_op_)) THEN
[538]	193	CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
[326]	194	ENDIF
[581]	195
[790]	196	IF (PRESENT(grid_path_)) THEN
	197	CALL cxios_set_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
	198	ENDIF
	199
[326]	200	IF (PRESENT(grid_ref_)) THEN
	201	CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
	202	ENDIF
[581]	203
[326]	204	IF (PRESENT(group_ref_)) THEN
	205	CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
	206	ENDIF
[581]	207
[676]	208	IF (PRESENT(indexed_output_)) THEN
	209	indexed_output__tmp = indexed_output_
	210	CALL cxios_set_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
	211	ENDIF
	212
[326]	213	IF (PRESENT(level_)) THEN
	214	CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
	215	ENDIF
[581]	216
[326]	217	IF (PRESENT(long_name_)) THEN
	218	CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
	219	ENDIF
[581]	220
[326]	221	IF (PRESENT(name_)) THEN
	222	CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
	223	ENDIF
[581]	224
[326]	225	IF (PRESENT(operation_)) THEN
	226	CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
	227	ENDIF
[581]	228
[326]	229	IF (PRESENT(prec_)) THEN
	230	CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
	231	ENDIF
[581]	232
[593]	233	IF (PRESENT(read_access_)) THEN
	234	read_access__tmp = read_access_
	235	CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
	236	ENDIF
	237
[464]	238	IF (PRESENT(scale_factor_)) THEN
	239	CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
	240	ENDIF
[581]	241
[326]	242	IF (PRESENT(standard_name_)) THEN
	243	CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
	244	ENDIF
[581]	245
[711]	246	IF (PRESENT(ts_enabled_)) THEN
	247	ts_enabled__tmp = ts_enabled_
	248	CALL cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp)
	249	ENDIF
	250
	251	IF (PRESENT(ts_split_freq_)) THEN
	252	CALL cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_)
	253	ENDIF
	254
[326]	255	IF (PRESENT(unit_)) THEN
	256	CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
	257	ENDIF
[581]	258
[463]	259	IF (PRESENT(valid_max_)) THEN
	260	CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
	261	ENDIF
[581]	262
[463]	263	IF (PRESENT(valid_min_)) THEN
	264	CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
	265	ENDIF
[581]	266
[326]	267	END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
[581]	268
[326]	269	SUBROUTINE xios(get_fieldgroup_attr) &
[608]	270	( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	271	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	272	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	273	, ts_split_freq, unit, valid_max, valid_min )
[581]	274
[326]	275	IMPLICIT NONE
	276	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	277	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]	278	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	279	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	280	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	281	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	282	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	283	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	284	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	285	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	286	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	288	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	289	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]	293	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	294	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	295	INTEGER , OPTIONAL, INTENT(OUT) :: level
	296	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	297	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	298	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	299	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	300	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	301	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	302	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	303	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	304	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	305	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	306	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	307	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	308	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	309	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	310
[326]	311	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
	312	CALL xios(get_fieldgroup_attr_hdl_) &
[608]	313	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	314	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	315	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	316	, ts_split_freq, unit, valid_max, valid_min )
[581]	317
[326]	318	END SUBROUTINE xios(get_fieldgroup_attr)
[581]	319
[326]	320	SUBROUTINE xios(get_fieldgroup_attr_hdl) &
[608]	321	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	322	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	323	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	324	, ts_split_freq, unit, valid_max, valid_min )
[581]	325
[326]	326	IMPLICIT NONE
	327	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	328	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	329	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	330	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	331	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	332	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	333	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	334	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	335	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	336	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	337	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	338	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	339	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	340	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	341	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	342	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]	343	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	344	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	345	INTEGER , OPTIONAL, INTENT(OUT) :: level
	346	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	347	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	348	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	349	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	350	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	351	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	352	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	353	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	354	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	355	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	356	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	357	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	358	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	359	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	360
[326]	361	CALL xios(get_fieldgroup_attr_hdl_) &
[608]	362	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	363	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	364	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	365	, ts_split_freq, unit, valid_max, valid_min )
[581]	366
[326]	367	END SUBROUTINE xios(get_fieldgroup_attr_hdl)
[581]	368
[326]	369	SUBROUTINE xios(get_fieldgroup_attr_hdl_) &
[608]	370	( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[790]	371	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ &
	372	, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_ &
	373	, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	374
[326]	375	IMPLICIT NONE
	376	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	377	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]	378	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[608]	379	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[326]	380	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]	381	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
	382	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	383	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
	384	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	385	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	386	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]	387	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
	388	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
[790]	389	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]	390	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
	391	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[676]	392	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_
	393	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	394	INTEGER , OPTIONAL, INTENT(OUT) :: level_
	395	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	396	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	397	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	398	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[593]	399	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
	400	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]	401	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]	402	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]	403	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_
	404	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	405	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]	406	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]	407	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
	408	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]	409
[464]	410	IF (PRESENT(add_offset_)) THEN
	411	CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
	412	ENDIF
[581]	413
[326]	414	IF (PRESENT(axis_ref_)) THEN
	415	CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
	416	ENDIF
[581]	417
[608]	418	IF (PRESENT(compression_level_)) THEN
	419	CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
	420	ENDIF
	421
[326]	422	IF (PRESENT(default_value_)) THEN
	423	CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
	424	ENDIF
[581]	425
[472]	426	IF (PRESENT(detect_missing_value_)) THEN
	427	CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
[581]	428	detect_missing_value_ = detect_missing_value__tmp
[472]	429	ENDIF
[581]	430
[326]	431	IF (PRESENT(domain_ref_)) THEN
	432	CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
	433	ENDIF
[581]	434
[326]	435	IF (PRESENT(enabled_)) THEN
	436	CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
[581]	437	enabled_ = enabled__tmp
[326]	438	ENDIF
[581]	439
[326]	440	IF (PRESENT(field_ref_)) THEN
	441	CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
	442	ENDIF
[581]	443
[326]	444	IF (PRESENT(freq_offset_)) THEN
[538]	445	CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
[326]	446	ENDIF
[581]	447
[326]	448	IF (PRESENT(freq_op_)) THEN
[538]	449	CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
[326]	450	ENDIF
[581]	451
[790]	452	IF (PRESENT(grid_path_)) THEN
	453	CALL cxios_get_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
	454	ENDIF
	455
[326]	456	IF (PRESENT(grid_ref_)) THEN
	457	CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
	458	ENDIF
[581]	459
[326]	460	IF (PRESENT(group_ref_)) THEN
	461	CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
	462	ENDIF
[581]	463
[676]	464	IF (PRESENT(indexed_output_)) THEN
	465	CALL cxios_get_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
	466	indexed_output_ = indexed_output__tmp
	467	ENDIF
	468
[326]	469	IF (PRESENT(level_)) THEN
	470	CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
	471	ENDIF
[581]	472
[326]	473	IF (PRESENT(long_name_)) THEN
	474	CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
	475	ENDIF
[581]	476
[326]	477	IF (PRESENT(name_)) THEN
	478	CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
	479	ENDIF
[581]	480
[326]	481	IF (PRESENT(operation_)) THEN
	482	CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
	483	ENDIF
[581]	484
[326]	485	IF (PRESENT(prec_)) THEN
	486	CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
	487	ENDIF
[581]	488
[593]	489	IF (PRESENT(read_access_)) THEN
	490	CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
	491	read_access_ = read_access__tmp
	492	ENDIF
	493
[464]	494	IF (PRESENT(scale_factor_)) THEN
	495	CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
	496	ENDIF
[581]	497
[326]	498	IF (PRESENT(standard_name_)) THEN
	499	CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
	500	ENDIF
[581]	501
[711]	502	IF (PRESENT(ts_enabled_)) THEN
	503	CALL cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp)
	504	ts_enabled_ = ts_enabled__tmp
	505	ENDIF
	506
	507	IF (PRESENT(ts_split_freq_)) THEN
	508	CALL cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_)
	509	ENDIF
	510
[326]	511	IF (PRESENT(unit_)) THEN
	512	CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
	513	ENDIF
[581]	514
[463]	515	IF (PRESENT(valid_max_)) THEN
	516	CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
	517	ENDIF
[581]	518
[463]	519	IF (PRESENT(valid_min_)) THEN
	520	CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
	521	ENDIF
[581]	522
[326]	523	END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
[581]	524
[432]	525	SUBROUTINE xios(is_defined_fieldgroup_attr) &
[608]	526	( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	527	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	528	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	529	, ts_split_freq, unit, valid_max, valid_min )
[581]	530
[432]	531	IMPLICIT NONE
	532	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	533	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]	534	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	535	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	536	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	537	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	538	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	539	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	540	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	541	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	542	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	543	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	544	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	545	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	546	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	547	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	548	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	549	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	550	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	551	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	552	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	553	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	554	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	555	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	556	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	557	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	558	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	559	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]	560	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	561	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	562	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	563	LOGICAL(KIND=C_BOOL) :: level_tmp
	564	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	565	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	566	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	567	LOGICAL(KIND=C_BOOL) :: name_tmp
	568	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	569	LOGICAL(KIND=C_BOOL) :: operation_tmp
	570	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	571	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	572	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	573	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	574	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	575	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	576	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	577	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	578	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	579	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	580	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	581	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	582	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	583	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	584	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	585	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	586	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	587	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	588
[432]	589	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
	590	CALL xios(is_defined_fieldgroup_attr_hdl_) &
[608]	591	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	592	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	593	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	594	, ts_split_freq, unit, valid_max, valid_min )
[581]	595
[432]	596	END SUBROUTINE xios(is_defined_fieldgroup_attr)
[581]	597
[432]	598	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) &
[608]	599	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	600	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	601	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	602	, ts_split_freq, unit, valid_max, valid_min )
[581]	603
[432]	604	IMPLICIT NONE
	605	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	606	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	607	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	608	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	609	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	610	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	611	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	612	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	613	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	614	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	615	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	616	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	617	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	618	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	619	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	620	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	621	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	622	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	623	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	624	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	625	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	626	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	627	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	628	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	629	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	630	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	631	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]	632	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	633	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	634	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	635	LOGICAL(KIND=C_BOOL) :: level_tmp
	636	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	637	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	638	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	639	LOGICAL(KIND=C_BOOL) :: name_tmp
	640	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	641	LOGICAL(KIND=C_BOOL) :: operation_tmp
	642	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	643	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	644	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	645	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	646	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	647	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	648	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	649	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	650	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	651	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	652	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	653	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	654	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	655	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	656	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	657	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	658	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	659	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	660
[432]	661	CALL xios(is_defined_fieldgroup_attr_hdl_) &
[608]	662	( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value &
[790]	663	, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output &
[711]	664	, level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled &
	665	, ts_split_freq, unit, valid_max, valid_min )
[581]	666
[432]	667	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
[581]	668
[432]	669	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) &
[608]	670	( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
[790]	671	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ &
	672	, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_ &
	673	, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]	674
[432]	675	IMPLICIT NONE
	676	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	677	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
	678	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]	679	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	680	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[608]	681	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	682	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]	683	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
	684	LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]	685	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
	686	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]	687	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	688	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
	689	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	690	LOGICAL(KIND=C_BOOL) :: enabled__tmp
	691	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
	692	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
	693	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
	694	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
	695	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
	696	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
[790]	697	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
	698	LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]	699	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
	700	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
	701	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	702	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[676]	703	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
	704	LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]	705	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
	706	LOGICAL(KIND=C_BOOL) :: level__tmp
	707	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	708	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	709	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	710	LOGICAL(KIND=C_BOOL) :: name__tmp
	711	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	712	LOGICAL(KIND=C_BOOL) :: operation__tmp
	713	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	714	LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]	715	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
	716	LOGICAL(KIND=C_BOOL) :: read_access__tmp
[464]	717	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
	718	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]	719	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	720	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]	721	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
	722	LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
	723	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
	724	LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]	725	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	726	LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]	727	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
	728	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
	729	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
	730	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]	731
[464]	732	IF (PRESENT(add_offset_)) THEN
[581]	733	add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
	734	add_offset_ = add_offset__tmp
[464]	735	ENDIF
[581]	736
[432]	737	IF (PRESENT(axis_ref_)) THEN
[581]	738	axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
	739	axis_ref_ = axis_ref__tmp
[432]	740	ENDIF
[581]	741
[608]	742	IF (PRESENT(compression_level_)) THEN
	743	compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr)
	744	compression_level_ = compression_level__tmp
	745	ENDIF
	746
[432]	747	IF (PRESENT(default_value_)) THEN
[581]	748	default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
	749	default_value_ = default_value__tmp
[432]	750	ENDIF
[581]	751
[472]	752	IF (PRESENT(detect_missing_value_)) THEN
[581]	753	detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)
	754	detect_missing_value_ = detect_missing_value__tmp
[472]	755	ENDIF
[581]	756
[432]	757	IF (PRESENT(domain_ref_)) THEN
[581]	758	domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
	759	domain_ref_ = domain_ref__tmp
[432]	760	ENDIF
[581]	761
[432]	762	IF (PRESENT(enabled_)) THEN
[581]	763	enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
	764	enabled_ = enabled__tmp
[432]	765	ENDIF
[581]	766
[432]	767	IF (PRESENT(field_ref_)) THEN
[581]	768	field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
	769	field_ref_ = field_ref__tmp
[432]	770	ENDIF
[581]	771
[432]	772	IF (PRESENT(freq_offset_)) THEN
[581]	773	freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
	774	freq_offset_ = freq_offset__tmp
[432]	775	ENDIF
[581]	776
[432]	777	IF (PRESENT(freq_op_)) THEN
[581]	778	freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
	779	freq_op_ = freq_op__tmp
[432]	780	ENDIF
[581]	781
[790]	782	IF (PRESENT(grid_path_)) THEN
	783	grid_path__tmp = cxios_is_defined_fieldgroup_grid_path(fieldgroup_hdl%daddr)
	784	grid_path_ = grid_path__tmp
	785	ENDIF
	786
[432]	787	IF (PRESENT(grid_ref_)) THEN
[581]	788	grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
	789	grid_ref_ = grid_ref__tmp
[432]	790	ENDIF
[581]	791
[432]	792	IF (PRESENT(group_ref_)) THEN
[581]	793	group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
	794	group_ref_ = group_ref__tmp
[432]	795	ENDIF
[581]	796
[676]	797	IF (PRESENT(indexed_output_)) THEN
	798	indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl%daddr)
	799	indexed_output_ = indexed_output__tmp
	800	ENDIF
	801
[432]	802	IF (PRESENT(level_)) THEN
[581]	803	level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
	804	level_ = level__tmp
[432]	805	ENDIF
[581]	806
[432]	807	IF (PRESENT(long_name_)) THEN
[581]	808	long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
	809	long_name_ = long_name__tmp
[432]	810	ENDIF
[581]	811
[432]	812	IF (PRESENT(name_)) THEN
[581]	813	name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
	814	name_ = name__tmp
[432]	815	ENDIF
[581]	816
[432]	817	IF (PRESENT(operation_)) THEN
[581]	818	operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
	819	operation_ = operation__tmp
[432]	820	ENDIF
[581]	821
[432]	822	IF (PRESENT(prec_)) THEN
[581]	823	prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
	824	prec_ = prec__tmp
[432]	825	ENDIF
[581]	826
[593]	827	IF (PRESENT(read_access_)) THEN
	828	read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr)
	829	read_access_ = read_access__tmp
	830	ENDIF
	831
[464]	832	IF (PRESENT(scale_factor_)) THEN
[581]	833	scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
	834	scale_factor_ = scale_factor__tmp
[464]	835	ENDIF
[581]	836
[432]	837	IF (PRESENT(standard_name_)) THEN
[581]	838	standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
	839	standard_name_ = standard_name__tmp
[432]	840	ENDIF
[581]	841
[711]	842	IF (PRESENT(ts_enabled_)) THEN
	843	ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl%daddr)
	844	ts_enabled_ = ts_enabled__tmp
	845	ENDIF
	846
	847	IF (PRESENT(ts_split_freq_)) THEN
	848	ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr)
	849	ts_split_freq_ = ts_split_freq__tmp
	850	ENDIF
	851
[432]	852	IF (PRESENT(unit_)) THEN
[581]	853	unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
	854	unit_ = unit__tmp
[432]	855	ENDIF
[581]	856
[463]	857	IF (PRESENT(valid_max_)) THEN
[581]	858	valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
	859	valid_max_ = valid_max__tmp
[463]	860	ENDIF
[581]	861
[463]	862	IF (PRESENT(valid_min_)) THEN
[581]	863	valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
	864	valid_min_ = valid_min__tmp
[463]	865	ENDIF
[581]	866
[432]	867	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
[581]	868
[326]	869	END MODULE ifieldgroup_attr

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

Download in other formats: