Changeset 310 for XIOS/trunk/src/fortran/field_interface.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/field_interface.f90 (modified) (1 diff)

XIOS/trunk/src/fortran/field_interface.f90

@@ -112 +112 @@
       END SUBROUTINE cxios_field_valid_id
 
+      SUBROUTINE cxios_field_is_active(field_hdl, ret) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
+         LOGICAL  (kind = C_BOOL)                   :: ret
+      END SUBROUTINE cxios_field_is_active
+
    END INTERFACE