Context Navigation

source: XIOS/dev/branch_openmp/src/interface/fortran_attr/ifield_attr.F90 @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago
branch_openmp merged with trunk r1544
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: 45.4 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, cell_methods, cell_methods_mode, check_if_active, comment &
15	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
16	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
17	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
18	, valid_max, valid_min )
19
20	IMPLICIT NONE
21	TYPE(txios(field)) :: field_hdl
22	CHARACTER(LEN=*), INTENT(IN) ::field_id
23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
27	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active
28	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
30	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
31	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
32	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
33	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
35	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
36	LOGICAL (KIND=C_BOOL) :: enabled_tmp
37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
39	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
40	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
43	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
44	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
45	INTEGER , OPTIONAL, INTENT(IN) :: level
46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
49	INTEGER , OPTIONAL, INTENT(IN) :: prec
50	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
51	LOGICAL (KIND=C_BOOL) :: read_access_tmp
52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
53	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
55	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
56	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
57	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
58	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
59	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
60	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
61
62	CALL xios(get_field_handle) &
63	(field_id,field_hdl)
64	CALL xios(set_field_attr_hdl_) &
65	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
66	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
67	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
68	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
69	, valid_max, valid_min )
70
71	END SUBROUTINE xios(set_field_attr)
72
73	SUBROUTINE xios(set_field_attr_hdl) &
74	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
75	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
76	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
77	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
78	, valid_max, valid_min )
79
80	IMPLICIT NONE
81	TYPE(txios(field)) , INTENT(IN) :: field_hdl
82	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
86	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active
87	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
89	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
90	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
91	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
92	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
94	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
95	LOGICAL (KIND=C_BOOL) :: enabled_tmp
96	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
98	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
99	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
102	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
103	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
104	INTEGER , OPTIONAL, INTENT(IN) :: level
105	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
106	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
108	INTEGER , OPTIONAL, INTENT(IN) :: prec
109	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
110	LOGICAL (KIND=C_BOOL) :: read_access_tmp
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
112	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
114	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
115	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
116	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
117	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
118	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
119	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
120
121	CALL xios(set_field_attr_hdl_) &
122	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
123	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
124	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
125	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
126	, valid_max, valid_min )
127
128	END SUBROUTINE xios(set_field_attr_hdl)
129
130	SUBROUTINE xios(set_field_attr_hdl_) &
131	( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &
132	, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &
133	, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &
134	, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
135	, unit_, valid_max_, valid_min_ )
136
137	IMPLICIT NONE
138	TYPE(txios(field)) , INTENT(IN) :: field_hdl
139	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
141	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
142	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
143	LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_
144	LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
145	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
146	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
147	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
148	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
149	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
150	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
151	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
152	LOGICAL (KIND=C_BOOL) :: enabled__tmp
153	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
154	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
155	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
156	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
157	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
158	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
159	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output_
160	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
161	INTEGER , OPTIONAL, INTENT(IN) :: level_
162	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
163	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
164	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
165	INTEGER , OPTIONAL, INTENT(IN) :: prec_
166	LOGICAL , OPTIONAL, INTENT(IN) :: read_access_
167	LOGICAL (KIND=C_BOOL) :: read_access__tmp
168	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
169	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
170	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
171	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_
172	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
173	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_
174	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
175	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
176	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
177
178	IF (PRESENT(add_offset_)) THEN
179	CALL cxios_set_field_add_offset &
180	(field_hdl%daddr, add_offset_)
181	ENDIF
182
183	IF (PRESENT(axis_ref_)) THEN
184	CALL cxios_set_field_axis_ref &
185	(field_hdl%daddr, axis_ref_, len(axis_ref_))
186	ENDIF
187
188	IF (PRESENT(cell_methods_)) THEN
189	CALL cxios_set_field_cell_methods &
190	(field_hdl%daddr, cell_methods_, len(cell_methods_))
191	ENDIF
192
193	IF (PRESENT(cell_methods_mode_)) THEN
194	CALL cxios_set_field_cell_methods_mode &
195	(field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
196	ENDIF
197
198	IF (PRESENT(check_if_active_)) THEN
199	check_if_active__tmp = check_if_active_
200	CALL cxios_set_field_check_if_active &
201	(field_hdl%daddr, check_if_active__tmp)
202	ENDIF
203
204	IF (PRESENT(comment_)) THEN
205	CALL cxios_set_field_comment &
206	(field_hdl%daddr, comment_, len(comment_))
207	ENDIF
208
209	IF (PRESENT(compression_level_)) THEN
210	CALL cxios_set_field_compression_level &
211	(field_hdl%daddr, compression_level_)
212	ENDIF
213
214	IF (PRESENT(default_value_)) THEN
215	CALL cxios_set_field_default_value &
216	(field_hdl%daddr, default_value_)
217	ENDIF
218
219	IF (PRESENT(detect_missing_value_)) THEN
220	detect_missing_value__tmp = detect_missing_value_
221	CALL cxios_set_field_detect_missing_value &
222	(field_hdl%daddr, detect_missing_value__tmp)
223	ENDIF
224
225	IF (PRESENT(domain_ref_)) THEN
226	CALL cxios_set_field_domain_ref &
227	(field_hdl%daddr, domain_ref_, len(domain_ref_))
228	ENDIF
229
230	IF (PRESENT(enabled_)) THEN
231	enabled__tmp = enabled_
232	CALL cxios_set_field_enabled &
233	(field_hdl%daddr, enabled__tmp)
234	ENDIF
235
236	IF (PRESENT(expr_)) THEN
237	CALL cxios_set_field_expr &
238	(field_hdl%daddr, expr_, len(expr_))
239	ENDIF
240
241	IF (PRESENT(field_ref_)) THEN
242	CALL cxios_set_field_field_ref &
243	(field_hdl%daddr, field_ref_, len(field_ref_))
244	ENDIF
245
246	IF (PRESENT(freq_offset_)) THEN
247	CALL cxios_set_field_freq_offset &
248	(field_hdl%daddr, freq_offset_)
249	ENDIF
250
251	IF (PRESENT(freq_op_)) THEN
252	CALL cxios_set_field_freq_op &
253	(field_hdl%daddr, freq_op_)
254	ENDIF
255
256	IF (PRESENT(grid_path_)) THEN
257	CALL cxios_set_field_grid_path &
258	(field_hdl%daddr, grid_path_, len(grid_path_))
259	ENDIF
260
261	IF (PRESENT(grid_ref_)) THEN
262	CALL cxios_set_field_grid_ref &
263	(field_hdl%daddr, grid_ref_, len(grid_ref_))
264	ENDIF
265
266	IF (PRESENT(indexed_output_)) THEN
267	indexed_output__tmp = indexed_output_
268	CALL cxios_set_field_indexed_output &
269	(field_hdl%daddr, indexed_output__tmp)
270	ENDIF
271
272	IF (PRESENT(level_)) THEN
273	CALL cxios_set_field_level &
274	(field_hdl%daddr, level_)
275	ENDIF
276
277	IF (PRESENT(long_name_)) THEN
278	CALL cxios_set_field_long_name &
279	(field_hdl%daddr, long_name_, len(long_name_))
280	ENDIF
281
282	IF (PRESENT(name_)) THEN
283	CALL cxios_set_field_name &
284	(field_hdl%daddr, name_, len(name_))
285	ENDIF
286
287	IF (PRESENT(operation_)) THEN
288	CALL cxios_set_field_operation &
289	(field_hdl%daddr, operation_, len(operation_))
290	ENDIF
291
292	IF (PRESENT(prec_)) THEN
293	CALL cxios_set_field_prec &
294	(field_hdl%daddr, prec_)
295	ENDIF
296
297	IF (PRESENT(read_access_)) THEN
298	read_access__tmp = read_access_
299	CALL cxios_set_field_read_access &
300	(field_hdl%daddr, read_access__tmp)
301	ENDIF
302
303	IF (PRESENT(scalar_ref_)) THEN
304	CALL cxios_set_field_scalar_ref &
305	(field_hdl%daddr, scalar_ref_, len(scalar_ref_))
306	ENDIF
307
308	IF (PRESENT(scale_factor_)) THEN
309	CALL cxios_set_field_scale_factor &
310	(field_hdl%daddr, scale_factor_)
311	ENDIF
312
313	IF (PRESENT(standard_name_)) THEN
314	CALL cxios_set_field_standard_name &
315	(field_hdl%daddr, standard_name_, len(standard_name_))
316	ENDIF
317
318	IF (PRESENT(ts_enabled_)) THEN
319	ts_enabled__tmp = ts_enabled_
320	CALL cxios_set_field_ts_enabled &
321	(field_hdl%daddr, ts_enabled__tmp)
322	ENDIF
323
324	IF (PRESENT(ts_split_freq_)) THEN
325	CALL cxios_set_field_ts_split_freq &
326	(field_hdl%daddr, ts_split_freq_)
327	ENDIF
328
329	IF (PRESENT(unit_)) THEN
330	CALL cxios_set_field_unit &
331	(field_hdl%daddr, unit_, len(unit_))
332	ENDIF
333
334	IF (PRESENT(valid_max_)) THEN
335	CALL cxios_set_field_valid_max &
336	(field_hdl%daddr, valid_max_)
337	ENDIF
338
339	IF (PRESENT(valid_min_)) THEN
340	CALL cxios_set_field_valid_min &
341	(field_hdl%daddr, valid_min_)
342	ENDIF
343
344	END SUBROUTINE xios(set_field_attr_hdl_)
345
346	SUBROUTINE xios(get_field_attr) &
347	( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
348	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
349	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
350	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
351	, valid_max, valid_min )
352
353	IMPLICIT NONE
354	TYPE(txios(field)) :: field_hdl
355	CHARACTER(LEN=*), INTENT(IN) ::field_id
356	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
357	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
358	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
359	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
360	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active
361	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
362	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
363	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
364	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
365	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
366	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
368	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
369	LOGICAL (KIND=C_BOOL) :: enabled_tmp
370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
371	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
372	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
373	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
374	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
375	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
376	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
377	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
378	INTEGER , OPTIONAL, INTENT(OUT) :: level
379	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
380	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
381	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
382	INTEGER , OPTIONAL, INTENT(OUT) :: prec
383	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
384	LOGICAL (KIND=C_BOOL) :: read_access_tmp
385	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
386	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
387	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
388	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
389	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
390	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
391	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
392	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
393	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
394
395	CALL xios(get_field_handle) &
396	(field_id,field_hdl)
397	CALL xios(get_field_attr_hdl_) &
398	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
399	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
400	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
401	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
402	, valid_max, valid_min )
403
404	END SUBROUTINE xios(get_field_attr)
405
406	SUBROUTINE xios(get_field_attr_hdl) &
407	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
408	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
409	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
410	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
411	, valid_max, valid_min )
412
413	IMPLICIT NONE
414	TYPE(txios(field)) , INTENT(IN) :: field_hdl
415	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
416	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
417	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
418	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
419	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active
420	LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
421	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
422	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
423	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
424	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
425	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
426	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
427	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
428	LOGICAL (KIND=C_BOOL) :: enabled_tmp
429	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
431	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
432	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
433	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
434	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
435	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
436	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
437	INTEGER , OPTIONAL, INTENT(OUT) :: level
438	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
439	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
440	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
441	INTEGER , OPTIONAL, INTENT(OUT) :: prec
442	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
443	LOGICAL (KIND=C_BOOL) :: read_access_tmp
444	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
445	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
446	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
447	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
448	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
449	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
450	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
451	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
452	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
453
454	CALL xios(get_field_attr_hdl_) &
455	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
456	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
457	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
458	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
459	, valid_max, valid_min )
460
461	END SUBROUTINE xios(get_field_attr_hdl)
462
463	SUBROUTINE xios(get_field_attr_hdl_) &
464	( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &
465	, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &
466	, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &
467	, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
468	, unit_, valid_max_, valid_min_ )
469
470	IMPLICIT NONE
471	TYPE(txios(field)) , INTENT(IN) :: field_hdl
472	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
473	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
474	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
475	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
476	LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_
477	LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
478	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
479	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
480	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
481	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
482	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
483	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
484	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
485	LOGICAL (KIND=C_BOOL) :: enabled__tmp
486	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
487	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
488	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
489	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
490	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
491	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
492	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_
493	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
494	INTEGER , OPTIONAL, INTENT(OUT) :: level_
495	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
496	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
497	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
498	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
499	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
500	LOGICAL (KIND=C_BOOL) :: read_access__tmp
501	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
502	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
503	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
504	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_
505	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
506	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_
507	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
508	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
509	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
510
511	IF (PRESENT(add_offset_)) THEN
512	CALL cxios_get_field_add_offset &
513	(field_hdl%daddr, add_offset_)
514	ENDIF
515
516	IF (PRESENT(axis_ref_)) THEN
517	CALL cxios_get_field_axis_ref &
518	(field_hdl%daddr, axis_ref_, len(axis_ref_))
519	ENDIF
520
521	IF (PRESENT(cell_methods_)) THEN
522	CALL cxios_get_field_cell_methods &
523	(field_hdl%daddr, cell_methods_, len(cell_methods_))
524	ENDIF
525
526	IF (PRESENT(cell_methods_mode_)) THEN
527	CALL cxios_get_field_cell_methods_mode &
528	(field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
529	ENDIF
530
531	IF (PRESENT(check_if_active_)) THEN
532	CALL cxios_get_field_check_if_active &
533	(field_hdl%daddr, check_if_active__tmp)
534	check_if_active_ = check_if_active__tmp
535	ENDIF
536
537	IF (PRESENT(comment_)) THEN
538	CALL cxios_get_field_comment &
539	(field_hdl%daddr, comment_, len(comment_))
540	ENDIF
541
542	IF (PRESENT(compression_level_)) THEN
543	CALL cxios_get_field_compression_level &
544	(field_hdl%daddr, compression_level_)
545	ENDIF
546
547	IF (PRESENT(default_value_)) THEN
548	CALL cxios_get_field_default_value &
549	(field_hdl%daddr, default_value_)
550	ENDIF
551
552	IF (PRESENT(detect_missing_value_)) THEN
553	CALL cxios_get_field_detect_missing_value &
554	(field_hdl%daddr, detect_missing_value__tmp)
555	detect_missing_value_ = detect_missing_value__tmp
556	ENDIF
557
558	IF (PRESENT(domain_ref_)) THEN
559	CALL cxios_get_field_domain_ref &
560	(field_hdl%daddr, domain_ref_, len(domain_ref_))
561	ENDIF
562
563	IF (PRESENT(enabled_)) THEN
564	CALL cxios_get_field_enabled &
565	(field_hdl%daddr, enabled__tmp)
566	enabled_ = enabled__tmp
567	ENDIF
568
569	IF (PRESENT(expr_)) THEN
570	CALL cxios_get_field_expr &
571	(field_hdl%daddr, expr_, len(expr_))
572	ENDIF
573
574	IF (PRESENT(field_ref_)) THEN
575	CALL cxios_get_field_field_ref &
576	(field_hdl%daddr, field_ref_, len(field_ref_))
577	ENDIF
578
579	IF (PRESENT(freq_offset_)) THEN
580	CALL cxios_get_field_freq_offset &
581	(field_hdl%daddr, freq_offset_)
582	ENDIF
583
584	IF (PRESENT(freq_op_)) THEN
585	CALL cxios_get_field_freq_op &
586	(field_hdl%daddr, freq_op_)
587	ENDIF
588
589	IF (PRESENT(grid_path_)) THEN
590	CALL cxios_get_field_grid_path &
591	(field_hdl%daddr, grid_path_, len(grid_path_))
592	ENDIF
593
594	IF (PRESENT(grid_ref_)) THEN
595	CALL cxios_get_field_grid_ref &
596	(field_hdl%daddr, grid_ref_, len(grid_ref_))
597	ENDIF
598
599	IF (PRESENT(indexed_output_)) THEN
600	CALL cxios_get_field_indexed_output &
601	(field_hdl%daddr, indexed_output__tmp)
602	indexed_output_ = indexed_output__tmp
603	ENDIF
604
605	IF (PRESENT(level_)) THEN
606	CALL cxios_get_field_level &
607	(field_hdl%daddr, level_)
608	ENDIF
609
610	IF (PRESENT(long_name_)) THEN
611	CALL cxios_get_field_long_name &
612	(field_hdl%daddr, long_name_, len(long_name_))
613	ENDIF
614
615	IF (PRESENT(name_)) THEN
616	CALL cxios_get_field_name &
617	(field_hdl%daddr, name_, len(name_))
618	ENDIF
619
620	IF (PRESENT(operation_)) THEN
621	CALL cxios_get_field_operation &
622	(field_hdl%daddr, operation_, len(operation_))
623	ENDIF
624
625	IF (PRESENT(prec_)) THEN
626	CALL cxios_get_field_prec &
627	(field_hdl%daddr, prec_)
628	ENDIF
629
630	IF (PRESENT(read_access_)) THEN
631	CALL cxios_get_field_read_access &
632	(field_hdl%daddr, read_access__tmp)
633	read_access_ = read_access__tmp
634	ENDIF
635
636	IF (PRESENT(scalar_ref_)) THEN
637	CALL cxios_get_field_scalar_ref &
638	(field_hdl%daddr, scalar_ref_, len(scalar_ref_))
639	ENDIF
640
641	IF (PRESENT(scale_factor_)) THEN
642	CALL cxios_get_field_scale_factor &
643	(field_hdl%daddr, scale_factor_)
644	ENDIF
645
646	IF (PRESENT(standard_name_)) THEN
647	CALL cxios_get_field_standard_name &
648	(field_hdl%daddr, standard_name_, len(standard_name_))
649	ENDIF
650
651	IF (PRESENT(ts_enabled_)) THEN
652	CALL cxios_get_field_ts_enabled &
653	(field_hdl%daddr, ts_enabled__tmp)
654	ts_enabled_ = ts_enabled__tmp
655	ENDIF
656
657	IF (PRESENT(ts_split_freq_)) THEN
658	CALL cxios_get_field_ts_split_freq &
659	(field_hdl%daddr, ts_split_freq_)
660	ENDIF
661
662	IF (PRESENT(unit_)) THEN
663	CALL cxios_get_field_unit &
664	(field_hdl%daddr, unit_, len(unit_))
665	ENDIF
666
667	IF (PRESENT(valid_max_)) THEN
668	CALL cxios_get_field_valid_max &
669	(field_hdl%daddr, valid_max_)
670	ENDIF
671
672	IF (PRESENT(valid_min_)) THEN
673	CALL cxios_get_field_valid_min &
674	(field_hdl%daddr, valid_min_)
675	ENDIF
676
677	END SUBROUTINE xios(get_field_attr_hdl_)
678
679	SUBROUTINE xios(is_defined_field_attr) &
680	( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
681	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
682	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
683	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
684	, valid_max, valid_min )
685
686	IMPLICIT NONE
687	TYPE(txios(field)) :: field_hdl
688	CHARACTER(LEN=*), INTENT(IN) ::field_id
689	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
690	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
691	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
692	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
693	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
694	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
695	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
696	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
697	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
698	LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
699	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
700	LOGICAL(KIND=C_BOOL) :: comment_tmp
701	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
702	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
703	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
704	LOGICAL(KIND=C_BOOL) :: default_value_tmp
705	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
706	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
707	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
708	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
709	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
710	LOGICAL(KIND=C_BOOL) :: enabled_tmp
711	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
712	LOGICAL(KIND=C_BOOL) :: expr_tmp
713	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
714	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
715	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
716	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
717	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
718	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
719	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
720	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
721	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
722	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
723	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
724	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
725	LOGICAL, OPTIONAL, INTENT(OUT) :: level
726	LOGICAL(KIND=C_BOOL) :: level_tmp
727	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
728	LOGICAL(KIND=C_BOOL) :: long_name_tmp
729	LOGICAL, OPTIONAL, INTENT(OUT) :: name
730	LOGICAL(KIND=C_BOOL) :: name_tmp
731	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
732	LOGICAL(KIND=C_BOOL) :: operation_tmp
733	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
734	LOGICAL(KIND=C_BOOL) :: prec_tmp
735	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
736	LOGICAL(KIND=C_BOOL) :: read_access_tmp
737	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
738	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
739	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
740	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
741	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
742	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
743	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
744	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
745	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
746	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
747	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
748	LOGICAL(KIND=C_BOOL) :: unit_tmp
749	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
750	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
751	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
752	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
753
754	CALL xios(get_field_handle) &
755	(field_id,field_hdl)
756	CALL xios(is_defined_field_attr_hdl_) &
757	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
758	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
759	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
760	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
761	, valid_max, valid_min )
762
763	END SUBROUTINE xios(is_defined_field_attr)
764
765	SUBROUTINE xios(is_defined_field_attr_hdl) &
766	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
767	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
768	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
769	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
770	, valid_max, valid_min )
771
772	IMPLICIT NONE
773	TYPE(txios(field)) , INTENT(IN) :: field_hdl
774	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
775	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
776	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
777	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
778	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
779	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
780	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
781	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
782	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
783	LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
784	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
785	LOGICAL(KIND=C_BOOL) :: comment_tmp
786	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
787	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
788	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
789	LOGICAL(KIND=C_BOOL) :: default_value_tmp
790	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
791	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
792	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
793	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
794	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
795	LOGICAL(KIND=C_BOOL) :: enabled_tmp
796	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
797	LOGICAL(KIND=C_BOOL) :: expr_tmp
798	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
799	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
800	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
801	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
802	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
803	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
804	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
805	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
806	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
807	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
808	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
809	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
810	LOGICAL, OPTIONAL, INTENT(OUT) :: level
811	LOGICAL(KIND=C_BOOL) :: level_tmp
812	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
813	LOGICAL(KIND=C_BOOL) :: long_name_tmp
814	LOGICAL, OPTIONAL, INTENT(OUT) :: name
815	LOGICAL(KIND=C_BOOL) :: name_tmp
816	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
817	LOGICAL(KIND=C_BOOL) :: operation_tmp
818	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
819	LOGICAL(KIND=C_BOOL) :: prec_tmp
820	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
821	LOGICAL(KIND=C_BOOL) :: read_access_tmp
822	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
823	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
824	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
825	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
826	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
827	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
828	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
829	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
830	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
831	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
832	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
833	LOGICAL(KIND=C_BOOL) :: unit_tmp
834	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
835	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
836	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
837	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
838
839	CALL xios(is_defined_field_attr_hdl_) &
840	( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment &
841	, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &
842	, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation &
843	, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit &
844	, valid_max, valid_min )
845
846	END SUBROUTINE xios(is_defined_field_attr_hdl)
847
848	SUBROUTINE xios(is_defined_field_attr_hdl_) &
849	( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &
850	, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &
851	, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &
852	, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
853	, unit_, valid_max_, valid_min_ )
854
855	IMPLICIT NONE
856	TYPE(txios(field)) , INTENT(IN) :: field_hdl
857	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
858	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
859	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
860	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
861	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_
862	LOGICAL(KIND=C_BOOL) :: cell_methods__tmp
863	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_
864	LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp
865	LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_
866	LOGICAL(KIND=C_BOOL) :: check_if_active__tmp
867	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
868	LOGICAL(KIND=C_BOOL) :: comment__tmp
869	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
870	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
871	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
872	LOGICAL(KIND=C_BOOL) :: default_value__tmp
873	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
874	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
875	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
876	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
877	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
878	LOGICAL(KIND=C_BOOL) :: enabled__tmp
879	LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
880	LOGICAL(KIND=C_BOOL) :: expr__tmp
881	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
882	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
883	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
884	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
885	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
886	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
887	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
888	LOGICAL(KIND=C_BOOL) :: grid_path__tmp
889	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
890	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
891	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
892	LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
893	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
894	LOGICAL(KIND=C_BOOL) :: level__tmp
895	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
896	LOGICAL(KIND=C_BOOL) :: long_name__tmp
897	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
898	LOGICAL(KIND=C_BOOL) :: name__tmp
899	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
900	LOGICAL(KIND=C_BOOL) :: operation__tmp
901	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
902	LOGICAL(KIND=C_BOOL) :: prec__tmp
903	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
904	LOGICAL(KIND=C_BOOL) :: read_access__tmp
905	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
906	LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
907	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
908	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
909	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
910	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
911	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
912	LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
913	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
914	LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
915	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
916	LOGICAL(KIND=C_BOOL) :: unit__tmp
917	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
918	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
919	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
920	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
921
922	IF (PRESENT(add_offset_)) THEN
923	add_offset__tmp = cxios_is_defined_field_add_offset &
924	(field_hdl%daddr)
925	add_offset_ = add_offset__tmp
926	ENDIF
927
928	IF (PRESENT(axis_ref_)) THEN
929	axis_ref__tmp = cxios_is_defined_field_axis_ref &
930	(field_hdl%daddr)
931	axis_ref_ = axis_ref__tmp
932	ENDIF
933
934	IF (PRESENT(cell_methods_)) THEN
935	cell_methods__tmp = cxios_is_defined_field_cell_methods &
936	(field_hdl%daddr)
937	cell_methods_ = cell_methods__tmp
938	ENDIF
939
940	IF (PRESENT(cell_methods_mode_)) THEN
941	cell_methods_mode__tmp = cxios_is_defined_field_cell_methods_mode &
942	(field_hdl%daddr)
943	cell_methods_mode_ = cell_methods_mode__tmp
944	ENDIF
945
946	IF (PRESENT(check_if_active_)) THEN
947	check_if_active__tmp = cxios_is_defined_field_check_if_active &
948	(field_hdl%daddr)
949	check_if_active_ = check_if_active__tmp
950	ENDIF
951
952	IF (PRESENT(comment_)) THEN
953	comment__tmp = cxios_is_defined_field_comment &
954	(field_hdl%daddr)
955	comment_ = comment__tmp
956	ENDIF
957
958	IF (PRESENT(compression_level_)) THEN
959	compression_level__tmp = cxios_is_defined_field_compression_level &
960	(field_hdl%daddr)
961	compression_level_ = compression_level__tmp
962	ENDIF
963
964	IF (PRESENT(default_value_)) THEN
965	default_value__tmp = cxios_is_defined_field_default_value &
966	(field_hdl%daddr)
967	default_value_ = default_value__tmp
968	ENDIF
969
970	IF (PRESENT(detect_missing_value_)) THEN
971	detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value &
972	(field_hdl%daddr)
973	detect_missing_value_ = detect_missing_value__tmp
974	ENDIF
975
976	IF (PRESENT(domain_ref_)) THEN
977	domain_ref__tmp = cxios_is_defined_field_domain_ref &
978	(field_hdl%daddr)
979	domain_ref_ = domain_ref__tmp
980	ENDIF
981
982	IF (PRESENT(enabled_)) THEN
983	enabled__tmp = cxios_is_defined_field_enabled &
984	(field_hdl%daddr)
985	enabled_ = enabled__tmp
986	ENDIF
987
988	IF (PRESENT(expr_)) THEN
989	expr__tmp = cxios_is_defined_field_expr &
990	(field_hdl%daddr)
991	expr_ = expr__tmp
992	ENDIF
993
994	IF (PRESENT(field_ref_)) THEN
995	field_ref__tmp = cxios_is_defined_field_field_ref &
996	(field_hdl%daddr)
997	field_ref_ = field_ref__tmp
998	ENDIF
999
1000	IF (PRESENT(freq_offset_)) THEN
1001	freq_offset__tmp = cxios_is_defined_field_freq_offset &
1002	(field_hdl%daddr)
1003	freq_offset_ = freq_offset__tmp
1004	ENDIF
1005
1006	IF (PRESENT(freq_op_)) THEN
1007	freq_op__tmp = cxios_is_defined_field_freq_op &
1008	(field_hdl%daddr)
1009	freq_op_ = freq_op__tmp
1010	ENDIF
1011
1012	IF (PRESENT(grid_path_)) THEN
1013	grid_path__tmp = cxios_is_defined_field_grid_path &
1014	(field_hdl%daddr)
1015	grid_path_ = grid_path__tmp
1016	ENDIF
1017
1018	IF (PRESENT(grid_ref_)) THEN
1019	grid_ref__tmp = cxios_is_defined_field_grid_ref &
1020	(field_hdl%daddr)
1021	grid_ref_ = grid_ref__tmp
1022	ENDIF
1023
1024	IF (PRESENT(indexed_output_)) THEN
1025	indexed_output__tmp = cxios_is_defined_field_indexed_output &
1026	(field_hdl%daddr)
1027	indexed_output_ = indexed_output__tmp
1028	ENDIF
1029
1030	IF (PRESENT(level_)) THEN
1031	level__tmp = cxios_is_defined_field_level &
1032	(field_hdl%daddr)
1033	level_ = level__tmp
1034	ENDIF
1035
1036	IF (PRESENT(long_name_)) THEN
1037	long_name__tmp = cxios_is_defined_field_long_name &
1038	(field_hdl%daddr)
1039	long_name_ = long_name__tmp
1040	ENDIF
1041
1042	IF (PRESENT(name_)) THEN
1043	name__tmp = cxios_is_defined_field_name &
1044	(field_hdl%daddr)
1045	name_ = name__tmp
1046	ENDIF
1047
1048	IF (PRESENT(operation_)) THEN
1049	operation__tmp = cxios_is_defined_field_operation &
1050	(field_hdl%daddr)
1051	operation_ = operation__tmp
1052	ENDIF
1053
1054	IF (PRESENT(prec_)) THEN
1055	prec__tmp = cxios_is_defined_field_prec &
1056	(field_hdl%daddr)
1057	prec_ = prec__tmp
1058	ENDIF
1059
1060	IF (PRESENT(read_access_)) THEN
1061	read_access__tmp = cxios_is_defined_field_read_access &
1062	(field_hdl%daddr)
1063	read_access_ = read_access__tmp
1064	ENDIF
1065
1066	IF (PRESENT(scalar_ref_)) THEN
1067	scalar_ref__tmp = cxios_is_defined_field_scalar_ref &
1068	(field_hdl%daddr)
1069	scalar_ref_ = scalar_ref__tmp
1070	ENDIF
1071
1072	IF (PRESENT(scale_factor_)) THEN
1073	scale_factor__tmp = cxios_is_defined_field_scale_factor &
1074	(field_hdl%daddr)
1075	scale_factor_ = scale_factor__tmp
1076	ENDIF
1077
1078	IF (PRESENT(standard_name_)) THEN
1079	standard_name__tmp = cxios_is_defined_field_standard_name &
1080	(field_hdl%daddr)
1081	standard_name_ = standard_name__tmp
1082	ENDIF
1083
1084	IF (PRESENT(ts_enabled_)) THEN
1085	ts_enabled__tmp = cxios_is_defined_field_ts_enabled &
1086	(field_hdl%daddr)
1087	ts_enabled_ = ts_enabled__tmp
1088	ENDIF
1089
1090	IF (PRESENT(ts_split_freq_)) THEN
1091	ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq &
1092	(field_hdl%daddr)
1093	ts_split_freq_ = ts_split_freq__tmp
1094	ENDIF
1095
1096	IF (PRESENT(unit_)) THEN
1097	unit__tmp = cxios_is_defined_field_unit &
1098	(field_hdl%daddr)
1099	unit_ = unit__tmp
1100	ENDIF
1101
1102	IF (PRESENT(valid_max_)) THEN
1103	valid_max__tmp = cxios_is_defined_field_valid_max &
1104	(field_hdl%daddr)
1105	valid_max_ = valid_max__tmp
1106	ENDIF
1107
1108	IF (PRESENT(valid_min_)) THEN
1109	valid_min__tmp = cxios_is_defined_field_valid_min &
1110	(field_hdl%daddr)
1111	valid_min_ = valid_min__tmp
1112	ENDIF
1113
1114	END SUBROUTINE xios(is_defined_field_attr_hdl_)
1115
1116	END MODULE ifield_attr

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

Download in other formats: