Changeset 432 for XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90

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/interface/fortran_attr/grid_interface_attr.f90 (modified) (5 diffs)

XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90

@@ -23 +23 @@
     END SUBROUTINE cxios_get_grid_axis_ref
     
+    FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
+    END FUNCTION cxios_is_defined_grid_axis_ref
+    
     
     SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C)
@@ -38 +44 @@
     END SUBROUTINE cxios_get_grid_description
     
+    FUNCTION cxios_is_defined_grid_description(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description
+      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
+    END FUNCTION cxios_is_defined_grid_description
+    
     
     SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C)
@@ -52 +64 @@
       INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
     END SUBROUTINE cxios_get_grid_domain_ref
+    
+    FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
+    END FUNCTION cxios_is_defined_grid_domain_ref
     
     
@@ -72 +90 @@
     END SUBROUTINE cxios_get_grid_mask
     
+    FUNCTION cxios_is_defined_grid_mask(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask
+      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
+    END FUNCTION cxios_is_defined_grid_mask
+    
     
     SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C)
@@ -87 +111 @@
     END SUBROUTINE cxios_get_grid_name
     
+    FUNCTION cxios_is_defined_grid_name(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
+    END FUNCTION cxios_is_defined_grid_name
+    
     
     END INTERFACE