Changeset 432 for XIOS/trunk/src/interface/fortran_attr/context_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/context_interface_attr.f90 (modified) (5 diffs)

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

@@ -23 +23 @@
     END SUBROUTINE cxios_get_context_calendar_type
     
+    FUNCTION cxios_is_defined_context_calendar_type(context_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_calendar_type
+      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
+    END FUNCTION cxios_is_defined_context_calendar_type
+    
     
     SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
@@ -37 +43 @@
       INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
     END SUBROUTINE cxios_get_context_output_dir
+    
+    FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir
+      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
+    END FUNCTION cxios_is_defined_context_output_dir
     
     
@@ -53 +65 @@
     END SUBROUTINE cxios_get_context_start_date
     
+    FUNCTION cxios_is_defined_context_start_date(context_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_start_date
+      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
+    END FUNCTION cxios_is_defined_context_start_date
+    
     
     SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C)
@@ -67 +85 @@
       INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size
     END SUBROUTINE cxios_get_context_time_origin
+    
+    FUNCTION cxios_is_defined_context_time_origin(context_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_time_origin
+      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
+    END FUNCTION cxios_is_defined_context_time_origin
     
     
@@ -83 +107 @@
     END SUBROUTINE cxios_get_context_timestep
     
+    FUNCTION cxios_is_defined_context_timestep(context_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_timestep
+      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
+    END FUNCTION cxios_is_defined_context_timestep
+    
     
     END INTERFACE