Changeset 624 for XIOS/trunk/src/test/test_new_features.f90

Timestamp:

06/22/15 13:36:37 (9 years ago)

Author:

mhnguyen

Message:

Final tests of zoom and inverse on axis

+) Modify test_client and test_complete to work with new grid definition
+) Correct some bugs causing memory leak
+) Clean abundant code
+) Add more comments to new files

Test
+) On Curie
+) test_client and test_complete pass with correct results

File:

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

XIOS/trunk/src/test/test_new_features.f90

@@ -15 +15 @@
   CHARACTER(len=15) :: calendar_type
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=5
-  INTEGER,PARAMETER :: nj_glo=5
-  INTEGER,PARAMETER :: llm=2
+  INTEGER,PARAMETER :: ni_glo=100
+  INTEGER,PARAMETER :: nj_glo=100
+  INTEGER,PARAMETER :: llm=5
   DOUBLE PRECISION  :: lval(llm)=1, tsTemp
   TYPE(xios_field) :: field_hdl
@@ -68 +68 @@
   axisBegin = 0
   nAxis = llm
-  DO n=0, size -1
-    nAxis = llm/size
-    IF (n<MOD(llm,size)) nAxis=nAxis+1
-    IF (n==rank) exit
-    axisBegin=axisBegin+nAxis
-  ENDDO
+!  DO n=0, size -1
+!    nAxis = llm/size
+!    IF (n<MOD(llm,size)) nAxis=nAxis+1
+!    IF (n==rank) exit
+!    axisBegin=axisBegin+nAxis
+!  ENDDO
   axisEnd=axisBegin+nAxis-1
 
@@ -117 +117 @@
   CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.)
 
-!  CALL xios_get_handle("field_definition",fieldgroup_hdl)
-!  CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B")
-!  CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B")
-!
-!  CALL xios_get_handle("output",file_hdl)
-!  CALL xios_add_child(file_hdl,field_hdl)
-!  CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_C")
+  CALL xios_get_handle("field_definition",fieldgroup_hdl)
+  CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B")
+  CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B")
+
+  CALL xios_get_handle("output",file_hdl)
+  CALL xios_add_child(file_hdl,field_hdl)
+  CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_C")
 !
 !  CALL xios_get_handle("output_All_Axis",file_hdl)