Context Navigation

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

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

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

Download in other formats: