Changeset 300 for XMLIO_V2/dev/common/src/fortran/ixios.F90

Timestamp:

02/13/12 19:35:25 (12 years ago)

Author:

ymipsl

Message:

nouvelle version de developpement de xios

• nouvelle interface fortran
• recodage complet de la couche de communication
• et bien d'autres choses...

YM

File:

• XMLIO_V2/dev/common/src/fortran/ixios.F90 (modified) (4 diffs)

XMLIO_V2/dev/common/src/fortran/ixios.F90

@@ -8 +8 @@
                      xios(is_valid_context)
 
-USE idata, ONLY : xios(initialize), xios(finalize), xios(close_context_definition),       &
+USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize),  &
+                  xios(close_context_definition),       &
                   xios(context_finalize), 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), &
@@ -40 +41 @@
                      xios(add_fieldtofile), xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), &
                      xios(add_fieldgroup), xios(add_domaingroup), xios(add_fieldgrouptofile)
-
-USE idata, ONLY : xios(initialize), xios(finalize), xios(close_context_definition), xios(context_finalize), &
-                  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)
                   
 
@@ -85 +82 @@
 
  PUBLIC :: xios(get_handle) 
+ PUBLIC :: xios(add_child) 
 
  PUBLIC :: xios(is_valid_context),xios(is_valid_domain), xios(is_valid_domaingroup),xios(is_valid_field),        &
@@ -92 +90 @@
  PUBLIC :: xios(set_current_context)  
  PUBLIC :: xios(set_timestep),xios(update_calendar)
- PUBLIC :: xios(initialize), xios(finalize), xios(close_context_definition), xios(context_finalize), xios(send_field)
+ PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),                       &
+           xios(close_context_definition), xios(context_finalize), xios(send_field)
 
 END MODULE XIOS