Changeset 432 for XIOS/trunk/src/test

Timestamp:

06/03/13 11:21:19 (11 years ago)

Author:

ymipsl

Message:

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File:

• XIOS/trunk/src/test/test_client.f90 (modified) (2 diffs)

XIOS/trunk/src/test/test_client.f90

@@ -13 +13 @@
   TYPE(xios_time)      :: dtime
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=100 
+  INTEGER,PARAMETER :: ni_glo=100
   INTEGER,PARAMETER :: nj_glo=100 
-  INTEGER,PARAMETER :: llm=3 
-  DOUBLE PRECISION  :: lval(llm)=(/1.0,2.0,3.0/)
+  INTEGER,PARAMETER :: llm=5 
+  DOUBLE PRECISION  :: lval(llm)=1
   TYPE(xios_field) :: field_hdl
   TYPE(xios_fieldgroup) :: fieldgroup_hdl
   TYPE(xios_file) :: file_hdl
-  
+  LOGICAL :: ok
   
   DOUBLE PRECISION,DIMENSION(ni_glo,nj_glo) :: lon_glo,lat_glo
@@ -98 +98 @@
     print *,"lonvalue",lonvalue ;
 
+    CALL xios_is_defined_field_attr("field_A",enabled=ok)
+    PRINT *,"field_A : attribute enabled is defined ? ",ok
     CALL xios_close_context_definition()