Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/interpolate_axis_interface_attr.F90

Timestamp:

06/28/22 11:44:19 (2 years ago)

Author:

jderouillat

Message:

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/interpolate_axis_interface_attr.F90 (modified) (1 diff)

XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/interpolate_axis_interface_attr.F90

@@ -29 +29 @@
       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
     END FUNCTION cxios_is_defined_interpolate_axis_coordinate
+
+
+    SUBROUTINE cxios_set_interpolate_axis_coordinate_dst(interpolate_axis_hdl, coordinate_dst, coordinate_dst_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: coordinate_dst
+      INTEGER  (kind = C_INT)     , VALUE        :: coordinate_dst_size
+    END SUBROUTINE cxios_set_interpolate_axis_coordinate_dst
+
+    SUBROUTINE cxios_get_interpolate_axis_coordinate_dst(interpolate_axis_hdl, coordinate_dst, coordinate_dst_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: coordinate_dst
+      INTEGER  (kind = C_INT)     , VALUE        :: coordinate_dst_size
+    END SUBROUTINE cxios_get_interpolate_axis_coordinate_dst
+
+    FUNCTION cxios_is_defined_interpolate_axis_coordinate_dst(interpolate_axis_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_coordinate_dst
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+    END FUNCTION cxios_is_defined_interpolate_axis_coordinate_dst
+
+
+    SUBROUTINE cxios_set_interpolate_axis_coordinate_src(interpolate_axis_hdl, coordinate_src, coordinate_src_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: coordinate_src
+      INTEGER  (kind = C_INT)     , VALUE        :: coordinate_src_size
+    END SUBROUTINE cxios_set_interpolate_axis_coordinate_src
+
+    SUBROUTINE cxios_get_interpolate_axis_coordinate_src(interpolate_axis_hdl, coordinate_src, coordinate_src_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: coordinate_src
+      INTEGER  (kind = C_INT)     , VALUE        :: coordinate_src_size
+    END SUBROUTINE cxios_get_interpolate_axis_coordinate_src
+
+    FUNCTION cxios_is_defined_interpolate_axis_coordinate_src(interpolate_axis_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_coordinate_src
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+    END FUNCTION cxios_is_defined_interpolate_axis_coordinate_src
+
+
+    SUBROUTINE cxios_set_interpolate_axis_extrapolate(interpolate_axis_hdl, extrapolate) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: extrapolate
+    END SUBROUTINE cxios_set_interpolate_axis_extrapolate
+
+    SUBROUTINE cxios_get_interpolate_axis_extrapolate(interpolate_axis_hdl, extrapolate) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+      LOGICAL (KIND=C_BOOL)             :: extrapolate
+    END SUBROUTINE cxios_get_interpolate_axis_extrapolate
+
+    FUNCTION cxios_is_defined_interpolate_axis_extrapolate(interpolate_axis_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_extrapolate
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl
+    END FUNCTION cxios_is_defined_interpolate_axis_extrapolate