source: dynamico_lmdz/aquaplanet/XIOS/src/interface/c/icdate.cpp @ 3848

/* ************************************************************************** *
 *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
 * ************************************************************************** */

#include <boost/multi_array.hpp>
#include <boost/shared_ptr.hpp>

#include "xmlioserver.hpp"

#include "attribute_template.hpp"
#include "object_template.hpp"
#include "group_template.hpp"

#include "calendar_type.hpp"

#include "icutil.hpp"
#include "timer.hpp"
#include "context.hpp"
#include "context_client.hpp"

extern "C"
{
// /////////////////////////////// Définitions ////////////////////////////// //

   void cxios_set_timestep(double ts_year, double ts_month,  double ts_day,
                          double ts_hour, double ts_minute, double ts_second)
   {
      try
      {
         CTimer::get("XIOS").resume() ;
         CDuration dur = {ts_year, ts_month, ts_day, ts_hour, ts_minute, ts_second, 0};
         xios::CContext* context = CContext::getCurrent() ;
         
            context->timestep.setValue(dur.toString());
            context->sendAttributToServer("timestep") ;
          CTimer::get("XIOS").suspend() ;
      }
      catch (xios::CException & exc)
      {
         std::cerr << exc.getMessage() << std::endl;
         exit (EXIT_FAILURE);
      }
   }
   
   void cxios_update_calendar(int step)
   {
      CTimer::get("XIOS").resume() ;
      xios::CContext* context = CContext::getCurrent() ;
      if (!context->hasServer) context->client->checkBuffers() ;
      context->updateCalendar(step) ;
      context->sendUpdateCalendar(step) ;
      CTimer::get("XIOS").suspend() ;
      
   }

} // extern "C"