Changeset 11405 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/DOM/domvvl.F90

Timestamp:

2019-08-06T15:16:49+02:00 (5 years ago)

Author:

andmirek

Message:

ticket #2195: read weights for blk using XIOS

File:

• NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/DOM/domvvl.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/DOM/domvvl.F90

@@ -806 +806 @@
          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'   , sshn, ldxios = lrxios    )
             !
@@ -881 +882 @@
             ENDIF
             !
+            IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   !* Initialize at "rest"
             !