source: XIOS/dev/branch_yushan/src/interface/c/icfield.cpp @ 1101

Last change on this file since 1101 was 1101, checked in by yushan, 7 years ago

From ADA, test_omp (test_client + openmp) OK. Todo: add field_C

  • 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: 3.8 KB
Line 
1/* ************************************************************************** *
2 *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <boost/shared_ptr.hpp>
7
8#include "xios.hpp"
9
10#include "attribute_template.hpp"
11#include "object_template.hpp"
12#include "group_template.hpp"
13
14#include "icutil.hpp"
15#include "timer.hpp"
16#include "field.hpp"
17
18extern "C"
19{
20// /////////////////////////////// Définitions ////////////////////////////// //
21
22   // ----------------------- Redéfinition de types ----------------------------
23   
24   typedef xios::CField      * XFieldPtr;
25   typedef xios::CFieldGroup * XFieldGroupPtr;
26   
27   typedef xios::CDomain     * XDomainPtr;
28   typedef xios::CAxis       * XAxisPtr;
29   typedef xios::CScalar     * XScalarPtr;
30
31// --------------------------------------------------------------------------   
32// ------------------------ Création des handle -----------------------------
33// --------------------------------------------------------------------------   
34   
35   void cxios_field_handle_create (XFieldPtr * _ret, const char * _id, int _id_len)
36   {
37      std::string id; 
38      if (!cstr2string(_id, _id_len, id)) return;
39      CTimer::get("XIOS").resume() ;
40      *_ret = CField::get(id);
41      printf("cxios_field_handle_create\n");
42      CTimer::get("XIOS").suspend() ;
43   }
44   
45   void cxios_fieldgroup_handle_create (XFieldGroupPtr * _ret, const char * _id, int _id_len)
46   {
47      std::string id; 
48      if (!cstr2string(_id, _id_len, id)) return;
49      CTimer::get("XIOS").resume() ;
50      *_ret = CFieldGroup::get(id);
51      printf("cxios_fieldgroup_handle_create\n");
52      CTimer::get("XIOS").suspend() ;
53   }
54
55
56   // -------------------- Vérification des identifiants -----------------------
57
58   void cxios_field_valid_id (bool * _ret, const char * _id, int _id_len)
59   {
60      std::string id;
61      if (!cstr2string(_id, _id_len, id)) return;
62      CTimer::get("XIOS").resume() ;
63      *_ret = CField::has(id);
64      CTimer::get("XIOS").suspend() ;
65   }
66
67   void cxios_fieldgroup_valid_id (bool * _ret, const char * _id, int _id_len)
68   {
69      std::string id;
70      if (!cstr2string(_id, _id_len, id)) return;
71      CTimer::get("XIOS").resume() ;
72      *_ret = CFieldGroup::has(id);
73      CTimer::get("XIOS").suspend() ;
74   }
75
76// -----------------------------------------------------------------------------------------------------   
77// ------------------------- Other functions
78// -----------------------------------------------------------------------------------------------------   
79
80  void cxios_field_is_active (XFieldPtr field_hdl, bool* ret)
81  {
82    CTimer::get("XIOS").resume() ;
83    *ret = field_hdl->isActive();
84    CTimer::get("XIOS").suspend() ;
85  }
86
87// -----------------------------------------------------------------------------------------------------
88// ------------------------- Retrieving information of grid associated to field
89// -----------------------------------------------------------------------------------------------------
90  void cxios_field_get_domain_handle(XDomainPtr * domain_hdl_ret, XFieldPtr field_hdl, int domainIndex)
91  {
92     CTimer::get("XIOS").resume() ;
93     *domain_hdl_ret = field_hdl->grid->getDomain(domainIndex);
94     CTimer::get("XIOS").suspend();
95  }
96
97  void cxios_field_get_axis_handle(XAxisPtr * axis_hdl_ret, XFieldPtr field_hdl, int axisIndex)
98  {
99     CTimer::get("XIOS").resume() ;
100     *axis_hdl_ret = field_hdl->grid->getAxis(axisIndex);
101     CTimer::get("XIOS").suspend();
102  }
103
104  void cxios_field_get_scalar_handle(XScalarPtr * scalar_hdl_ret, XFieldPtr field_hdl, int scalarIndex)
105  {
106     CTimer::get("XIOS").resume() ;
107     *scalar_hdl_ret = field_hdl->grid->getScalar(scalarIndex);
108     CTimer::get("XIOS").suspend();
109  }
110} // extern "C"
Note: See TracBrowser for help on using the repository browser.