Changeset 569 for XIOS/trunk/src/test

Timestamp:

03/10/15 10:49:13 (9 years ago)

Author:

mhnguyen

Message:

Correct some bugs on discovering server index and do some code cleanings

+) Add some checking functions to make sure mpi_isend and mpi_irecv work correctly
+) Add comments to code
+) Remove some redundant code and comments

Test
+) On Curie
+) The new functions are tested in test_new_features.f90. Test_client and test_complete work like before
+) Test cases:

• 3 dimension grid with: 1 domain, 1 axis
• 3 dimension grid with: 3 axis
• Attached and connected

+) All pass and results are correct

TODO:
+) Fix zoom bug with grid composed of only one axis

File:

• XIOS/trunk/src/test/test_new_features.f90 (modified) (3 diffs)

XIOS/trunk/src/test/test_new_features.f90

@@ -17 +17 @@
   INTEGER,PARAMETER :: ni_glo=100
   INTEGER,PARAMETER :: nj_glo=100
-  INTEGER,PARAMETER :: llm=5
+  INTEGER,PARAMETER :: llm=10
   DOUBLE PRECISION  :: lval(llm)=1
   TYPE(xios_field) :: field_hdl
@@ -135 +135 @@
   CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue=lonvalue)
 
-  print *,"ni",ni
-  print *,"lonvalue",lonvalue ;
+!  print *,"ni",ni
+!  print *,"lonvalue",lonvalue ;
 
   CALL xios_is_defined_field_attr("field_A",enabled=ok)
@@ -146 +146 @@
     CALL xios_update_calendar(ts)
     CALL xios_send_field("field_A",field_A)
-    CALL xios_send_field("field_Axis",field_Axis)
+!    CALL xios_send_field("field_Axis",field_Axis)
     CALL xios_send_field("field_All_Axis",field_All_Axis)
     CALL wait_us(5000) ;