Changeset 310 for XIOS/trunk/src/fortran/ixios.F90

Timestamp:

02/14/12 13:52:39 (12 years ago)

Author:

ymipsl

Message:

Add xios_field_is_active functionnality

YM

File:

• XIOS/trunk/src/fortran/ixios.F90 (modified) (3 diffs)

XIOS/trunk/src/fortran/ixios.F90

@@ -24 +24 @@
                    xios(set_fieldgroup_attr_hdl),xios(set_field_attr),xios(set_field_attr_hdl),      &
                    xios(get_field_handle), xios(get_fieldgroup_handle), xios(is_valid_field),        &
-                   xios(is_valid_fieldgroup)  
+                   xios(is_valid_fieldgroup),xios(field_is_active_id),xios(field_is_active_hdl)  
                    
 USE ifile, ONLY : txios(file), txios(filegroup), xios(set_file_attr),xios(set_file_attr_hdl), &
@@ -72 +72 @@
 END INTERFACE xios(send_field)
 
+INTERFACE xios(field_is_active)
+  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl)
+END INTERFACE
   
  PUBLIC :: txios(domain), txios(domaingroup),txios(field), txios(fieldgroup),txios(file), txios(filegroup), &
@@ -91 +94 @@
  PUBLIC :: xios(set_timestep),xios(update_calendar)
  PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),                       &
-           xios(close_context_definition), xios(context_finalize), xios(send_field)
+           xios(close_context_definition), xios(context_finalize), xios(send_field),xios(field_is_active)
 
 END MODULE XIOS