Changeset 510 for XIOS/trunk

Timestamp:

11/13/14 15:09:23 (9 years ago)

Author:

mhnguyen

Message:

Implementing buffer-size automatic detection in mode connected server-client (client is also server)

+) Rearrange some functions to make sure they work in both cases: connected and seperated
+) Make some cleans of code

Test
+) On Curie
+) Both modes, all tests pass

Location:

XIOS/trunk/src

Files:

• interface/c/icdata.cpp (modified) (1 diff)
• node/context.cpp (modified) (4 diffs)
• node/field.cpp (modified) (1 diff)
• node/grid.cpp (modified) (1 diff)
• test/test_xios_interface.f90 (modified) (4 diffs)

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

@@ -92 +92 @@
      CTimer::get("XIOS close definition").resume() ;
      CContext* context = CContext::getCurrent() ;
-//     context->setClientServerBuffer();
      context->closeDefinition() ;
      CTimer::get("XIOS close definition").suspend() ;

XIOS/trunk/src/node/context.cpp

@@ -337 +337 @@
    void CContext::closeDefinition(void)
    {
-     if (hasClient && !hasServer)
+     if (hasClient)
      {
        // After xml is parsed, there are some more works with post processing
        postProcessing();
-
+//
        setClientServerBuffer();
+     }
+
+     if (hasClient && !hasServer)
+     {
+       // After xml is parsed, there are some more works with post processing
+//       postProcessing();
+
+//       setClientServerBuffer();
 
       // Send all attributes of current context to server
@@ -368 +376 @@
 
     // There are some processings that should be done after all of above. For example: check mask or index
-    if (hasClient && !hasServer)
+//    if (hasClient && !hasServer)
+    if (hasClient)
     {
       this->solveAllRefOfEnabledFields(true);
       this->buildAllExpressionOfEnabledFields();
     }
+
+
 
 //      if (hasClient)
@@ -482 +493 @@
       const vector<CFile*> allFiles=CFile::getAll() ;
 
-     if (hasClient && !hasServer)
-      for (unsigned int i = 0; i < allFiles.size(); i++)
-         allFiles[i]->solveFieldRefInheritance(apply);
+     //if (hasClient && !hasServer)
+      if (hasClient)
+        for (unsigned int i = 0; i < allFiles.size(); i++)
+          allFiles[i]->solveFieldRefInheritance(apply);
    }
 
@@ -686 +698 @@
      if (isPostProcessed) return;
 
-     this->solveCalendar();
-
      // Solve calendar for both side: client and server
       this->solveCalendar();

XIOS/trunk/src/node/field.cpp

@@ -401 +401 @@
      {
         areAllReferenceSolved = true;
-        if (!context->hasServer)
+        if (context->hasClient)
         {
           solveRefInheritance(true);

XIOS/trunk/src/node/grid.cpp

@@ -177 +177 @@
        if (this->withAxis) retVal *= this->axis->size.getValue();
        retVal *= sizeof(double);
+       retVal *= 1.2; // Secure factor
        ret.insert(make_pair(it->first, retVal));
      }

XIOS/trunk/src/test/test_xios_interface.f90

@@ -14 +14 @@
   TYPE(xios_time)      :: dtime
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=100
-  INTEGER,PARAMETER :: nj_glo=100
+  INTEGER,PARAMETER :: ni_glo=10
+  INTEGER,PARAMETER :: nj_glo=10
   INTEGER,PARAMETER :: llm=5
   DOUBLE PRECISION  :: lval(llm)=1
@@ -219 +219 @@
 
 !!! Fin de la definition du contexte SRF
-
-  CALL xios_close_context_definition()
-
-
 !-------------------------------------------------------------------------------
 !
@@ -228 +224 @@
 !
 !-------------------------------------------------------------------------------
-
- !! Be sure in the correct context
-  CALL xios_get_handle("surface",ctx_hdl)
-  CALL xios_set_current_context(ctx_hdl)
 
   !! Try getting some variable values
@@ -299 +291 @@
     print*, "New value of ", var_id, " is : ", var_val_bool
   end if
+!
+!!!! Fin de la definition du contexte SRF
+  CALL xios_close_context_definition()
 
 !####################################################################################