Changeset 943 for XIOS/trunk/src/interface/fortran/field_interface.f90

Timestamp:

09/22/16 10:59:27 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interfaces for retrieving domains, axis, scalars of a field

+) Add some functions in Grid to get its domain, axis, scalar

Test
+) On Curie
+) Work

File:

• XIOS/trunk/src/interface/fortran/field_interface.f90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran/field_interface.f90

@@ -24 +24 @@
       END SUBROUTINE cxios_field_is_active
 
+      SUBROUTINE cxios_field_get_domain_handle(ret, field_hdl, idx) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INTPTR_T)               :: ret
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
+         INTEGER  (kind = C_INT)     , VALUE        :: idx
+      END SUBROUTINE cxios_field_get_domain_handle
+
+      SUBROUTINE cxios_field_get_axis_handle(ret, field_hdl, idx) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INTPTR_T)               :: ret
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
+         INTEGER  (kind = C_INT)     , VALUE        :: idx
+      END SUBROUTINE cxios_field_get_axis_handle
+
+      SUBROUTINE cxios_field_get_scalar_handle(ret, field_hdl, idx) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INTPTR_T)               :: ret
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
+         INTEGER  (kind = C_INT)     , VALUE        :: idx
+      END SUBROUTINE cxios_field_get_scalar_handle
+
    END INTERFACE