Changeset 1202 for XIOS/dev/dev_olga/src/test/test_client.f90

Timestamp:

07/10/17 15:16:17 (7 years ago)

Author:

mhnguyen

Message:

Porting non-continuous axis zoom to dev branch

+) Port axis zoom
+) Resolve some merge conflicts
+) Revert some codes

Test
+) On Curie
+) Ok

File:

• XIOS/dev/dev_olga/src/test/test_client.f90 (modified) (3 diffs)

XIOS/dev/dev_olga/src/test/test_client.f90

@@ -19 +19 @@
   INTEGER,PARAMETER :: ni_glo=100
   INTEGER,PARAMETER :: nj_glo=100
-  INTEGER,PARAMETER :: llm=2
-  DOUBLE PRECISION  :: lval(llm)=1
+  INTEGER,PARAMETER :: llm=5
+  DOUBLE PRECISION  :: lval(llm)=1, scalar = 5
   TYPE(xios_field) :: field_hdl
   TYPE(xios_fieldgroup) :: fieldgroup_hdl
@@ -131 +131 @@
 
   PRINT*,"field field_A is active ? ",xios_field_is_active("field_A")
+  ! CALL xios_recv_field("field", scalar)
   DO ts=1,4
     CALL xios_update_calendar(ts)
@@ -137 +138 @@
     ! CALL xios_send_field("field_Axis",lval)
     CALL xios_send_field("field_Domain",field_domain)
+    CALL xios_send_field("field_Scalar",scalar)
     CALL wait_us(5000) ;
   ENDDO