Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90 @ 657

Last change on this file since 657 was 608, checked in by rlacroix, 9 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

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

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ifield_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ifield
	9	USE field_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_field_attr) &
[608]	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_ref, level, long_name, name, operation, prec &
	16	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	17
[326]	18	IMPLICIT NONE
	19	TYPE(txios(field)) :: field_hdl
	20	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	21	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]	23	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	25	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	26	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	28	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	29	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	30	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	31	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	32	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[326]	33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
	34	INTEGER , OPTIONAL, INTENT(IN) :: level
	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	38	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	39	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	40	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	45	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	46
[326]	47	CALL xios(get_field_handle)(field_id,field_hdl)
	48	CALL xios(set_field_attr_hdl_) &
[608]	49	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	50	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	51	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	52
[326]	53	END SUBROUTINE xios(set_field_attr)
[581]	54
[326]	55	SUBROUTINE xios(set_field_attr_hdl) &
[608]	56	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	57	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	58	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	59
[326]	60	IMPLICIT NONE
	61	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	62	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	63	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]	64	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	65	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	66	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	67	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	69	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	70	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	72	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	73	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[326]	74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
	75	INTEGER , OPTIONAL, INTENT(IN) :: level
	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	77	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	79	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	80	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	81	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	82	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	85	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	86	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	87
[326]	88	CALL xios(set_field_attr_hdl_) &
[608]	89	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	90	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	91	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	92
[326]	93	END SUBROUTINE xios(set_field_attr_hdl)
[581]	94
[326]	95	SUBROUTINE xios(set_field_attr_hdl_) &
[608]	96	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
	97	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_ &
	98	, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ &
	99	)
[581]	100
[326]	101	IMPLICIT NONE
	102	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	103	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]	104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[608]	105	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[326]	106	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]	107	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
	108	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
	110	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	111	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]	113	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
	114	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
[326]	115	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
	116	INTEGER , OPTIONAL, INTENT(IN) :: level_
	117	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	118	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
	120	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[593]	121	LOGICAL , OPTIONAL, INTENT(IN) :: read_access_
	122	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]	123	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]	124	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	125	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]	126	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
	127	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]	128
[464]	129	IF (PRESENT(add_offset_)) THEN
	130	CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_)
	131	ENDIF
[581]	132
[326]	133	IF (PRESENT(axis_ref_)) THEN
	134	CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
	135	ENDIF
[581]	136
[608]	137	IF (PRESENT(compression_level_)) THEN
	138	CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_)
	139	ENDIF
	140
[326]	141	IF (PRESENT(default_value_)) THEN
	142	CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
	143	ENDIF
[581]	144
[472]	145	IF (PRESENT(detect_missing_value_)) THEN
[581]	146	detect_missing_value__tmp = detect_missing_value_
[472]	147	CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
	148	ENDIF
[581]	149
[326]	150	IF (PRESENT(domain_ref_)) THEN
	151	CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
	152	ENDIF
[581]	153
[326]	154	IF (PRESENT(enabled_)) THEN
[581]	155	enabled__tmp = enabled_
[326]	156	CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
	157	ENDIF
[581]	158
[326]	159	IF (PRESENT(field_ref_)) THEN
	160	CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
	161	ENDIF
[581]	162
[326]	163	IF (PRESENT(freq_offset_)) THEN
[538]	164	CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]	165	ENDIF
[581]	166
[326]	167	IF (PRESENT(freq_op_)) THEN
[538]	168	CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_)
[326]	169	ENDIF
[581]	170
[326]	171	IF (PRESENT(grid_ref_)) THEN
	172	CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
	173	ENDIF
[581]	174
[326]	175	IF (PRESENT(level_)) THEN
	176	CALL cxios_set_field_level(field_hdl%daddr, level_)
	177	ENDIF
[581]	178
[326]	179	IF (PRESENT(long_name_)) THEN
	180	CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
	181	ENDIF
[581]	182
[326]	183	IF (PRESENT(name_)) THEN
	184	CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
	185	ENDIF
[581]	186
[326]	187	IF (PRESENT(operation_)) THEN
	188	CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
	189	ENDIF
[581]	190
[326]	191	IF (PRESENT(prec_)) THEN
	192	CALL cxios_set_field_prec(field_hdl%daddr, prec_)
	193	ENDIF
[581]	194
[593]	195	IF (PRESENT(read_access_)) THEN
	196	read_access__tmp = read_access_
	197	CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp)
	198	ENDIF
	199
[464]	200	IF (PRESENT(scale_factor_)) THEN
	201	CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_)
	202	ENDIF
[581]	203
[326]	204	IF (PRESENT(standard_name_)) THEN
	205	CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
	206	ENDIF
[581]	207
[326]	208	IF (PRESENT(unit_)) THEN
	209	CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
	210	ENDIF
[581]	211
[463]	212	IF (PRESENT(valid_max_)) THEN
	213	CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
	214	ENDIF
[581]	215
[463]	216	IF (PRESENT(valid_min_)) THEN
	217	CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
	218	ENDIF
[581]	219
[326]	220	END SUBROUTINE xios(set_field_attr_hdl_)
[581]	221
[326]	222	SUBROUTINE xios(get_field_attr) &
[608]	223	( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	224	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	225	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	226
[326]	227	IMPLICIT NONE
	228	TYPE(txios(field)) :: field_hdl
	229	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	230	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	231	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	232	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	233	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	234	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	235	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	236	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	237	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	238	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	239	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	240	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	241	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[326]	242	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	243	INTEGER , OPTIONAL, INTENT(OUT) :: level
	244	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	245	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	246	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	247	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	248	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	249	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	250	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	251	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	252	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	253	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	254	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	255
[326]	256	CALL xios(get_field_handle)(field_id,field_hdl)
	257	CALL xios(get_field_attr_hdl_) &
[608]	258	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	259	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	260	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	261
[326]	262	END SUBROUTINE xios(get_field_attr)
[581]	263
[326]	264	SUBROUTINE xios(get_field_attr_hdl) &
[608]	265	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	266	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	267	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	268
[326]	269	IMPLICIT NONE
	270	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	271	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	272	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]	273	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	274	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	275	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	276	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	277	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	278	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	279	LOGICAL (KIND=C_BOOL) :: enabled_tmp
	280	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	281	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	282	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[326]	283	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	284	INTEGER , OPTIONAL, INTENT(OUT) :: level
	285	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	286	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	288	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	289	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	290	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]	291	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	293	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	294	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	295	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	296
[326]	297	CALL xios(get_field_attr_hdl_) &
[608]	298	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	299	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	300	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	301
[326]	302	END SUBROUTINE xios(get_field_attr_hdl)
[581]	303
[326]	304	SUBROUTINE xios(get_field_attr_hdl_) &
[608]	305	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
	306	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_ &
	307	, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ &
	308	)
[581]	309
[326]	310	IMPLICIT NONE
	311	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	312	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]	313	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[608]	314	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[326]	315	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]	316	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
	317	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	318	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
	319	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	320	LOGICAL (KIND=C_BOOL) :: enabled__tmp
	321	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]	322	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
	323	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
[326]	324	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
	325	INTEGER , OPTIONAL, INTENT(OUT) :: level_
	326	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	327	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	328	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	329	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[593]	330	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
	331	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]	332	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]	333	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	334	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]	335	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
	336	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]	337
[464]	338	IF (PRESENT(add_offset_)) THEN
	339	CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_)
	340	ENDIF
[581]	341
[326]	342	IF (PRESENT(axis_ref_)) THEN
	343	CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
	344	ENDIF
[581]	345
[608]	346	IF (PRESENT(compression_level_)) THEN
	347	CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_)
	348	ENDIF
	349
[326]	350	IF (PRESENT(default_value_)) THEN
	351	CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
	352	ENDIF
[581]	353
[472]	354	IF (PRESENT(detect_missing_value_)) THEN
	355	CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
[581]	356	detect_missing_value_ = detect_missing_value__tmp
[472]	357	ENDIF
[581]	358
[326]	359	IF (PRESENT(domain_ref_)) THEN
	360	CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
	361	ENDIF
[581]	362
[326]	363	IF (PRESENT(enabled_)) THEN
	364	CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
[581]	365	enabled_ = enabled__tmp
[326]	366	ENDIF
[581]	367
[326]	368	IF (PRESENT(field_ref_)) THEN
	369	CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
	370	ENDIF
[581]	371
[326]	372	IF (PRESENT(freq_offset_)) THEN
[538]	373	CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]	374	ENDIF
[581]	375
[326]	376	IF (PRESENT(freq_op_)) THEN
[538]	377	CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_)
[326]	378	ENDIF
[581]	379
[326]	380	IF (PRESENT(grid_ref_)) THEN
	381	CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
	382	ENDIF
[581]	383
[326]	384	IF (PRESENT(level_)) THEN
	385	CALL cxios_get_field_level(field_hdl%daddr, level_)
	386	ENDIF
[581]	387
[326]	388	IF (PRESENT(long_name_)) THEN
	389	CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
	390	ENDIF
[581]	391
[326]	392	IF (PRESENT(name_)) THEN
	393	CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
	394	ENDIF
[581]	395
[326]	396	IF (PRESENT(operation_)) THEN
	397	CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
	398	ENDIF
[581]	399
[326]	400	IF (PRESENT(prec_)) THEN
	401	CALL cxios_get_field_prec(field_hdl%daddr, prec_)
	402	ENDIF
[581]	403
[593]	404	IF (PRESENT(read_access_)) THEN
	405	CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp)
	406	read_access_ = read_access__tmp
	407	ENDIF
	408
[464]	409	IF (PRESENT(scale_factor_)) THEN
	410	CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_)
	411	ENDIF
[581]	412
[326]	413	IF (PRESENT(standard_name_)) THEN
	414	CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
	415	ENDIF
[581]	416
[326]	417	IF (PRESENT(unit_)) THEN
	418	CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
	419	ENDIF
[581]	420
[463]	421	IF (PRESENT(valid_max_)) THEN
	422	CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
	423	ENDIF
[581]	424
[463]	425	IF (PRESENT(valid_min_)) THEN
	426	CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
	427	ENDIF
[581]	428
[326]	429	END SUBROUTINE xios(get_field_attr_hdl_)
[581]	430
[432]	431	SUBROUTINE xios(is_defined_field_attr) &
[608]	432	( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	433	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	434	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	435
[432]	436	IMPLICIT NONE
	437	TYPE(txios(field)) :: field_hdl
	438	CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]	439	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	440	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	441	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	442	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	443	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	444	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	445	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	446	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	447	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	448	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	449	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	450	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	451	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	452	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	453	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	454	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	455	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	456	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	457	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	458	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
	459	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	460	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	461	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	462	LOGICAL(KIND=C_BOOL) :: level_tmp
	463	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	464	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	465	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	466	LOGICAL(KIND=C_BOOL) :: name_tmp
	467	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	468	LOGICAL(KIND=C_BOOL) :: operation_tmp
	469	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	470	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	471	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	472	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	473	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	474	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	475	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	476	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	477	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	478	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	479	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	480	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	481	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	482	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	483
[432]	484	CALL xios(get_field_handle)(field_id,field_hdl)
	485	CALL xios(is_defined_field_attr_hdl_) &
[608]	486	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	487	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	488	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	489
[432]	490	END SUBROUTINE xios(is_defined_field_attr)
[581]	491
[432]	492	SUBROUTINE xios(is_defined_field_attr_hdl) &
[608]	493	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	494	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	495	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	496
[432]	497	IMPLICIT NONE
	498	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	499	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	500	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	501	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	502	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]	503	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	504	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	505	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	506	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	507	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	508	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	509	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	510	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	511	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	512	LOGICAL(KIND=C_BOOL) :: enabled_tmp
	513	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	514	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	515	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	516	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	517	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	518	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
	519	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	520	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	521	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	522	LOGICAL(KIND=C_BOOL) :: level_tmp
	523	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	524	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	525	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	526	LOGICAL(KIND=C_BOOL) :: name_tmp
	527	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	528	LOGICAL(KIND=C_BOOL) :: operation_tmp
	529	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	530	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	531	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	532	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]	533	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	534	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	535	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	536	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	537	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	538	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	539	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	540	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	541	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	542	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	543
[432]	544	CALL xios(is_defined_field_attr_hdl_) &
[608]	545	( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref &
	546	, enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec &
	547	, read_access, scale_factor, standard_name, unit, valid_max, valid_min )
[581]	548
[432]	549	END SUBROUTINE xios(is_defined_field_attr_hdl)
[581]	550
[432]	551	SUBROUTINE xios(is_defined_field_attr_hdl_) &
[608]	552	( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ &
	553	, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_ &
	554	, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ &
	555	)
[581]	556
[432]	557	IMPLICIT NONE
	558	TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]	559	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
	560	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]	561	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	562	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[608]	563	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	564	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]	565	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
	566	LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]	567	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
	568	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]	569	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	570	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
	571	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	572	LOGICAL(KIND=C_BOOL) :: enabled__tmp
	573	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
	574	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
	575	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
	576	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
	577	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
	578	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
	579	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
	580	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
	581	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
	582	LOGICAL(KIND=C_BOOL) :: level__tmp
	583	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	584	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	585	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	586	LOGICAL(KIND=C_BOOL) :: name__tmp
	587	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	588	LOGICAL(KIND=C_BOOL) :: operation__tmp
	589	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	590	LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]	591	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
	592	LOGICAL(KIND=C_BOOL) :: read_access__tmp
[464]	593	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
	594	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]	595	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	596	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
	597	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	598	LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]	599	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
	600	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
	601	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
	602	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]	603
[464]	604	IF (PRESENT(add_offset_)) THEN
[581]	605	add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr)
	606	add_offset_ = add_offset__tmp
[464]	607	ENDIF
[581]	608
[432]	609	IF (PRESENT(axis_ref_)) THEN
[581]	610	axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr)
	611	axis_ref_ = axis_ref__tmp
[432]	612	ENDIF
[581]	613
[608]	614	IF (PRESENT(compression_level_)) THEN
	615	compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr)
	616	compression_level_ = compression_level__tmp
	617	ENDIF
	618
[432]	619	IF (PRESENT(default_value_)) THEN
[581]	620	default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr)
	621	default_value_ = default_value__tmp
[432]	622	ENDIF
[581]	623
[472]	624	IF (PRESENT(detect_missing_value_)) THEN
[581]	625	detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr)
	626	detect_missing_value_ = detect_missing_value__tmp
[472]	627	ENDIF
[581]	628
[432]	629	IF (PRESENT(domain_ref_)) THEN
[581]	630	domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr)
	631	domain_ref_ = domain_ref__tmp
[432]	632	ENDIF
[581]	633
[432]	634	IF (PRESENT(enabled_)) THEN
[581]	635	enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr)
	636	enabled_ = enabled__tmp
[432]	637	ENDIF
[581]	638
[432]	639	IF (PRESENT(field_ref_)) THEN
[581]	640	field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr)
	641	field_ref_ = field_ref__tmp
[432]	642	ENDIF
[581]	643
[432]	644	IF (PRESENT(freq_offset_)) THEN
[581]	645	freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr)
	646	freq_offset_ = freq_offset__tmp
[432]	647	ENDIF
[581]	648
[432]	649	IF (PRESENT(freq_op_)) THEN
[581]	650	freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr)
	651	freq_op_ = freq_op__tmp
[432]	652	ENDIF
[581]	653
[432]	654	IF (PRESENT(grid_ref_)) THEN
[581]	655	grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr)
	656	grid_ref_ = grid_ref__tmp
[432]	657	ENDIF
[581]	658
[432]	659	IF (PRESENT(level_)) THEN
[581]	660	level__tmp = cxios_is_defined_field_level(field_hdl%daddr)
	661	level_ = level__tmp
[432]	662	ENDIF
[581]	663
[432]	664	IF (PRESENT(long_name_)) THEN
[581]	665	long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr)
	666	long_name_ = long_name__tmp
[432]	667	ENDIF
[581]	668
[432]	669	IF (PRESENT(name_)) THEN
[581]	670	name__tmp = cxios_is_defined_field_name(field_hdl%daddr)
	671	name_ = name__tmp
[432]	672	ENDIF
[581]	673
[432]	674	IF (PRESENT(operation_)) THEN
[581]	675	operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr)
	676	operation_ = operation__tmp
[432]	677	ENDIF
[581]	678
[432]	679	IF (PRESENT(prec_)) THEN
[581]	680	prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr)
	681	prec_ = prec__tmp
[432]	682	ENDIF
[581]	683
[593]	684	IF (PRESENT(read_access_)) THEN
	685	read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr)
	686	read_access_ = read_access__tmp
	687	ENDIF
	688
[464]	689	IF (PRESENT(scale_factor_)) THEN
[581]	690	scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr)
	691	scale_factor_ = scale_factor__tmp
[464]	692	ENDIF
[581]	693
[432]	694	IF (PRESENT(standard_name_)) THEN
[581]	695	standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr)
	696	standard_name_ = standard_name__tmp
[432]	697	ENDIF
[581]	698
[432]	699	IF (PRESENT(unit_)) THEN
[581]	700	unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr)
	701	unit_ = unit__tmp
[432]	702	ENDIF
[581]	703
[463]	704	IF (PRESENT(valid_max_)) THEN
[581]	705	valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr)
	706	valid_max_ = valid_max__tmp
[463]	707	ENDIF
[581]	708
[463]	709	IF (PRESENT(valid_min_)) THEN
[581]	710	valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr)
	711	valid_min_ = valid_min__tmp
[463]	712	ENDIF
[581]	713
[432]	714	END SUBROUTINE xios(is_defined_field_attr_hdl_)
[581]	715
[326]	716	END MODULE ifield_attr

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

Download in other formats: