Changeset 2121 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran/icontext.F90

Timestamp:

03/30/21 18:25:37 (3 years ago)

Author:

ymipsl

Message:

Merge fortran interface functionnalities from trunk :

• sendField & recvField with field handle
• getCurrentContext

YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran/icontext.F90 (modified) (2 diffs)

XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran/icontext.F90

@@ -17 +17 @@
    END INTERFACE xios(set_current_context)
 
+   INTERFACE xios(get_current_context)
+      MODULE PROCEDURE xios(get_current_context_hdl), xios(get_current_context_id)
+   END INTERFACE xios(get_current_context)
+
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
 
@@ -27 +31 @@
    END SUBROUTINE xios(get_context_handle)
 
-   SUBROUTINE xios(get_current_context)(context)
+   SUBROUTINE xios(get_current_context_hdl)(context)
       IMPLICIT NONE
 
-      TYPE(txios(context)), INTENT(IN) :: context
+      TYPE(txios(context)), INTENT(OUT) :: context
 
       CALL cxios_context_get_current(context%daddr)
 
-   END SUBROUTINE xios(get_current_context)
+   END SUBROUTINE xios(get_current_context_hdl)
 
+   SUBROUTINE xios(get_current_context_id)(idt)
+      IMPLICIT NONE
+      CHARACTER(len = *) , INTENT(OUT) :: idt
+      TYPE(txios(context)) :: context
+
+      CALL cxios_context_get_current(context%daddr)
+      CALL cxios_context_get_id(context%daddr, idt, len(idt))
+
+   END SUBROUTINE xios(get_current_context_id)
+   
    SUBROUTINE xios(set_current_context_hdl)(context, withswap)
       IMPLICIT NONE