Changeset 510 for XIOS/trunk/src/test

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

File:

• XIOS/trunk/src/test/test_xios_interface.f90 (modified) (4 diffs)

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()
 
 !####################################################################################