Changeset 1590 for XIOS/dev/dev_olga/src/interface/fortran

Timestamp:

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

Author:

oabramkina

Message:

Backporting recent changes to dev before merging it to trunk.

Location:

XIOS/dev/dev_olga/src/interface/fortran

Files:

• idata.F90 (modified) (2 diffs)
• ixios.F90 (modified) (1 diff)

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)()

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

@@ -13 +13 @@
 
 USE idata, ONLY : xios(initialize), xios(init_server), xios(finalize), xios(context_initialize), xios(context_is_initialized), &
-                  xios(close_context_definition), xios(context_finalize), xios(solve_inheritance)
+                  xios(close_context_definition), xios(context_finalize), xios(solve_inheritance), xios(oasis_enddef)
 
 USE idomain, ONLY : txios(domain), txios(domaingroup), xios(is_valid_domain), xios(is_valid_domaingroup)