Changeset 1590 for XIOS/dev/dev_olga/src/interface/fortran/idata.F90

Timestamp:

11/09/18 09:44:17 (6 years ago)

Author:

oabramkina

Message:

Backporting recent changes to dev before merging it to trunk.

File:

• XIOS/dev/dev_olga/src/interface/fortran/idata.F90 (modified) (2 diffs)

XIOS/dev/dev_olga/src/interface/fortran/idata.F90

@@ -42 +42 @@
       END SUBROUTINE cxios_context_finalize
 
-
+      SUBROUTINE  cxios_oasis_enddef() BIND(C)
+         USE ISO_C_BINDING
+      END SUBROUTINE cxios_oasis_enddef
+      
       SUBROUTINE  cxios_finalize() BIND(C)
       END SUBROUTINE cxios_finalize
@@ -507 +510 @@
     END SUBROUTINE  xios(finalize)
 
+   SUBROUTINE  xios(oasis_enddef)
+   IMPLICIT NONE
+
+      CALL cxios_oasis_enddef
+
+    END SUBROUTINE  xios(oasis_enddef)
 
    SUBROUTINE xios(close_context_definition)()