Changeset 15441

Timestamp:

2021-10-25T09:50:12+02:00 (2 years ago)

Author:

jcastill

Message:

Some of the changes are already in the CO9 branch

File:

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

NEMO/branches/UKMO/r14075_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
@@ -310 +313 @@
       IF( agrif_fixed() == Agrif_Nb_Fine_Grids() ) THEN
 #endif
+      ! 
+#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')