source: XIOS/trunk/src/interface/fortran_attr/field_interface_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: 20.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE field_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_field_add_offset(field_hdl, add_offset) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
15      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset
16    END SUBROUTINE cxios_set_field_add_offset
17
18    SUBROUTINE cxios_get_field_add_offset(field_hdl, add_offset) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
21      REAL (KIND=C_DOUBLE)             :: add_offset
22    END SUBROUTINE cxios_get_field_add_offset
23
24    FUNCTION cxios_is_defined_field_add_offset(field_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_add_offset
27      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
28    END FUNCTION cxios_is_defined_field_add_offset
29
30
31    SUBROUTINE cxios_set_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
35      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
36    END SUBROUTINE cxios_set_field_axis_ref
37
38    SUBROUTINE cxios_get_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
42      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
43    END SUBROUTINE cxios_get_field_axis_ref
44
45    FUNCTION cxios_is_defined_field_axis_ref(field_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref
48      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
49    END FUNCTION cxios_is_defined_field_axis_ref
50
51
52    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: compression_level
56    END SUBROUTINE cxios_set_field_compression_level
57
58    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
61      INTEGER (KIND=C_INT)             :: compression_level
62    END SUBROUTINE cxios_get_field_compression_level
63
64    FUNCTION cxios_is_defined_field_compression_level(field_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level
67      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
68    END FUNCTION cxios_is_defined_field_compression_level
69
70
71    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
74      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
75    END SUBROUTINE cxios_set_field_default_value
76
77    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
80      REAL (KIND=C_DOUBLE)             :: default_value
81    END SUBROUTINE cxios_get_field_default_value
82
83    FUNCTION cxios_is_defined_field_default_value(field_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
86      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
87    END FUNCTION cxios_is_defined_field_default_value
88
89
90    SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
93      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
94    END SUBROUTINE cxios_set_field_detect_missing_value
95
96    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
99      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
100    END SUBROUTINE cxios_get_field_detect_missing_value
101
102    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl) BIND(C)
103      USE ISO_C_BINDING
104      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value
105      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
106    END FUNCTION cxios_is_defined_field_detect_missing_value
107
108
109    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
110      USE ISO_C_BINDING
111      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
112      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
113      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
114    END SUBROUTINE cxios_set_field_domain_ref
115
116    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
120      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
121    END SUBROUTINE cxios_get_field_domain_ref
122
123    FUNCTION cxios_is_defined_field_domain_ref(field_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
126      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
127    END FUNCTION cxios_is_defined_field_domain_ref
128
129
130    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
133      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
134    END SUBROUTINE cxios_set_field_enabled
135
136    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
139      LOGICAL (KIND=C_BOOL)             :: enabled
140    END SUBROUTINE cxios_get_field_enabled
141
142    FUNCTION cxios_is_defined_field_enabled(field_hdl) BIND(C)
143      USE ISO_C_BINDING
144      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
145      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
146    END FUNCTION cxios_is_defined_field_enabled
147
148
149    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
153      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
154    END SUBROUTINE cxios_set_field_field_ref
155
156    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
157      USE ISO_C_BINDING
158      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
159      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
160      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
161    END SUBROUTINE cxios_get_field_field_ref
162
163    FUNCTION cxios_is_defined_field_field_ref(field_hdl) BIND(C)
164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
166      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
167    END FUNCTION cxios_is_defined_field_field_ref
168
169
170    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C)
171      USE ISO_C_BINDING
172      USE IDURATION
173      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
174      TYPE(txios(duration)), VALUE :: freq_offset
175    END SUBROUTINE cxios_set_field_freq_offset
176
177    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C)
178      USE ISO_C_BINDING
179      USE IDURATION
180      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
181      TYPE(txios(duration)) :: freq_offset
182    END SUBROUTINE cxios_get_field_freq_offset
183
184    FUNCTION cxios_is_defined_field_freq_offset(field_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
187      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
188    END FUNCTION cxios_is_defined_field_freq_offset
189
190
191    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C)
192      USE ISO_C_BINDING
193      USE IDURATION
194      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
195      TYPE(txios(duration)), VALUE :: freq_op
196    END SUBROUTINE cxios_set_field_freq_op
197
198    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C)
199      USE ISO_C_BINDING
200      USE IDURATION
201      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
202      TYPE(txios(duration)) :: freq_op
203    END SUBROUTINE cxios_get_field_freq_op
204
205    FUNCTION cxios_is_defined_field_freq_op(field_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
208      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
209    END FUNCTION cxios_is_defined_field_freq_op
210
211
212    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
216      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
217    END SUBROUTINE cxios_set_field_grid_ref
218
219    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
223      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
224    END SUBROUTINE cxios_get_field_grid_ref
225
226    FUNCTION cxios_is_defined_field_grid_ref(field_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
229      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
230    END FUNCTION cxios_is_defined_field_grid_ref
231
232
233    SUBROUTINE cxios_set_field_indexed_output(field_hdl, indexed_output) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
236      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
237    END SUBROUTINE cxios_set_field_indexed_output
238
239    SUBROUTINE cxios_get_field_indexed_output(field_hdl, indexed_output) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
242      LOGICAL (KIND=C_BOOL)             :: indexed_output
243    END SUBROUTINE cxios_get_field_indexed_output
244
245    FUNCTION cxios_is_defined_field_indexed_output(field_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_indexed_output
248      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
249    END FUNCTION cxios_is_defined_field_indexed_output
250
251
252    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
255      INTEGER (KIND=C_INT)      , VALUE :: level
256    END SUBROUTINE cxios_set_field_level
257
258    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
261      INTEGER (KIND=C_INT)             :: level
262    END SUBROUTINE cxios_get_field_level
263
264    FUNCTION cxios_is_defined_field_level(field_hdl) BIND(C)
265      USE ISO_C_BINDING
266      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
267      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
268    END FUNCTION cxios_is_defined_field_level
269
270
271    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
272      USE ISO_C_BINDING
273      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
274      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
275      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
276    END SUBROUTINE cxios_set_field_long_name
277
278    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
281      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
282      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
283    END SUBROUTINE cxios_get_field_long_name
284
285    FUNCTION cxios_is_defined_field_long_name(field_hdl) BIND(C)
286      USE ISO_C_BINDING
287      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
288      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
289    END FUNCTION cxios_is_defined_field_long_name
290
291
292    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
293      USE ISO_C_BINDING
294      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
295      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
296      INTEGER  (kind = C_INT)     , VALUE        :: name_size
297    END SUBROUTINE cxios_set_field_name
298
299    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
300      USE ISO_C_BINDING
301      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
302      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
303      INTEGER  (kind = C_INT)     , VALUE        :: name_size
304    END SUBROUTINE cxios_get_field_name
305
306    FUNCTION cxios_is_defined_field_name(field_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
309      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
310    END FUNCTION cxios_is_defined_field_name
311
312
313    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
314      USE ISO_C_BINDING
315      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
316      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
317      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
318    END SUBROUTINE cxios_set_field_operation
319
320    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
321      USE ISO_C_BINDING
322      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
323      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
324      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
325    END SUBROUTINE cxios_get_field_operation
326
327    FUNCTION cxios_is_defined_field_operation(field_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
330      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
331    END FUNCTION cxios_is_defined_field_operation
332
333
334    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
337      INTEGER (KIND=C_INT)      , VALUE :: prec
338    END SUBROUTINE cxios_set_field_prec
339
340    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
341      USE ISO_C_BINDING
342      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
343      INTEGER (KIND=C_INT)             :: prec
344    END SUBROUTINE cxios_get_field_prec
345
346    FUNCTION cxios_is_defined_field_prec(field_hdl) BIND(C)
347      USE ISO_C_BINDING
348      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
349      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
350    END FUNCTION cxios_is_defined_field_prec
351
352
353    SUBROUTINE cxios_set_field_read_access(field_hdl, read_access) BIND(C)
354      USE ISO_C_BINDING
355      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
356      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
357    END SUBROUTINE cxios_set_field_read_access
358
359    SUBROUTINE cxios_get_field_read_access(field_hdl, read_access) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
362      LOGICAL (KIND=C_BOOL)             :: read_access
363    END SUBROUTINE cxios_get_field_read_access
364
365    FUNCTION cxios_is_defined_field_read_access(field_hdl) BIND(C)
366      USE ISO_C_BINDING
367      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_read_access
368      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
369    END FUNCTION cxios_is_defined_field_read_access
370
371
372    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
373      USE ISO_C_BINDING
374      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
375      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
376    END SUBROUTINE cxios_set_field_scale_factor
377
378    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
379      USE ISO_C_BINDING
380      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
381      REAL (KIND=C_DOUBLE)             :: scale_factor
382    END SUBROUTINE cxios_get_field_scale_factor
383
384    FUNCTION cxios_is_defined_field_scale_factor(field_hdl) BIND(C)
385      USE ISO_C_BINDING
386      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
387      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
388    END FUNCTION cxios_is_defined_field_scale_factor
389
390
391    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
392      USE ISO_C_BINDING
393      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
394      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
395      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
396    END SUBROUTINE cxios_set_field_standard_name
397
398    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
399      USE ISO_C_BINDING
400      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
401      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
402      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
403    END SUBROUTINE cxios_get_field_standard_name
404
405    FUNCTION cxios_is_defined_field_standard_name(field_hdl) BIND(C)
406      USE ISO_C_BINDING
407      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
408      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
409    END FUNCTION cxios_is_defined_field_standard_name
410
411
412    SUBROUTINE cxios_set_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
413      USE ISO_C_BINDING
414      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
415      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
416    END SUBROUTINE cxios_set_field_ts_enabled
417
418    SUBROUTINE cxios_get_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
421      LOGICAL (KIND=C_BOOL)             :: ts_enabled
422    END SUBROUTINE cxios_get_field_ts_enabled
423
424    FUNCTION cxios_is_defined_field_ts_enabled(field_hdl) BIND(C)
425      USE ISO_C_BINDING
426      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_enabled
427      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
428    END FUNCTION cxios_is_defined_field_ts_enabled
429
430
431    SUBROUTINE cxios_set_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
432      USE ISO_C_BINDING
433      USE IDURATION
434      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
435      TYPE(txios(duration)), VALUE :: ts_split_freq
436    END SUBROUTINE cxios_set_field_ts_split_freq
437
438    SUBROUTINE cxios_get_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
439      USE ISO_C_BINDING
440      USE IDURATION
441      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
442      TYPE(txios(duration)) :: ts_split_freq
443    END SUBROUTINE cxios_get_field_ts_split_freq
444
445    FUNCTION cxios_is_defined_field_ts_split_freq(field_hdl) BIND(C)
446      USE ISO_C_BINDING
447      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_split_freq
448      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
449    END FUNCTION cxios_is_defined_field_ts_split_freq
450
451
452    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
453      USE ISO_C_BINDING
454      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
455      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
456      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
457    END SUBROUTINE cxios_set_field_unit
458
459    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
460      USE ISO_C_BINDING
461      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
462      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
463      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
464    END SUBROUTINE cxios_get_field_unit
465
466    FUNCTION cxios_is_defined_field_unit(field_hdl) BIND(C)
467      USE ISO_C_BINDING
468      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
469      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
470    END FUNCTION cxios_is_defined_field_unit
471
472
473    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C)
474      USE ISO_C_BINDING
475      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
476      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
477    END SUBROUTINE cxios_set_field_valid_max
478
479    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C)
480      USE ISO_C_BINDING
481      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
482      REAL (KIND=C_DOUBLE)             :: valid_max
483    END SUBROUTINE cxios_get_field_valid_max
484
485    FUNCTION cxios_is_defined_field_valid_max(field_hdl) BIND(C)
486      USE ISO_C_BINDING
487      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max
488      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
489    END FUNCTION cxios_is_defined_field_valid_max
490
491
492    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C)
493      USE ISO_C_BINDING
494      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
495      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
496    END SUBROUTINE cxios_set_field_valid_min
497
498    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C)
499      USE ISO_C_BINDING
500      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
501      REAL (KIND=C_DOUBLE)             :: valid_min
502    END SUBROUTINE cxios_get_field_valid_min
503
504    FUNCTION cxios_is_defined_field_valid_min(field_hdl) BIND(C)
505      USE ISO_C_BINDING
506      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min
507      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
508    END FUNCTION cxios_is_defined_field_valid_min
509
510  END INTERFACE
511
512END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.