Changeset 1037 for XIOS/dev/branch_yushan/src/interface/fortran_attr/fieldgroup_interface_attr.F90

Timestamp:

01/25/17 16:25:17 (7 years ago)

Author:

yushan

Message:

initialize the branch

File:

• XIOS/dev/branch_yushan/src/interface/fortran_attr/fieldgroup_interface_attr.F90 (modified) (2 diffs)

XIOS/dev/branch_yushan/src/interface/fortran_attr/fieldgroup_interface_attr.F90

@@ -50 +50 @@
 
 
-    SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
-      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
-    END SUBROUTINE cxios_set_fieldgroup_cell_methods
-
-    SUBROUTINE cxios_get_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
-      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
-    END SUBROUTINE cxios_get_fieldgroup_cell_methods
-
-    FUNCTION cxios_is_defined_fieldgroup_cell_methods(fieldgroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-    END FUNCTION cxios_is_defined_fieldgroup_cell_methods
-
-
-    SUBROUTINE cxios_set_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode
-      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size
-    END SUBROUTINE cxios_set_fieldgroup_cell_methods_mode
-
-    SUBROUTINE cxios_get_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode
-      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size
-    END SUBROUTINE cxios_get_fieldgroup_cell_methods_mode
-
-    FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode(fieldgroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods_mode
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-    END FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode
-
-
     SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
       USE ISO_C_BINDING
@@ -189 +147 @@
 
 
-    SUBROUTINE cxios_set_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
-      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
-    END SUBROUTINE cxios_set_fieldgroup_expr
-
-    SUBROUTINE cxios_get_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
-      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
-    END SUBROUTINE cxios_get_fieldgroup_expr
-
-    FUNCTION cxios_is_defined_fieldgroup_expr(fieldgroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_expr
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-    END FUNCTION cxios_is_defined_fieldgroup_expr
-
-
     SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
       USE ISO_C_BINDING