Changeset 12821

Timestamp:

2020-04-27T17:00:19+02:00 (3 years ago)

Author:

jcastill

Message:

Changes for xios 2.5, protected by key_xios25

File:

• NEMO/branches/UKMO/r12083_mix-lyr_diag/src/OCE/SBC/cpl_oasis3.F90 (modified) (2 diffs)

NEMO/branches/UKMO/r12083_mix-lyr_diag/src/OCE/SBC/cpl_oasis3.F90

@@ -27 +27 @@
 #if defined key_oasis3
    USE mod_oasis                    ! OASIS3-MCT module
+#endif
+#if defined key_iomput && defined key_xios25
+   USE xios, ONLY:xios_oasis_enddef
 #endif
    USE par_oce                      ! ocean parameters
@@ -306 +309 @@
       ! End of definition phase
       !------------------------------------------------------------------
-      
+      !
+#if defined key_iomput && defined key_xios25
+!needed for XIOS 2.5
+      CALL xios_oasis_enddef()
+#endif
+      !
       CALL oasis_enddef(nerror)
       IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef')