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

Timestamp:

05/26/15 16:13:45 (9 years ago)

Author:

rlacroix

Message:

Add a new interface xios_recv_field to get local instant data from a field.

File:

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

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

@@ -7 +7 @@
 USE icontext_attr, ONLY : xios(set_context_attr_hdl), xios(get_context_attr_hdl), xios(is_defined_context_attr_hdl)
 
-USE idata, ONLY : xios(send_scalar_r8), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),                    &
-                  xios(send_scalar_r4), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),                    &
-                  xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char), &
+USE idata, ONLY : xios(send_scalar_r8), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
+                  xios(send_scalar_r4), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), &
+                  xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d),                       &
+                  xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d),                       &
+                  xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char),    &
                   xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char)
 
@@ -96 +98 @@
 END INTERFACE xios(add_child)
 
-
 INTERFACE xios(send_field)
   MODULE PROCEDURE xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
@@ -105 +106 @@
   MODULE PROCEDURE xios(send_scalar_r8), xios(send_scalar_r4)
 END INTERFACE xios(send_scalar)
+
+INTERFACE xios(recv_field)
+  MODULE PROCEDURE xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), &
+                   xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d)
+END INTERFACE xios(recv_field)
 
 INTERFACE xios(field_is_active)
@@ -118 +124 @@
 END INTERFACE xios(setVar)
 
-PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), &
-          xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar), xios(send_scalar)
+PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), &
+          xios(send_scalar), xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar)
 
 END MODULE XIOS_INTERFACES