source: XIOS/dev/branch_openmp/src/interface/c/icextract_to_axis.cpp @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago

branch_openmp merged with trunk r1544

File size: 1.5 KB
Line 
1/* ************************************************************************** *
2 *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <memory>
7
8#include "xios.hpp"
9
10#include "object_template.hpp"
11#include "group_template.hpp"
12#include "attribute_template.hpp"
13
14#include "icutil.hpp"
15#include "timer.hpp"
16#include "extract_domain_to_axis.hpp"
17
18extern "C"
19{
20// /////////////////////////////// Définitions ////////////////////////////// //
21
22   // ----------------------- Redéfinition de types ----------------------------
23
24   typedef xios::CExtractDomainToAxis      * XExtractDomainToAxisPtr;
25   
26   // ------------------------ Création des handle -----------------------------
27   void cxios_extract_domain_to_axis_handle_create(XExtractDomainToAxisPtr * _ret, const char * _id, int _id_len)
28   {
29      std::string id;
30      if (!cstr2string(_id, _id_len, id)) return;
31      CTimer::get("XIOS").resume() ;
32      *_ret = xios::CExtractDomainToAxis::get(id);
33      CTimer::get("XIOS").suspend() ;
34   }
35
36   // -------------------- Vérification des identifiants -----------------------
37   void cxios_extract_domain_to_axis_valid_id(bool * _ret, const char * _id, int _id_len)
38   {
39      std::string id;
40      if (!cstr2string(_id, _id_len, id)) return;
41
42      CTimer::get("XIOS").resume() ;
43      *_ret = xios::CExtractDomainToAxis::has(id);
44      CTimer::get("XIOS").suspend() ;
45   }
46
47} // extern "C"
Note: See TracBrowser for help on using the repository browser.