Changeset 817 for XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90

Timestamp:

01/26/16 18:19:09 (8 years ago)

Author:

mhnguyen

Message:

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes

File:

• XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90

@@ -130 +130 @@
 
 
+    SUBROUTINE cxios_set_axis_index(axis_hdl, index, extent) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
+      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
+      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
+    END SUBROUTINE cxios_set_axis_index
+
+    SUBROUTINE cxios_get_axis_index(axis_hdl, index, extent) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
+      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
+      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
+    END SUBROUTINE cxios_get_axis_index
+
+    FUNCTION cxios_is_defined_axis_index(axis_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_index
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_index
+
+
     SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
       USE ISO_C_BINDING