Changeset 891 for XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

Timestamp:

07/05/16 15:59:23 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:

• XIOS/trunk/src/interface/fortran/ixios_interfaces.F90 (modified) (8 diffs)

XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

@@ -51 +51 @@
 USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr_hdl), xios(get_axisgroup_attr_hdl), xios(is_defined_axisgroup_attr_hdl)
 
+USE iscalar, ONLY : xios(get_scalar_handle), xios(get_scalargroup_handle)
+
+USE iscalar_attr, ONLY : xios(set_scalar_attr_hdl), xios(get_scalar_attr_hdl), xios(is_defined_scalar_attr_hdl)
+
+USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr_hdl), xios(get_scalargroup_attr_hdl), xios(is_defined_scalargroup_attr_hdl)
+
 USE izoom_axis, ONLY : xios(get_zoom_axis_handle)
 
@@ -79 +85 @@
                                               xios(is_defined_generate_rectilinear_domain_attr_hdl)
 
+USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle)
+
+USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl), xios(is_defined_reduce_axis_to_scalar_attr_hdl)
+
 USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   &
                       xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield),          &
@@ -86 +96 @@
                       xios(add_zoomdomaintodomain), xios(add_interpolatedomaintodomain),                   &
                       xios(add_generatedomaintodomain), xios(add_zoomaxistoaxis),                          &
-                      xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis)
+                      xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar),      &
+                      xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar)
 
 PRIVATE
@@ -98 +109 @@
                    xios(set_zoom_domain_attr_hdl), xios(set_interpolate_axis_attr_hdl),                      &
                    xios(set_interpolate_domain_attr_hdl), xios(set_inverse_axis_attr_hdl),                   &
-                   xios(set_generate_rectilinear_domain_attr_hdl)
+                   xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl),                &
+                   xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl)
 END INTERFACE xios(set_attr)
 
@@ -109 +121 @@
                    xios(get_zoom_domain_attr_hdl), xios(get_interpolate_axis_attr_hdl),                      &
                    xios(get_interpolate_domain_attr_hdl), xios(get_inverse_axis_attr_hdl),                   &
-                   xios(get_generate_rectilinear_domain_attr_hdl)
+                   xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl),                &
+                   xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl)
 END INTERFACE xios(get_attr)
 
@@ -120 +133 @@
                    xios(is_defined_zoom_axis_attr_hdl), xios(is_defined_zoom_domain_attr_hdl),                                    &
                    xios(is_defined_interpolate_axis_attr_hdl), xios(is_defined_interpolate_domain_attr_hdl),                      &
-                   xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl)
+                   xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl),                 &
+                   xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl),                                       &
+                   xios(is_defined_reduce_axis_to_scalar_attr_hdl)
 END INTERFACE xios(is_defined_attr)
 
@@ -131 +146 @@
                    xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle),                 &
                    xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle),              &
-                   xios(get_generate_rectilinear_domain_handle)
+                   xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle),           &
+                   xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle)
 END INTERFACE xios(get_handle)
 
@@ -141 +157 @@
                    xios(add_axistogrid), xios(add_domaintogrid), xios(add_zoomdomaintodomain),                       &
                    xios(add_interpolatedomaintodomain), xios(add_generatedomaintodomain),                            &
-                   xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis)
+                   xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis),           &
+                   xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar)
 END INTERFACE xios(add_child)