Changeset 12904

Timestamp:

2020-05-11T18:04:16+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2458 fix for the problem

File:

• NEMO/branches/2020/dev_r40_XIOS_OASIS/src/OCE/SBC/cpl_oasis3.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r40_XIOS_OASIS/src/OCE/SBC/cpl_oasis3.F90

@@ -27 +27 @@
 #if defined key_oasis3
    USE mod_oasis                    ! OASIS3-MCT module
+#if defined key_iomput
+   USE xios, ONLY:xios_oasis_enddef 
+#endif 
 #endif
    USE par_oce                      ! ocean parameters
@@ -310 +313 @@
       IF( agrif_fixed() == Agrif_Nb_Fine_Grids() ) THEN
 #endif
+#if defined key_iomput
+      CALL xios_oasis_enddef() 
+#endif 
       CALL oasis_enddef(nerror)
       IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef')