Changeset 432 for XIOS/trunk/src/interface/fortran_attr/field_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/field_interface_attr.f90 (modified) (15 diffs)

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

@@ -23 +23 @@
     END SUBROUTINE cxios_get_field_axis_ref
     
+    FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_axis_ref
+    
     
     SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
@@ -35 +41 @@
       REAL (KIND=C_DOUBLE)             :: default_value
     END SUBROUTINE cxios_get_field_default_value
+    
+    FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_default_value
     
     
@@ -51 +63 @@
     END SUBROUTINE cxios_get_field_domain_ref
     
+    FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_domain_ref
+    
     
     SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
@@ -63 +81 @@
       LOGICAL (KIND=C_BOOL)             :: enabled
     END SUBROUTINE cxios_get_field_enabled
+    
+    FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_enabled
     
     
@@ -79 +103 @@
     END SUBROUTINE cxios_get_field_field_ref
     
+    FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_field_ref
+    
     
     SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
@@ -94 +124 @@
     END SUBROUTINE cxios_get_field_freq_offset
     
+    FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_freq_offset
+    
     
     SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
@@ -109 +145 @@
     END SUBROUTINE cxios_get_field_freq_op
     
+    FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_freq_op
+    
     
     SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
@@ -124 +166 @@
     END SUBROUTINE cxios_get_field_grid_ref
     
+    FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_grid_ref
+    
     
     SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
@@ -136 +184 @@
       INTEGER (KIND=C_INT)             :: level
     END SUBROUTINE cxios_get_field_level
+    
+    FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_level
     
     
@@ -152 +206 @@
     END SUBROUTINE cxios_get_field_long_name
     
+    FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_long_name
+    
     
     SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
@@ -167 +227 @@
     END SUBROUTINE cxios_get_field_name
     
+    FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_name
+    
     
     SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
@@ -182 +248 @@
     END SUBROUTINE cxios_get_field_operation
     
+    FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_operation
+    
     
     SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
@@ -194 +266 @@
       INTEGER (KIND=C_INT)             :: prec
     END SUBROUTINE cxios_get_field_prec
+    
+    FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_prec
     
     
@@ -210 +288 @@
     END SUBROUTINE cxios_get_field_standard_name
     
+    FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_standard_name
+    
     
     SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
@@ -225 +309 @@
     END SUBROUTINE cxios_get_field_unit
     
+    FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_unit
+    
     
     END INTERFACE