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

Timestamp:

11/12/15 16:33:14 (8 years ago)

Author:

mhnguyen

Message:

Generating Fortran interface for zoom_axis and zoom_domain

Test
+) On Curie
+) All results are correct

File:

• XIOS/trunk/src/interface/fortran/ixios_interfaces.F90 (modified) (5 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 izoom_axis, ONLY : xios(get_zoom_axis_handle)
+
+USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl)
+
+USE izoom_domain, ONLY : xios(get_zoom_domain_handle)
+
+USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr_hdl), xios(get_zoom_domain_attr_hdl), xios(is_defined_zoom_domain_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),          &
@@ -64 +72 @@
                    xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),                                    &
                    xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          &
-                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl)
+                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl), xios(set_zoom_axis_attr_hdl),   &
+                   xios(set_zoom_domain_attr_hdl)
 END INTERFACE xios(set_attr)
 
@@ -72 +81 @@
                    xios(get_file_attr_hdl), xios(get_filegroup_attr_hdl),                                    &
                    xios(get_grid_attr_hdl), xios(get_gridgroup_attr_hdl), xios(get_axis_attr_hdl) ,          &
-                   xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl)
+                   xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl), xios(get_zoom_axis_attr_hdl),   &
+                   xios(get_zoom_domain_attr_hdl)
 END INTERFACE xios(get_attr)
 
@@ -80 +90 @@
                    xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl),                                           &
                    xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) ,          &
-                   xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl)
+                   xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl),                                        &
+                   xios(is_defined_zoom_axis_attr_hdl), xios(is_defined_zoom_domain_attr_hdl)
 END INTERFACE xios(is_defined_attr)
 
@@ -88 +99 @@
                    xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),   &
                    xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),   &
-                   xios(get_variablegroup_handle)
+                   xios(get_variablegroup_handle), xios(get_zoom_axis_handle),                  &
+                   xios(get_zoom_domain_handle)
 END INTERFACE xios(get_handle)