Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/closea.F90

Timestamp:

2020-06-03T12:48:36+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2475 implementation of new interface

File:

• NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/closea.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/closea.F90

@@ -20 +20 @@
    !!----------------------------------------------------------------------
    USE in_out_manager  ! I/O manager
+   USE iom_def
    !
    USE diu_bulk    , ONLY: ln_diurnal_only            ! used for sanity check
-   USE iom         , ONLY: iom_open, iom_get, iom_close, jpdom_data ! I/O routines
+   USE iom         , ONLY: iom_open, iom_get, iom_close, jpdom_data, iom_swap ! I/O routines
    USE lib_fortran , ONLY: glob_sum                   ! fortran library
    USE lib_mpp     , ONLY: mpp_max, ctl_nam, ctl_stop ! MPP library
@@ -235 +236 @@
       !!----------------------------------------------------------------------
       !
+      IF(lcfg_xios) CALL iom_swap("dom_context")
+
       CALL iom_open ( cd_file, ics )
-      CALL iom_get  ( ics, jpdom_data, TRIM(cd_var), zdta )
+      CALL iom_get  ( ics, jpdom_data, TRIM(cd_var), zdta,  ldxios = lcfg_xios )
+
       CALL iom_close( ics )
       k_mskout(:,:) = NINT(zdta(:,:))