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

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

@@ -793 +793 @@
          IF( ln_rstart ) THEN                   !* Read the restart file
             CALL rst_read_open                  !  open the restart file if necessary
+            IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
             CALL iom_get( numror, jpdom_autoglo, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    )
             !
@@ -870 +871 @@
             ENDIF
             !
+            IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   !* Initialize at "rest"
             !