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/field_interface.f90

    r286 r310  
    112112      END SUBROUTINE cxios_field_valid_id 
    113113 
     114      SUBROUTINE cxios_field_is_active(field_hdl, ret) BIND(C) 
     115         USE ISO_C_BINDING 
     116         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
     117         LOGICAL  (kind = C_BOOL)                   :: ret 
     118      END SUBROUTINE cxios_field_is_active 
     119 
    114120   END INTERFACE 
    115121    
Note: See TracChangeset for help on using the changeset viewer.