Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ZDF/zdftke.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/ZDF/zdftke.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ZDF/zdftke.F90

@@ -665 +665 @@
          !                                   ! ---------------
          IF( ln_rstart ) THEN                   !* Read the restart file
+            IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
             id1 = iom_varid( numror, 'en'   , ldstop = .FALSE. )
             id2 = iom_varid( numror, 'avt_k', ldstop = .FALSE. )
@@ -682 +683 @@
                ! avt_k, avm_k already set to the background value in zdf_phy_init
             ENDIF
+            IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   !* Start from rest
             IF(lwp) WRITE(numout,*)