Changeset 1978 for XIOS/trunk/src/interface/fortran/context_interface.f90

Timestamp:

11/12/20 12:06:26 (4 years ago)

Author:

ymipsl

Message:

Add get_current_context functionnality with string id, in fortran interface.

YM

File:

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

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

@@ -16 +16 @@
       END SUBROUTINE cxios_context_get_current
 
+      SUBROUTINE cxios_context_get_id(context, idt, idt_size) BIND(C)
+         import C_CHAR, C_INTPTR_T, C_INT
+         INTEGER (kind = C_INTPTR_T) :: context
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
+         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
+     END SUBROUTINE cxios_context_get_id
+
       SUBROUTINE cxios_context_set_current(context, withswap) BIND(C)
          import C_BOOL, C_INT, C_INTPTR_T