Changeset 415 for XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90

Timestamp:

01/20/13 23:14:35 (11 years ago)

Author:

ymipsl

Message:

Add grid mask attribute

YM

File:

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

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

@@ -37 +37 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_get_axis_name
+    
+    
+    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
+      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
+    END SUBROUTINE cxios_set_axis_positive
+    
+    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
+      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
+    END SUBROUTINE cxios_get_axis_positive