Context Navigation

ifile_attr.F90 @ 778

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

Support creating the timeseries automatically.

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

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

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

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

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

Property copyright set to
Software name : XIOS (Xml I/O Server)
http://forge.ipsl.jussieu.fr/ioserver
Creation date : January 2009
Licence : CeCCIL version2
see license file in root directory : Licence_CeCILL_V2-en.txt
or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
CNRS/IPSL (Institut Pierre Simon Laplace)
Project Manager : Yann Meurdesoif
yann.meurdesoif@cea.fr

File size: 26.3 KB

Line
1	! * ************************************************************************** *
2	! * Interface auto generated - do not modify *
3	! * ************************************************************************** *
4	#include "xios_fortran_prefix.hpp"
5
6	MODULE ifile_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE ifile
9	USE file_interface_attr
10
11	CONTAINS
12
13	SUBROUTINE xios(set_file_attr) &
14	( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix &
15	, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter &
16	, timeseries, ts_prefix, type )
17
18	IMPLICIT NONE
19	TYPE(txios(file)) :: file_hdl
20	CHARACTER(LEN=*), INTENT(IN) ::file_id
21	LOGICAL , OPTIONAL, INTENT(IN) :: append
22	LOGICAL (KIND=C_BOOL) :: append_tmp
23	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
25	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
26	LOGICAL (KIND=C_BOOL) :: enabled_tmp
27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
28	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
30	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
32	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
33	INTEGER , OPTIONAL, INTENT(IN) :: output_level
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
35	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
37	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
42
43	CALL xios(get_file_handle)(file_id,file_hdl)
44	CALL xios(set_file_attr_hdl_) &
45	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
46	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
47	, time_counter, timeseries, ts_prefix, type )
48
49	END SUBROUTINE xios(set_file_attr)
50
51	SUBROUTINE xios(set_file_attr_hdl) &
52	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
53	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
54	, time_counter, timeseries, ts_prefix, type )
55
56	IMPLICIT NONE
57	TYPE(txios(file)) , INTENT(IN) :: file_hdl
58	LOGICAL , OPTIONAL, INTENT(IN) :: append
59	LOGICAL (KIND=C_BOOL) :: append_tmp
60	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
61	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
62	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
63	LOGICAL (KIND=C_BOOL) :: enabled_tmp
64	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
65	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
67	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
69	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
70	INTEGER , OPTIONAL, INTENT(IN) :: output_level
71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
72	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
74	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
77	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
79
80	CALL xios(set_file_attr_hdl_) &
81	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
82	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
83	, time_counter, timeseries, ts_prefix, type )
84
85	END SUBROUTINE xios(set_file_attr_hdl)
86
87	SUBROUTINE xios(set_file_attr_hdl_) &
88	( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ &
89	, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &
90	, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
91
92	IMPLICIT NONE
93	TYPE(txios(file)) , INTENT(IN) :: file_hdl
94	LOGICAL , OPTIONAL, INTENT(IN) :: append_
95	LOGICAL (KIND=C_BOOL) :: append__tmp
96	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
98	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
99	LOGICAL (KIND=C_BOOL) :: enabled__tmp
100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
101	INTEGER , OPTIONAL, INTENT(IN) :: min_digits_
102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
105	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_
106	INTEGER , OPTIONAL, INTENT(IN) :: output_level_
107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
108	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_
109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
110	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
115
116	IF (PRESENT(append_)) THEN
117	append__tmp = append_
118	CALL cxios_set_file_append(file_hdl%daddr, append__tmp)
119	ENDIF
120
121	IF (PRESENT(compression_level_)) THEN
122	CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_)
123	ENDIF
124
125	IF (PRESENT(description_)) THEN
126	CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
127	ENDIF
128
129	IF (PRESENT(enabled_)) THEN
130	enabled__tmp = enabled_
131	CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
132	ENDIF
133
134	IF (PRESENT(format_)) THEN
135	CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_))
136	ENDIF
137
138	IF (PRESENT(min_digits_)) THEN
139	CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_)
140	ENDIF
141
142	IF (PRESENT(mode_)) THEN
143	CALL cxios_set_file_mode(file_hdl%daddr, mode_, len(mode_))
144	ENDIF
145
146	IF (PRESENT(name_)) THEN
147	CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
148	ENDIF
149
150	IF (PRESENT(name_suffix_)) THEN
151	CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
152	ENDIF
153
154	IF (PRESENT(output_freq_)) THEN
155	CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_)
156	ENDIF
157
158	IF (PRESENT(output_level_)) THEN
159	CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
160	ENDIF
161
162	IF (PRESENT(par_access_)) THEN
163	CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
164	ENDIF
165
166	IF (PRESENT(split_freq_)) THEN
167	CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_)
168	ENDIF
169
170	IF (PRESENT(split_freq_format_)) THEN
171	CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
172	ENDIF
173
174	IF (PRESENT(sync_freq_)) THEN
175	CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_)
176	ENDIF
177
178	IF (PRESENT(time_counter_)) THEN
179	CALL cxios_set_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
180	ENDIF
181
182	IF (PRESENT(timeseries_)) THEN
183	CALL cxios_set_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
184	ENDIF
185
186	IF (PRESENT(ts_prefix_)) THEN
187	CALL cxios_set_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
188	ENDIF
189
190	IF (PRESENT(type_)) THEN
191	CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
192	ENDIF
193
194	END SUBROUTINE xios(set_file_attr_hdl_)
195
196	SUBROUTINE xios(get_file_attr) &
197	( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix &
198	, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter &
199	, timeseries, ts_prefix, type )
200
201	IMPLICIT NONE
202	TYPE(txios(file)) :: file_hdl
203	CHARACTER(LEN=*), INTENT(IN) ::file_id
204	LOGICAL , OPTIONAL, INTENT(OUT) :: append
205	LOGICAL (KIND=C_BOOL) :: append_tmp
206	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
207	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
208	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
209	LOGICAL (KIND=C_BOOL) :: enabled_tmp
210	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
211	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
212	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
213	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
214	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
215	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
216	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
217	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
218	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
219	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
220	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
221	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
222	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
223	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
224	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
225
226	CALL xios(get_file_handle)(file_id,file_hdl)
227	CALL xios(get_file_attr_hdl_) &
228	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
229	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
230	, time_counter, timeseries, ts_prefix, type )
231
232	END SUBROUTINE xios(get_file_attr)
233
234	SUBROUTINE xios(get_file_attr_hdl) &
235	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
236	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
237	, time_counter, timeseries, ts_prefix, type )
238
239	IMPLICIT NONE
240	TYPE(txios(file)) , INTENT(IN) :: file_hdl
241	LOGICAL , OPTIONAL, INTENT(OUT) :: append
242	LOGICAL (KIND=C_BOOL) :: append_tmp
243	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
244	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
245	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
246	LOGICAL (KIND=C_BOOL) :: enabled_tmp
247	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
248	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
249	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
250	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
251	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
252	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
253	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
254	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
255	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
256	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
257	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
258	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
259	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
260	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
261	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
262
263	CALL xios(get_file_attr_hdl_) &
264	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
265	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
266	, time_counter, timeseries, ts_prefix, type )
267
268	END SUBROUTINE xios(get_file_attr_hdl)
269
270	SUBROUTINE xios(get_file_attr_hdl_) &
271	( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ &
272	, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &
273	, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
274
275	IMPLICIT NONE
276	TYPE(txios(file)) , INTENT(IN) :: file_hdl
277	LOGICAL , OPTIONAL, INTENT(OUT) :: append_
278	LOGICAL (KIND=C_BOOL) :: append__tmp
279	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
280	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
281	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
282	LOGICAL (KIND=C_BOOL) :: enabled__tmp
283	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
284	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_
285	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
286	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
288	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_
289	INTEGER , OPTIONAL, INTENT(OUT) :: output_level_
290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
291	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_
292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
293	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_
294	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
295	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
296	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
297	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
298
299	IF (PRESENT(append_)) THEN
300	CALL cxios_get_file_append(file_hdl%daddr, append__tmp)
301	append_ = append__tmp
302	ENDIF
303
304	IF (PRESENT(compression_level_)) THEN
305	CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_)
306	ENDIF
307
308	IF (PRESENT(description_)) THEN
309	CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
310	ENDIF
311
312	IF (PRESENT(enabled_)) THEN
313	CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
314	enabled_ = enabled__tmp
315	ENDIF
316
317	IF (PRESENT(format_)) THEN
318	CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_))
319	ENDIF
320
321	IF (PRESENT(min_digits_)) THEN
322	CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
323	ENDIF
324
325	IF (PRESENT(mode_)) THEN
326	CALL cxios_get_file_mode(file_hdl%daddr, mode_, len(mode_))
327	ENDIF
328
329	IF (PRESENT(name_)) THEN
330	CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
331	ENDIF
332
333	IF (PRESENT(name_suffix_)) THEN
334	CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
335	ENDIF
336
337	IF (PRESENT(output_freq_)) THEN
338	CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_)
339	ENDIF
340
341	IF (PRESENT(output_level_)) THEN
342	CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
343	ENDIF
344
345	IF (PRESENT(par_access_)) THEN
346	CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
347	ENDIF
348
349	IF (PRESENT(split_freq_)) THEN
350	CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_)
351	ENDIF
352
353	IF (PRESENT(split_freq_format_)) THEN
354	CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
355	ENDIF
356
357	IF (PRESENT(sync_freq_)) THEN
358	CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_)
359	ENDIF
360
361	IF (PRESENT(time_counter_)) THEN
362	CALL cxios_get_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
363	ENDIF
364
365	IF (PRESENT(timeseries_)) THEN
366	CALL cxios_get_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
367	ENDIF
368
369	IF (PRESENT(ts_prefix_)) THEN
370	CALL cxios_get_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
371	ENDIF
372
373	IF (PRESENT(type_)) THEN
374	CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
375	ENDIF
376
377	END SUBROUTINE xios(get_file_attr_hdl_)
378
379	SUBROUTINE xios(is_defined_file_attr) &
380	( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix &
381	, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter &
382	, timeseries, ts_prefix, type )
383
384	IMPLICIT NONE
385	TYPE(txios(file)) :: file_hdl
386	CHARACTER(LEN=*), INTENT(IN) ::file_id
387	LOGICAL, OPTIONAL, INTENT(OUT) :: append
388	LOGICAL(KIND=C_BOOL) :: append_tmp
389	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
390	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
391	LOGICAL, OPTIONAL, INTENT(OUT) :: description
392	LOGICAL(KIND=C_BOOL) :: description_tmp
393	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
394	LOGICAL(KIND=C_BOOL) :: enabled_tmp
395	LOGICAL, OPTIONAL, INTENT(OUT) :: format
396	LOGICAL(KIND=C_BOOL) :: format_tmp
397	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
398	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
399	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
400	LOGICAL(KIND=C_BOOL) :: mode_tmp
401	LOGICAL, OPTIONAL, INTENT(OUT) :: name
402	LOGICAL(KIND=C_BOOL) :: name_tmp
403	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
404	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
405	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
406	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
407	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
408	LOGICAL(KIND=C_BOOL) :: output_level_tmp
409	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
410	LOGICAL(KIND=C_BOOL) :: par_access_tmp
411	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
412	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
413	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
414	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
415	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
416	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
417	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
418	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
419	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
420	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
421	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
422	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
423	LOGICAL, OPTIONAL, INTENT(OUT) :: type
424	LOGICAL(KIND=C_BOOL) :: type_tmp
425
426	CALL xios(get_file_handle)(file_id,file_hdl)
427	CALL xios(is_defined_file_attr_hdl_) &
428	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
429	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
430	, time_counter, timeseries, ts_prefix, type )
431
432	END SUBROUTINE xios(is_defined_file_attr)
433
434	SUBROUTINE xios(is_defined_file_attr_hdl) &
435	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
436	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
437	, time_counter, timeseries, ts_prefix, type )
438
439	IMPLICIT NONE
440	TYPE(txios(file)) , INTENT(IN) :: file_hdl
441	LOGICAL, OPTIONAL, INTENT(OUT) :: append
442	LOGICAL(KIND=C_BOOL) :: append_tmp
443	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
444	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
445	LOGICAL, OPTIONAL, INTENT(OUT) :: description
446	LOGICAL(KIND=C_BOOL) :: description_tmp
447	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
448	LOGICAL(KIND=C_BOOL) :: enabled_tmp
449	LOGICAL, OPTIONAL, INTENT(OUT) :: format
450	LOGICAL(KIND=C_BOOL) :: format_tmp
451	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
452	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
453	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
454	LOGICAL(KIND=C_BOOL) :: mode_tmp
455	LOGICAL, OPTIONAL, INTENT(OUT) :: name
456	LOGICAL(KIND=C_BOOL) :: name_tmp
457	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
458	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
459	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
460	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
461	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
462	LOGICAL(KIND=C_BOOL) :: output_level_tmp
463	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
464	LOGICAL(KIND=C_BOOL) :: par_access_tmp
465	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
466	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
467	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
468	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
469	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
470	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
471	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
472	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
473	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
474	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
475	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
476	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
477	LOGICAL, OPTIONAL, INTENT(OUT) :: type
478	LOGICAL(KIND=C_BOOL) :: type_tmp
479
480	CALL xios(is_defined_file_attr_hdl_) &
481	( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name &
482	, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq &
483	, time_counter, timeseries, ts_prefix, type )
484
485	END SUBROUTINE xios(is_defined_file_attr_hdl)
486
487	SUBROUTINE xios(is_defined_file_attr_hdl_) &
488	( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ &
489	, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &
490	, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
491
492	IMPLICIT NONE
493	TYPE(txios(file)) , INTENT(IN) :: file_hdl
494	LOGICAL, OPTIONAL, INTENT(OUT) :: append_
495	LOGICAL(KIND=C_BOOL) :: append__tmp
496	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
497	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
498	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
499	LOGICAL(KIND=C_BOOL) :: description__tmp
500	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
501	LOGICAL(KIND=C_BOOL) :: enabled__tmp
502	LOGICAL, OPTIONAL, INTENT(OUT) :: format_
503	LOGICAL(KIND=C_BOOL) :: format__tmp
504	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
505	LOGICAL(KIND=C_BOOL) :: min_digits__tmp
506	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
507	LOGICAL(KIND=C_BOOL) :: mode__tmp
508	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
509	LOGICAL(KIND=C_BOOL) :: name__tmp
510	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
511	LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
512	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
513	LOGICAL(KIND=C_BOOL) :: output_freq__tmp
514	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
515	LOGICAL(KIND=C_BOOL) :: output_level__tmp
516	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
517	LOGICAL(KIND=C_BOOL) :: par_access__tmp
518	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
519	LOGICAL(KIND=C_BOOL) :: split_freq__tmp
520	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
521	LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
522	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
523	LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
524	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
525	LOGICAL(KIND=C_BOOL) :: time_counter__tmp
526	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
527	LOGICAL(KIND=C_BOOL) :: timeseries__tmp
528	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
529	LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
530	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
531	LOGICAL(KIND=C_BOOL) :: type__tmp
532
533	IF (PRESENT(append_)) THEN
534	append__tmp = cxios_is_defined_file_append(file_hdl%daddr)
535	append_ = append__tmp
536	ENDIF
537
538	IF (PRESENT(compression_level_)) THEN
539	compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr)
540	compression_level_ = compression_level__tmp
541	ENDIF
542
543	IF (PRESENT(description_)) THEN
544	description__tmp = cxios_is_defined_file_description(file_hdl%daddr)
545	description_ = description__tmp
546	ENDIF
547
548	IF (PRESENT(enabled_)) THEN
549	enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr)
550	enabled_ = enabled__tmp
551	ENDIF
552
553	IF (PRESENT(format_)) THEN
554	format__tmp = cxios_is_defined_file_format(file_hdl%daddr)
555	format_ = format__tmp
556	ENDIF
557
558	IF (PRESENT(min_digits_)) THEN
559	min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr)
560	min_digits_ = min_digits__tmp
561	ENDIF
562
563	IF (PRESENT(mode_)) THEN
564	mode__tmp = cxios_is_defined_file_mode(file_hdl%daddr)
565	mode_ = mode__tmp
566	ENDIF
567
568	IF (PRESENT(name_)) THEN
569	name__tmp = cxios_is_defined_file_name(file_hdl%daddr)
570	name_ = name__tmp
571	ENDIF
572
573	IF (PRESENT(name_suffix_)) THEN
574	name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr)
575	name_suffix_ = name_suffix__tmp
576	ENDIF
577
578	IF (PRESENT(output_freq_)) THEN
579	output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr)
580	output_freq_ = output_freq__tmp
581	ENDIF
582
583	IF (PRESENT(output_level_)) THEN
584	output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr)
585	output_level_ = output_level__tmp
586	ENDIF
587
588	IF (PRESENT(par_access_)) THEN
589	par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr)
590	par_access_ = par_access__tmp
591	ENDIF
592
593	IF (PRESENT(split_freq_)) THEN
594	split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr)
595	split_freq_ = split_freq__tmp
596	ENDIF
597
598	IF (PRESENT(split_freq_format_)) THEN
599	split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr)
600	split_freq_format_ = split_freq_format__tmp
601	ENDIF
602
603	IF (PRESENT(sync_freq_)) THEN
604	sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr)
605	sync_freq_ = sync_freq__tmp
606	ENDIF
607
608	IF (PRESENT(time_counter_)) THEN
609	time_counter__tmp = cxios_is_defined_file_time_counter(file_hdl%daddr)
610	time_counter_ = time_counter__tmp
611	ENDIF
612
613	IF (PRESENT(timeseries_)) THEN
614	timeseries__tmp = cxios_is_defined_file_timeseries(file_hdl%daddr)
615	timeseries_ = timeseries__tmp
616	ENDIF
617
618	IF (PRESENT(ts_prefix_)) THEN
619	ts_prefix__tmp = cxios_is_defined_file_ts_prefix(file_hdl%daddr)
620	ts_prefix_ = ts_prefix__tmp
621	ENDIF
622
623	IF (PRESENT(type_)) THEN
624	type__tmp = cxios_is_defined_file_type(file_hdl%daddr)
625	type_ = type__tmp
626	ENDIF
627
628	END SUBROUTINE xios(is_defined_file_attr_hdl_)
629
630	END MODULE ifile_attr

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

Context Navigation

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

Download in other formats: