Changeset 1119 for XIOS/trunk/src/interface/fortran/field_interface.f90

Timestamp:

05/05/17 08:58:33 (7 years ago)

Author:

rlacroix

Message:

Add the ability to check if an output field is active at the current timestep.

The "xios_field_is_active" function can now take an optional logical argument that can be used to enable this new behavior.

File:

• XIOS/trunk/src/interface/fortran/field_interface.f90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran/field_interface.f90

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