Ignore:
Timestamp:
02/14/12 13:52:39 (10 years ago)
Author:
ymipsl
Message:

Add xios_field_is_active functionnality

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/fortran/ixios.F90

    r300 r310  
    2424                   xios(set_fieldgroup_attr_hdl),xios(set_field_attr),xios(set_field_attr_hdl),      & 
    2525                   xios(get_field_handle), xios(get_fieldgroup_handle), xios(is_valid_field),        & 
    26                    xios(is_valid_fieldgroup)   
     26                   xios(is_valid_fieldgroup),xios(field_is_active_id),xios(field_is_active_hdl)   
    2727                    
    2828USE ifile, ONLY : txios(file), txios(filegroup), xios(set_file_attr),xios(set_file_attr_hdl), & 
     
    7272END INTERFACE xios(send_field) 
    7373 
     74INTERFACE xios(field_is_active) 
     75  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl) 
     76END INTERFACE 
    7477   
    7578 PUBLIC :: txios(domain), txios(domaingroup),txios(field), txios(fieldgroup),txios(file), txios(filegroup), & 
     
    9194 PUBLIC :: xios(set_timestep),xios(update_calendar) 
    9295 PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),                       & 
    93            xios(close_context_definition), xios(context_finalize), xios(send_field) 
     96           xios(close_context_definition), xios(context_finalize), xios(send_field),xios(field_is_active) 
    9497 
    9598END MODULE XIOS 
Note: See TracChangeset for help on using the changeset viewer.