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

Timestamp:

07/05/16 15:58:57 (8 years ago)

Author:

mhnguyen

Message:

Change send_scalar to send_field to make it more coherent

+) Removing and changing some functions in fortran interface

Test
+) On Curie
+) All work

File:

• XIOS/trunk/src/interface/fortran/ixios_interfaces.F90 (modified) (3 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), &
+USE idata, ONLY : xios(send_field_r8_0d), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
+                  xios(send_field_r4_0d), 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),                       &
@@ -146 +146 @@
 INTERFACE xios(send_field)
   MODULE PROCEDURE xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), &
-                   xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d)
+                   xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), &
+                   xios(send_field_r8_0d), xios(send_field_r4_0d)
 END INTERFACE xios(send_field)
-
-INTERFACE xios(send_scalar)
-  MODULE PROCEDURE xios(send_scalar_r8), xios(send_scalar_r4)
-END INTERFACE xios(send_scalar)
 
 INTERFACE xios(recv_field)
@@ -171 +168 @@
 
 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)
+          xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar)
 
 END MODULE XIOS_INTERFACES