Context Navigation

ifield_attr.F90 @ 778

Last change on this file since 778 was 711, checked in by rlacroix, 9 years ago

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
only: only the timeseries are outputted, the regular file is not created.
both: both the timeseries and the regular files are outputted.
exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).

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

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

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

Context Navigation

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

Download in other formats: