source: XIOS/trunk/src/interface/c_attr/icfield_attr.cpp @ 608

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

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

  • 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
  • Property svn:eol-style set to native
File size: 18.3 KB
Line 
1/* ************************************************************************** *
2 *               Interface auto generated - do not modify                     *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <boost/shared_ptr.hpp>
7#include "xios.hpp"
8#include "attribute_template.hpp"
9#include "object_template.hpp"
10#include "group_template.hpp"
11#include "icutil.hpp"
12#include "icdate.hpp"
13#include "timer.hpp"
14#include "node_type.hpp"
15
16extern "C"
17{
18  typedef xios::CField* field_Ptr;
19
20  void cxios_set_field_add_offset(field_Ptr field_hdl, double add_offset)
21  {
22    CTimer::get("XIOS").resume();
23    field_hdl->add_offset.setValue(add_offset);
24    CTimer::get("XIOS").suspend();
25  }
26
27  void cxios_get_field_add_offset(field_Ptr field_hdl, double* add_offset)
28  {
29    CTimer::get("XIOS").resume();
30    *add_offset = field_hdl->add_offset.getInheritedValue();
31    CTimer::get("XIOS").suspend();
32  }
33
34  bool cxios_is_defined_field_add_offset(field_Ptr field_hdl)
35  {
36     CTimer::get("XIOS").resume();
37     bool isDefined = field_hdl->add_offset.hasInheritedValue();
38     CTimer::get("XIOS").suspend();
39     return isDefined;
40  }
41
42
43  void cxios_set_field_axis_ref(field_Ptr field_hdl, const char * axis_ref, int axis_ref_size)
44  {
45    std::string axis_ref_str;
46    if (!cstr2string(axis_ref, axis_ref_size, axis_ref_str)) return;
47    CTimer::get("XIOS").resume();
48    field_hdl->axis_ref.setValue(axis_ref_str);
49    CTimer::get("XIOS").suspend();
50  }
51
52  void cxios_get_field_axis_ref(field_Ptr field_hdl, char * axis_ref, int axis_ref_size)
53  {
54    CTimer::get("XIOS").resume();
55    if (!string_copy(field_hdl->axis_ref.getInheritedValue(), axis_ref, axis_ref_size))
56      ERROR("void cxios_get_field_axis_ref(field_Ptr field_hdl, char * axis_ref, int axis_ref_size)", << "Input string is too short");
57    CTimer::get("XIOS").suspend();
58  }
59
60  bool cxios_is_defined_field_axis_ref(field_Ptr field_hdl)
61  {
62     CTimer::get("XIOS").resume();
63     bool isDefined = field_hdl->axis_ref.hasInheritedValue();
64     CTimer::get("XIOS").suspend();
65     return isDefined;
66  }
67
68
69  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level)
70  {
71    CTimer::get("XIOS").resume();
72    field_hdl->compression_level.setValue(compression_level);
73    CTimer::get("XIOS").suspend();
74  }
75
76  void cxios_get_field_compression_level(field_Ptr field_hdl, int* compression_level)
77  {
78    CTimer::get("XIOS").resume();
79    *compression_level = field_hdl->compression_level.getInheritedValue();
80    CTimer::get("XIOS").suspend();
81  }
82
83  bool cxios_is_defined_field_compression_level(field_Ptr field_hdl)
84  {
85     CTimer::get("XIOS").resume();
86     bool isDefined = field_hdl->compression_level.hasInheritedValue();
87     CTimer::get("XIOS").suspend();
88     return isDefined;
89  }
90
91
92  void cxios_set_field_default_value(field_Ptr field_hdl, double default_value)
93  {
94    CTimer::get("XIOS").resume();
95    field_hdl->default_value.setValue(default_value);
96    CTimer::get("XIOS").suspend();
97  }
98
99  void cxios_get_field_default_value(field_Ptr field_hdl, double* default_value)
100  {
101    CTimer::get("XIOS").resume();
102    *default_value = field_hdl->default_value.getInheritedValue();
103    CTimer::get("XIOS").suspend();
104  }
105
106  bool cxios_is_defined_field_default_value(field_Ptr field_hdl)
107  {
108     CTimer::get("XIOS").resume();
109     bool isDefined = field_hdl->default_value.hasInheritedValue();
110     CTimer::get("XIOS").suspend();
111     return isDefined;
112  }
113
114
115  void cxios_set_field_detect_missing_value(field_Ptr field_hdl, bool detect_missing_value)
116  {
117    CTimer::get("XIOS").resume();
118    field_hdl->detect_missing_value.setValue(detect_missing_value);
119    CTimer::get("XIOS").suspend();
120  }
121
122  void cxios_get_field_detect_missing_value(field_Ptr field_hdl, bool* detect_missing_value)
123  {
124    CTimer::get("XIOS").resume();
125    *detect_missing_value = field_hdl->detect_missing_value.getInheritedValue();
126    CTimer::get("XIOS").suspend();
127  }
128
129  bool cxios_is_defined_field_detect_missing_value(field_Ptr field_hdl)
130  {
131     CTimer::get("XIOS").resume();
132     bool isDefined = field_hdl->detect_missing_value.hasInheritedValue();
133     CTimer::get("XIOS").suspend();
134     return isDefined;
135  }
136
137
138  void cxios_set_field_domain_ref(field_Ptr field_hdl, const char * domain_ref, int domain_ref_size)
139  {
140    std::string domain_ref_str;
141    if (!cstr2string(domain_ref, domain_ref_size, domain_ref_str)) return;
142    CTimer::get("XIOS").resume();
143    field_hdl->domain_ref.setValue(domain_ref_str);
144    CTimer::get("XIOS").suspend();
145  }
146
147  void cxios_get_field_domain_ref(field_Ptr field_hdl, char * domain_ref, int domain_ref_size)
148  {
149    CTimer::get("XIOS").resume();
150    if (!string_copy(field_hdl->domain_ref.getInheritedValue(), domain_ref, domain_ref_size))
151      ERROR("void cxios_get_field_domain_ref(field_Ptr field_hdl, char * domain_ref, int domain_ref_size)", << "Input string is too short");
152    CTimer::get("XIOS").suspend();
153  }
154
155  bool cxios_is_defined_field_domain_ref(field_Ptr field_hdl)
156  {
157     CTimer::get("XIOS").resume();
158     bool isDefined = field_hdl->domain_ref.hasInheritedValue();
159     CTimer::get("XIOS").suspend();
160     return isDefined;
161  }
162
163
164  void cxios_set_field_enabled(field_Ptr field_hdl, bool enabled)
165  {
166    CTimer::get("XIOS").resume();
167    field_hdl->enabled.setValue(enabled);
168    CTimer::get("XIOS").suspend();
169  }
170
171  void cxios_get_field_enabled(field_Ptr field_hdl, bool* enabled)
172  {
173    CTimer::get("XIOS").resume();
174    *enabled = field_hdl->enabled.getInheritedValue();
175    CTimer::get("XIOS").suspend();
176  }
177
178  bool cxios_is_defined_field_enabled(field_Ptr field_hdl)
179  {
180     CTimer::get("XIOS").resume();
181     bool isDefined = field_hdl->enabled.hasInheritedValue();
182     CTimer::get("XIOS").suspend();
183     return isDefined;
184  }
185
186
187  void cxios_set_field_field_ref(field_Ptr field_hdl, const char * field_ref, int field_ref_size)
188  {
189    std::string field_ref_str;
190    if (!cstr2string(field_ref, field_ref_size, field_ref_str)) return;
191    CTimer::get("XIOS").resume();
192    field_hdl->field_ref.setValue(field_ref_str);
193    CTimer::get("XIOS").suspend();
194  }
195
196  void cxios_get_field_field_ref(field_Ptr field_hdl, char * field_ref, int field_ref_size)
197  {
198    CTimer::get("XIOS").resume();
199    if (!string_copy(field_hdl->field_ref.getInheritedValue(), field_ref, field_ref_size))
200      ERROR("void cxios_get_field_field_ref(field_Ptr field_hdl, char * field_ref, int field_ref_size)", << "Input string is too short");
201    CTimer::get("XIOS").suspend();
202  }
203
204  bool cxios_is_defined_field_field_ref(field_Ptr field_hdl)
205  {
206     CTimer::get("XIOS").resume();
207     bool isDefined = field_hdl->field_ref.hasInheritedValue();
208     CTimer::get("XIOS").suspend();
209     return isDefined;
210  }
211
212
213  void cxios_set_field_freq_offset(field_Ptr field_hdl, cxios_duration freq_offset_c)
214  {
215    CTimer::get("XIOS").resume();
216    field_hdl->freq_offset.allocate();
217    CDuration& freq_offset = field_hdl->freq_offset.get();
218    freq_offset.year = freq_offset_c.year;
219    freq_offset.month = freq_offset_c.month;
220    freq_offset.day = freq_offset_c.day;
221    freq_offset.hour = freq_offset_c.hour;
222    freq_offset.minute = freq_offset_c.minute;
223    freq_offset.second = freq_offset_c.second;
224    freq_offset.timestep = freq_offset_c.timestep;
225    CTimer::get("XIOS").suspend();
226  }
227
228  void cxios_get_field_freq_offset(field_Ptr field_hdl, cxios_duration* freq_offset_c)
229  {
230    CTimer::get("XIOS").resume();
231    CDuration freq_offset = field_hdl->freq_offset.getInheritedValue();
232    freq_offset_c->year = freq_offset.year;
233    freq_offset_c->month = freq_offset.month;
234    freq_offset_c->day = freq_offset.day;
235    freq_offset_c->hour = freq_offset.hour;
236    freq_offset_c->minute = freq_offset.minute;
237    freq_offset_c->second = freq_offset.second;
238    freq_offset_c->timestep = freq_offset.timestep;
239    CTimer::get("XIOS").suspend();
240  }
241
242  bool cxios_is_defined_field_freq_offset(field_Ptr field_hdl)
243  {
244     CTimer::get("XIOS").resume();
245     bool isDefined = field_hdl->freq_offset.hasInheritedValue();
246     CTimer::get("XIOS").suspend();
247     return isDefined;
248  }
249
250
251  void cxios_set_field_freq_op(field_Ptr field_hdl, cxios_duration freq_op_c)
252  {
253    CTimer::get("XIOS").resume();
254    field_hdl->freq_op.allocate();
255    CDuration& freq_op = field_hdl->freq_op.get();
256    freq_op.year = freq_op_c.year;
257    freq_op.month = freq_op_c.month;
258    freq_op.day = freq_op_c.day;
259    freq_op.hour = freq_op_c.hour;
260    freq_op.minute = freq_op_c.minute;
261    freq_op.second = freq_op_c.second;
262    freq_op.timestep = freq_op_c.timestep;
263    CTimer::get("XIOS").suspend();
264  }
265
266  void cxios_get_field_freq_op(field_Ptr field_hdl, cxios_duration* freq_op_c)
267  {
268    CTimer::get("XIOS").resume();
269    CDuration freq_op = field_hdl->freq_op.getInheritedValue();
270    freq_op_c->year = freq_op.year;
271    freq_op_c->month = freq_op.month;
272    freq_op_c->day = freq_op.day;
273    freq_op_c->hour = freq_op.hour;
274    freq_op_c->minute = freq_op.minute;
275    freq_op_c->second = freq_op.second;
276    freq_op_c->timestep = freq_op.timestep;
277    CTimer::get("XIOS").suspend();
278  }
279
280  bool cxios_is_defined_field_freq_op(field_Ptr field_hdl)
281  {
282     CTimer::get("XIOS").resume();
283     bool isDefined = field_hdl->freq_op.hasInheritedValue();
284     CTimer::get("XIOS").suspend();
285     return isDefined;
286  }
287
288
289  void cxios_set_field_grid_ref(field_Ptr field_hdl, const char * grid_ref, int grid_ref_size)
290  {
291    std::string grid_ref_str;
292    if (!cstr2string(grid_ref, grid_ref_size, grid_ref_str)) return;
293    CTimer::get("XIOS").resume();
294    field_hdl->grid_ref.setValue(grid_ref_str);
295    CTimer::get("XIOS").suspend();
296  }
297
298  void cxios_get_field_grid_ref(field_Ptr field_hdl, char * grid_ref, int grid_ref_size)
299  {
300    CTimer::get("XIOS").resume();
301    if (!string_copy(field_hdl->grid_ref.getInheritedValue(), grid_ref, grid_ref_size))
302      ERROR("void cxios_get_field_grid_ref(field_Ptr field_hdl, char * grid_ref, int grid_ref_size)", << "Input string is too short");
303    CTimer::get("XIOS").suspend();
304  }
305
306  bool cxios_is_defined_field_grid_ref(field_Ptr field_hdl)
307  {
308     CTimer::get("XIOS").resume();
309     bool isDefined = field_hdl->grid_ref.hasInheritedValue();
310     CTimer::get("XIOS").suspend();
311     return isDefined;
312  }
313
314
315  void cxios_set_field_level(field_Ptr field_hdl, int level)
316  {
317    CTimer::get("XIOS").resume();
318    field_hdl->level.setValue(level);
319    CTimer::get("XIOS").suspend();
320  }
321
322  void cxios_get_field_level(field_Ptr field_hdl, int* level)
323  {
324    CTimer::get("XIOS").resume();
325    *level = field_hdl->level.getInheritedValue();
326    CTimer::get("XIOS").suspend();
327  }
328
329  bool cxios_is_defined_field_level(field_Ptr field_hdl)
330  {
331     CTimer::get("XIOS").resume();
332     bool isDefined = field_hdl->level.hasInheritedValue();
333     CTimer::get("XIOS").suspend();
334     return isDefined;
335  }
336
337
338  void cxios_set_field_long_name(field_Ptr field_hdl, const char * long_name, int long_name_size)
339  {
340    std::string long_name_str;
341    if (!cstr2string(long_name, long_name_size, long_name_str)) return;
342    CTimer::get("XIOS").resume();
343    field_hdl->long_name.setValue(long_name_str);
344    CTimer::get("XIOS").suspend();
345  }
346
347  void cxios_get_field_long_name(field_Ptr field_hdl, char * long_name, int long_name_size)
348  {
349    CTimer::get("XIOS").resume();
350    if (!string_copy(field_hdl->long_name.getInheritedValue(), long_name, long_name_size))
351      ERROR("void cxios_get_field_long_name(field_Ptr field_hdl, char * long_name, int long_name_size)", << "Input string is too short");
352    CTimer::get("XIOS").suspend();
353  }
354
355  bool cxios_is_defined_field_long_name(field_Ptr field_hdl)
356  {
357     CTimer::get("XIOS").resume();
358     bool isDefined = field_hdl->long_name.hasInheritedValue();
359     CTimer::get("XIOS").suspend();
360     return isDefined;
361  }
362
363
364  void cxios_set_field_name(field_Ptr field_hdl, const char * name, int name_size)
365  {
366    std::string name_str;
367    if (!cstr2string(name, name_size, name_str)) return;
368    CTimer::get("XIOS").resume();
369    field_hdl->name.setValue(name_str);
370    CTimer::get("XIOS").suspend();
371  }
372
373  void cxios_get_field_name(field_Ptr field_hdl, char * name, int name_size)
374  {
375    CTimer::get("XIOS").resume();
376    if (!string_copy(field_hdl->name.getInheritedValue(), name, name_size))
377      ERROR("void cxios_get_field_name(field_Ptr field_hdl, char * name, int name_size)", << "Input string is too short");
378    CTimer::get("XIOS").suspend();
379  }
380
381  bool cxios_is_defined_field_name(field_Ptr field_hdl)
382  {
383     CTimer::get("XIOS").resume();
384     bool isDefined = field_hdl->name.hasInheritedValue();
385     CTimer::get("XIOS").suspend();
386     return isDefined;
387  }
388
389
390  void cxios_set_field_operation(field_Ptr field_hdl, const char * operation, int operation_size)
391  {
392    std::string operation_str;
393    if (!cstr2string(operation, operation_size, operation_str)) return;
394    CTimer::get("XIOS").resume();
395    field_hdl->operation.setValue(operation_str);
396    CTimer::get("XIOS").suspend();
397  }
398
399  void cxios_get_field_operation(field_Ptr field_hdl, char * operation, int operation_size)
400  {
401    CTimer::get("XIOS").resume();
402    if (!string_copy(field_hdl->operation.getInheritedValue(), operation, operation_size))
403      ERROR("void cxios_get_field_operation(field_Ptr field_hdl, char * operation, int operation_size)", << "Input string is too short");
404    CTimer::get("XIOS").suspend();
405  }
406
407  bool cxios_is_defined_field_operation(field_Ptr field_hdl)
408  {
409     CTimer::get("XIOS").resume();
410     bool isDefined = field_hdl->operation.hasInheritedValue();
411     CTimer::get("XIOS").suspend();
412     return isDefined;
413  }
414
415
416  void cxios_set_field_prec(field_Ptr field_hdl, int prec)
417  {
418    CTimer::get("XIOS").resume();
419    field_hdl->prec.setValue(prec);
420    CTimer::get("XIOS").suspend();
421  }
422
423  void cxios_get_field_prec(field_Ptr field_hdl, int* prec)
424  {
425    CTimer::get("XIOS").resume();
426    *prec = field_hdl->prec.getInheritedValue();
427    CTimer::get("XIOS").suspend();
428  }
429
430  bool cxios_is_defined_field_prec(field_Ptr field_hdl)
431  {
432     CTimer::get("XIOS").resume();
433     bool isDefined = field_hdl->prec.hasInheritedValue();
434     CTimer::get("XIOS").suspend();
435     return isDefined;
436  }
437
438
439  void cxios_set_field_read_access(field_Ptr field_hdl, bool read_access)
440  {
441    CTimer::get("XIOS").resume();
442    field_hdl->read_access.setValue(read_access);
443    CTimer::get("XIOS").suspend();
444  }
445
446  void cxios_get_field_read_access(field_Ptr field_hdl, bool* read_access)
447  {
448    CTimer::get("XIOS").resume();
449    *read_access = field_hdl->read_access.getInheritedValue();
450    CTimer::get("XIOS").suspend();
451  }
452
453  bool cxios_is_defined_field_read_access(field_Ptr field_hdl)
454  {
455     CTimer::get("XIOS").resume();
456     bool isDefined = field_hdl->read_access.hasInheritedValue();
457     CTimer::get("XIOS").suspend();
458     return isDefined;
459  }
460
461
462  void cxios_set_field_scale_factor(field_Ptr field_hdl, double scale_factor)
463  {
464    CTimer::get("XIOS").resume();
465    field_hdl->scale_factor.setValue(scale_factor);
466    CTimer::get("XIOS").suspend();
467  }
468
469  void cxios_get_field_scale_factor(field_Ptr field_hdl, double* scale_factor)
470  {
471    CTimer::get("XIOS").resume();
472    *scale_factor = field_hdl->scale_factor.getInheritedValue();
473    CTimer::get("XIOS").suspend();
474  }
475
476  bool cxios_is_defined_field_scale_factor(field_Ptr field_hdl)
477  {
478     CTimer::get("XIOS").resume();
479     bool isDefined = field_hdl->scale_factor.hasInheritedValue();
480     CTimer::get("XIOS").suspend();
481     return isDefined;
482  }
483
484
485  void cxios_set_field_standard_name(field_Ptr field_hdl, const char * standard_name, int standard_name_size)
486  {
487    std::string standard_name_str;
488    if (!cstr2string(standard_name, standard_name_size, standard_name_str)) return;
489    CTimer::get("XIOS").resume();
490    field_hdl->standard_name.setValue(standard_name_str);
491    CTimer::get("XIOS").suspend();
492  }
493
494  void cxios_get_field_standard_name(field_Ptr field_hdl, char * standard_name, int standard_name_size)
495  {
496    CTimer::get("XIOS").resume();
497    if (!string_copy(field_hdl->standard_name.getInheritedValue(), standard_name, standard_name_size))
498      ERROR("void cxios_get_field_standard_name(field_Ptr field_hdl, char * standard_name, int standard_name_size)", << "Input string is too short");
499    CTimer::get("XIOS").suspend();
500  }
501
502  bool cxios_is_defined_field_standard_name(field_Ptr field_hdl)
503  {
504     CTimer::get("XIOS").resume();
505     bool isDefined = field_hdl->standard_name.hasInheritedValue();
506     CTimer::get("XIOS").suspend();
507     return isDefined;
508  }
509
510
511  void cxios_set_field_unit(field_Ptr field_hdl, const char * unit, int unit_size)
512  {
513    std::string unit_str;
514    if (!cstr2string(unit, unit_size, unit_str)) return;
515    CTimer::get("XIOS").resume();
516    field_hdl->unit.setValue(unit_str);
517    CTimer::get("XIOS").suspend();
518  }
519
520  void cxios_get_field_unit(field_Ptr field_hdl, char * unit, int unit_size)
521  {
522    CTimer::get("XIOS").resume();
523    if (!string_copy(field_hdl->unit.getInheritedValue(), unit, unit_size))
524      ERROR("void cxios_get_field_unit(field_Ptr field_hdl, char * unit, int unit_size)", << "Input string is too short");
525    CTimer::get("XIOS").suspend();
526  }
527
528  bool cxios_is_defined_field_unit(field_Ptr field_hdl)
529  {
530     CTimer::get("XIOS").resume();
531     bool isDefined = field_hdl->unit.hasInheritedValue();
532     CTimer::get("XIOS").suspend();
533     return isDefined;
534  }
535
536
537  void cxios_set_field_valid_max(field_Ptr field_hdl, double valid_max)
538  {
539    CTimer::get("XIOS").resume();
540    field_hdl->valid_max.setValue(valid_max);
541    CTimer::get("XIOS").suspend();
542  }
543
544  void cxios_get_field_valid_max(field_Ptr field_hdl, double* valid_max)
545  {
546    CTimer::get("XIOS").resume();
547    *valid_max = field_hdl->valid_max.getInheritedValue();
548    CTimer::get("XIOS").suspend();
549  }
550
551  bool cxios_is_defined_field_valid_max(field_Ptr field_hdl)
552  {
553     CTimer::get("XIOS").resume();
554     bool isDefined = field_hdl->valid_max.hasInheritedValue();
555     CTimer::get("XIOS").suspend();
556     return isDefined;
557  }
558
559
560  void cxios_set_field_valid_min(field_Ptr field_hdl, double valid_min)
561  {
562    CTimer::get("XIOS").resume();
563    field_hdl->valid_min.setValue(valid_min);
564    CTimer::get("XIOS").suspend();
565  }
566
567  void cxios_get_field_valid_min(field_Ptr field_hdl, double* valid_min)
568  {
569    CTimer::get("XIOS").resume();
570    *valid_min = field_hdl->valid_min.getInheritedValue();
571    CTimer::get("XIOS").suspend();
572  }
573
574  bool cxios_is_defined_field_valid_min(field_Ptr field_hdl)
575  {
576     CTimer::get("XIOS").resume();
577     bool isDefined = field_hdl->valid_min.hasInheritedValue();
578     CTimer::get("XIOS").suspend();
579     return isDefined;
580  }
581}
Note: See TracBrowser for help on using the repository browser.