Context Navigation

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

Last change on this file since 891 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

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

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

Download in other formats: