Changeset 1673 for XIOS/trunk/src/interface/fortran/ixios.F90

Timestamp:

06/13/19 17:46:05 (5 years ago)

Author:

ymipsl

Message:

export "get_current_context" fortran interface.

YM

File:

• XIOS/trunk/src/interface/fortran/ixios.F90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran/ixios.F90

@@ -8 +8 @@
                       xios(get_year_length_in_seconds), xios(get_day_length_in_seconds)
 
-USE icontext, ONLY : txios(context), xios(set_current_context), xios(is_valid_context)
+USE icontext, ONLY : txios(context), xios(set_current_context), xios(get_current_context), xios(is_valid_context)
 
 USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr)