Changeset 1761 for XIOS/dev/dev_ym/XIOS_SERVICES/src/interface/fortran

Timestamp:

10/18/19 15:40:35 (5 years ago)

Author:

ymipsl

Message:

implementing first guess for service functionnalities.

YM

File:

• XIOS/dev/dev_ym/XIOS_SERVICES/src/interface/fortran/ixios.F90 (modified) (1 diff)

XIOS/dev/dev_ym/XIOS_SERVICES/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)