Changeset 666 for XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90

Timestamp:

08/24/15 14:53:27 (9 years ago)

Author:

mhnguyen

Message:

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct

File:

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

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

@@ -228 +228 @@
 
 
-    SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
-      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
-    END SUBROUTINE cxios_set_domaingroup_data_n_index
-
-    SUBROUTINE cxios_get_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
-      INTEGER (KIND=C_INT)             :: data_n_index
-    END SUBROUTINE cxios_get_domaingroup_data_n_index
-
-    FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index
-      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
-    END FUNCTION cxios_is_defined_domaingroup_data_n_index
-
-
     SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
       USE ISO_C_BINDING