Changeset 461 for XIOS/trunk/src/interface/c/icdata.cpp

Timestamp:

01/20/14 15:01:03 (11 years ago)

Author:

ymipsl

Message:

New function available form fortran interface : LOGICAL xios_context_is_initialized("context_id")
Return .true. if the context "context_id" has been initialized before.

YM

File:

• XIOS/trunk/src/interface/c/icdata.cpp (modified) (1 diff)

XIOS/trunk/src/interface/c/icdata.cpp

@@ -75 +75 @@
    }
  
+   void cxios_context_is_initialized(const char * context_id , int len_context_id, bool* initialized)
+   {
+     std::string str; 
+     
+     if (!cstr2string(context_id, len_context_id, str)) return;
+     CTimer::get("XIOS").resume() ;
+     CContext* context = CContext::get(str,str) ;
+     *initialized=context->isInitialized() ;
+     CTimer::get("XIOS").suspend() ;
+   }  
+   
     void cxios_context_close_definition()
    {