Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 464

Last change on this file since 464 was 464, checked in by ymipsl, 11 years ago

Enhancement : Add scale_factor and add_offset attribute to field output
Operation (field-add_offset)/scale_factor would be computed before output write.
If field attribute prec=2 the field would be rounded to nearest integer value and output as short int (2 bytes).

YM

File size: 28.0 KB

Line
1	! * ************************************************************************** *
2	! * Interface auto generated - do not modify *
3	! * ************************************************************************** *
4	#include "xios_fortran_prefix.hpp"
5
6	MODULE ifieldgroup_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE ifield
9	USE fieldgroup_interface_attr
10
11	CONTAINS
12
13	SUBROUTINE xios(set_fieldgroup_attr) &
14	( fieldgroup_id, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
15	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
16	, unit, valid_max, valid_min )
17
18	IMPLICIT NONE
19	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
20	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
21	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
25	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
26	LOGICAL (KIND=C_BOOL) :: enabled_tmp
27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
30	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
32	INTEGER , OPTIONAL, INTENT(IN) :: level
33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
36	INTEGER , OPTIONAL, INTENT(IN) :: prec
37	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
40	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
42
43	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
44	CALL xios(set_fieldgroup_attr_hdl_) &
45	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
46	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
47	, unit, valid_max, valid_min )
48
49	END SUBROUTINE xios(set_fieldgroup_attr)
50
51	SUBROUTINE xios(set_fieldgroup_attr_hdl) &
52	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
53	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
54	, unit, valid_max, valid_min )
55
56	IMPLICIT NONE
57	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
58	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
59	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
60	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
61	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
62	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
63	LOGICAL (KIND=C_BOOL) :: enabled_tmp
64	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
65	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
67	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
69	INTEGER , OPTIONAL, INTENT(IN) :: level
70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
72	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
73	INTEGER , OPTIONAL, INTENT(IN) :: prec
74	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
77	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
78	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
79
80	CALL xios(set_fieldgroup_attr_hdl_) &
81	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
82	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
83	, unit, valid_max, valid_min )
84
85	END SUBROUTINE xios(set_fieldgroup_attr_hdl)
86
87	SUBROUTINE xios(set_fieldgroup_attr_hdl_) &
88	( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_ &
89	, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_ &
90	, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
91
92	IMPLICIT NONE
93	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
94	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
98	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
99	LOGICAL (KIND=C_BOOL) :: enabled__tmp
100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset_
102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op_
103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
105	INTEGER , OPTIONAL, INTENT(IN) :: level_
106	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
108	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
109	INTEGER , OPTIONAL, INTENT(IN) :: prec_
110	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
113	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
114	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
115
116	IF (PRESENT(add_offset_)) THEN
117	CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
118	ENDIF
119
120	IF (PRESENT(axis_ref_)) THEN
121	CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
122	ENDIF
123
124	IF (PRESENT(default_value_)) THEN
125	CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
126	ENDIF
127
128	IF (PRESENT(domain_ref_)) THEN
129	CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
130	ENDIF
131
132	IF (PRESENT(enabled_)) THEN
133	enabled__tmp=enabled_
134	CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
135	ENDIF
136
137	IF (PRESENT(field_ref_)) THEN
138	CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
139	ENDIF
140
141	IF (PRESENT(freq_offset_)) THEN
142	CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
143	ENDIF
144
145	IF (PRESENT(freq_op_)) THEN
146	CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
147	ENDIF
148
149	IF (PRESENT(grid_ref_)) THEN
150	CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
151	ENDIF
152
153	IF (PRESENT(group_ref_)) THEN
154	CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
155	ENDIF
156
157	IF (PRESENT(level_)) THEN
158	CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
159	ENDIF
160
161	IF (PRESENT(long_name_)) THEN
162	CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
163	ENDIF
164
165	IF (PRESENT(name_)) THEN
166	CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
167	ENDIF
168
169	IF (PRESENT(operation_)) THEN
170	CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
171	ENDIF
172
173	IF (PRESENT(prec_)) THEN
174	CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
175	ENDIF
176
177	IF (PRESENT(scale_factor_)) THEN
178	CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
179	ENDIF
180
181	IF (PRESENT(standard_name_)) THEN
182	CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
183	ENDIF
184
185	IF (PRESENT(unit_)) THEN
186	CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
187	ENDIF
188
189	IF (PRESENT(valid_max_)) THEN
190	CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
191	ENDIF
192
193	IF (PRESENT(valid_min_)) THEN
194	CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
195	ENDIF
196
197
198
199	END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
200
201	SUBROUTINE xios(get_fieldgroup_attr) &
202	( fieldgroup_id, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
203	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
204	, unit, valid_max, valid_min )
205
206	IMPLICIT NONE
207	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
208	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
209	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
210	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
211	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
212	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
213	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
214	LOGICAL (KIND=C_BOOL) :: enabled_tmp
215	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
216	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
217	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
218	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
219	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
220	INTEGER , OPTIONAL, INTENT(OUT) :: level
221	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
222	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
223	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
224	INTEGER , OPTIONAL, INTENT(OUT) :: prec
225	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
226	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
227	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
228	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
229	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
230
231	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
232	CALL xios(get_fieldgroup_attr_hdl_) &
233	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
234	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
235	, unit, valid_max, valid_min )
236
237	END SUBROUTINE xios(get_fieldgroup_attr)
238
239	SUBROUTINE xios(get_fieldgroup_attr_hdl) &
240	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
241	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
242	, unit, valid_max, valid_min )
243
244	IMPLICIT NONE
245	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
246	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
247	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
248	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
249	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
250	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
251	LOGICAL (KIND=C_BOOL) :: enabled_tmp
252	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
253	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
254	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
255	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
256	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
257	INTEGER , OPTIONAL, INTENT(OUT) :: level
258	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
259	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
260	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
261	INTEGER , OPTIONAL, INTENT(OUT) :: prec
262	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
263	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
264	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
265	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
266	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
267
268	CALL xios(get_fieldgroup_attr_hdl_) &
269	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
270	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
271	, unit, valid_max, valid_min )
272
273	END SUBROUTINE xios(get_fieldgroup_attr_hdl)
274
275	SUBROUTINE xios(get_fieldgroup_attr_hdl_) &
276	( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_ &
277	, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_ &
278	, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
279
280	IMPLICIT NONE
281	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
282	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
283	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
284	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
285	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
286	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
287	LOGICAL (KIND=C_BOOL) :: enabled__tmp
288	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
289	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset_
290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op_
291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
293	INTEGER , OPTIONAL, INTENT(OUT) :: level_
294	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
295	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
296	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
297	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
298	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
299	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
300	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
301	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
302	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
303
304	IF (PRESENT(add_offset_)) THEN
305	CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
306	ENDIF
307
308	IF (PRESENT(axis_ref_)) THEN
309	CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
310	ENDIF
311
312	IF (PRESENT(default_value_)) THEN
313	CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
314	ENDIF
315
316	IF (PRESENT(domain_ref_)) THEN
317	CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
318	ENDIF
319
320	IF (PRESENT(enabled_)) THEN
321	CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
322	enabled_=enabled__tmp
323	ENDIF
324
325	IF (PRESENT(field_ref_)) THEN
326	CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
327	ENDIF
328
329	IF (PRESENT(freq_offset_)) THEN
330	CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
331	ENDIF
332
333	IF (PRESENT(freq_op_)) THEN
334	CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
335	ENDIF
336
337	IF (PRESENT(grid_ref_)) THEN
338	CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
339	ENDIF
340
341	IF (PRESENT(group_ref_)) THEN
342	CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
343	ENDIF
344
345	IF (PRESENT(level_)) THEN
346	CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
347	ENDIF
348
349	IF (PRESENT(long_name_)) THEN
350	CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
351	ENDIF
352
353	IF (PRESENT(name_)) THEN
354	CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
355	ENDIF
356
357	IF (PRESENT(operation_)) THEN
358	CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
359	ENDIF
360
361	IF (PRESENT(prec_)) THEN
362	CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
363	ENDIF
364
365	IF (PRESENT(scale_factor_)) THEN
366	CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
367	ENDIF
368
369	IF (PRESENT(standard_name_)) THEN
370	CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
371	ENDIF
372
373	IF (PRESENT(unit_)) THEN
374	CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
375	ENDIF
376
377	IF (PRESENT(valid_max_)) THEN
378	CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
379	ENDIF
380
381	IF (PRESENT(valid_min_)) THEN
382	CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
383	ENDIF
384
385
386
387	END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
388
389	SUBROUTINE xios(is_defined_fieldgroup_attr) &
390	( fieldgroup_id, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
391	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
392	, unit, valid_max, valid_min )
393
394	IMPLICIT NONE
395	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
396	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
397	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
398	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
399	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
400	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
401	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
402	LOGICAL(KIND=C_BOOL) :: default_value_tmp
403	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
404	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
405	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
406	LOGICAL(KIND=C_BOOL) :: enabled_tmp
407	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
408	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
409	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
410	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
411	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
412	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
413	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
414	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
415	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
416	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
417	LOGICAL, OPTIONAL, INTENT(OUT) :: level
418	LOGICAL(KIND=C_BOOL) :: level_tmp
419	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
420	LOGICAL(KIND=C_BOOL) :: long_name_tmp
421	LOGICAL, OPTIONAL, INTENT(OUT) :: name
422	LOGICAL(KIND=C_BOOL) :: name_tmp
423	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
424	LOGICAL(KIND=C_BOOL) :: operation_tmp
425	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
426	LOGICAL(KIND=C_BOOL) :: prec_tmp
427	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
428	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
429	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
430	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
431	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
432	LOGICAL(KIND=C_BOOL) :: unit_tmp
433	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
434	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
435	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
436	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
437
438	CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
439	CALL xios(is_defined_fieldgroup_attr_hdl_) &
440	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
441	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
442	, unit, valid_max, valid_min )
443
444	END SUBROUTINE xios(is_defined_fieldgroup_attr)
445
446	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) &
447	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
448	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
449	, unit, valid_max, valid_min )
450
451	IMPLICIT NONE
452	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
453	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
454	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
455	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
456	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
457	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
458	LOGICAL(KIND=C_BOOL) :: default_value_tmp
459	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
460	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
461	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
462	LOGICAL(KIND=C_BOOL) :: enabled_tmp
463	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
464	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
465	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
466	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
467	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
468	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
469	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
470	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
471	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
472	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
473	LOGICAL, OPTIONAL, INTENT(OUT) :: level
474	LOGICAL(KIND=C_BOOL) :: level_tmp
475	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
476	LOGICAL(KIND=C_BOOL) :: long_name_tmp
477	LOGICAL, OPTIONAL, INTENT(OUT) :: name
478	LOGICAL(KIND=C_BOOL) :: name_tmp
479	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
480	LOGICAL(KIND=C_BOOL) :: operation_tmp
481	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
482	LOGICAL(KIND=C_BOOL) :: prec_tmp
483	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
484	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
485	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
486	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
487	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
488	LOGICAL(KIND=C_BOOL) :: unit_tmp
489	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
490	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
491	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
492	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
493
494	CALL xios(is_defined_fieldgroup_attr_hdl_) &
495	( fieldgroup_hdl, add_offset, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset &
496	, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec, scale_factor, standard_name &
497	, unit, valid_max, valid_min )
498
499	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
500
501	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) &
502	( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_ &
503	, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_ &
504	, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
505
506	IMPLICIT NONE
507	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
508	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
509	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
510	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
511	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
512	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
513	LOGICAL(KIND=C_BOOL) :: default_value__tmp
514	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
515	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
516	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
517	LOGICAL(KIND=C_BOOL) :: enabled__tmp
518	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
519	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
520	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
521	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
522	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
523	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
524	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
525	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
526	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
527	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
528	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
529	LOGICAL(KIND=C_BOOL) :: level__tmp
530	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
531	LOGICAL(KIND=C_BOOL) :: long_name__tmp
532	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
533	LOGICAL(KIND=C_BOOL) :: name__tmp
534	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
535	LOGICAL(KIND=C_BOOL) :: operation__tmp
536	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
537	LOGICAL(KIND=C_BOOL) :: prec__tmp
538	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
539	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
540	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
541	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
542	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
543	LOGICAL(KIND=C_BOOL) :: unit__tmp
544	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
545	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
546	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
547	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
548
549	IF (PRESENT(add_offset_)) THEN
550	add_offset__tmp=cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
551	add_offset_=add_offset__tmp
552	ENDIF
553
554	IF (PRESENT(axis_ref_)) THEN
555	axis_ref__tmp=cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
556	axis_ref_=axis_ref__tmp
557	ENDIF
558
559	IF (PRESENT(default_value_)) THEN
560	default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
561	default_value_=default_value__tmp
562	ENDIF
563
564	IF (PRESENT(domain_ref_)) THEN
565	domain_ref__tmp=cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
566	domain_ref_=domain_ref__tmp
567	ENDIF
568
569	IF (PRESENT(enabled_)) THEN
570	enabled__tmp=cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
571	enabled_=enabled__tmp
572	ENDIF
573
574	IF (PRESENT(field_ref_)) THEN
575	field_ref__tmp=cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
576	field_ref_=field_ref__tmp
577	ENDIF
578
579	IF (PRESENT(freq_offset_)) THEN
580	freq_offset__tmp=cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
581	freq_offset_=freq_offset__tmp
582	ENDIF
583
584	IF (PRESENT(freq_op_)) THEN
585	freq_op__tmp=cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
586	freq_op_=freq_op__tmp
587	ENDIF
588
589	IF (PRESENT(grid_ref_)) THEN
590	grid_ref__tmp=cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
591	grid_ref_=grid_ref__tmp
592	ENDIF
593
594	IF (PRESENT(group_ref_)) THEN
595	group_ref__tmp=cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
596	group_ref_=group_ref__tmp
597	ENDIF
598
599	IF (PRESENT(level_)) THEN
600	level__tmp=cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
601	level_=level__tmp
602	ENDIF
603
604	IF (PRESENT(long_name_)) THEN
605	long_name__tmp=cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
606	long_name_=long_name__tmp
607	ENDIF
608
609	IF (PRESENT(name_)) THEN
610	name__tmp=cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
611	name_=name__tmp
612	ENDIF
613
614	IF (PRESENT(operation_)) THEN
615	operation__tmp=cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
616	operation_=operation__tmp
617	ENDIF
618
619	IF (PRESENT(prec_)) THEN
620	prec__tmp=cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
621	prec_=prec__tmp
622	ENDIF
623
624	IF (PRESENT(scale_factor_)) THEN
625	scale_factor__tmp=cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
626	scale_factor_=scale_factor__tmp
627	ENDIF
628
629	IF (PRESENT(standard_name_)) THEN
630	standard_name__tmp=cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
631	standard_name_=standard_name__tmp
632	ENDIF
633
634	IF (PRESENT(unit_)) THEN
635	unit__tmp=cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
636	unit_=unit__tmp
637	ENDIF
638
639	IF (PRESENT(valid_max_)) THEN
640	valid_max__tmp=cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
641	valid_max_=valid_max__tmp
642	ENDIF
643
644	IF (PRESENT(valid_min_)) THEN
645	valid_min__tmp=cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
646	valid_min_=valid_min__tmp
647	ENDIF
648
649
650
651	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
652
653	END MODULE ifieldgroup_attr

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

Download in other formats: