Changeset 11837 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/ZDF/zdfric.F90

Timestamp:

2019-10-30T15:10:36+01:00 (4 years ago)

Author:

andmirek

Message:

ticket #2323 read SI3 restart with XIOS

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/ZDF/zdfric.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/ZDF/zdfric.F90

@@ -106 +106 @@
       !
       IF( lwxios ) THEN
-         CALL iom_set_rstw_var_active('avt_k')
-         CALL iom_set_rstw_var_active('avm_k')
+         CALL iom_set_rstw_var_active(rst_wfields, 'avt_k')
+         CALL iom_set_rstw_var_active(rst_wfields, 'avm_k')
       ENDIF
    END SUBROUTINE zdf_ric_init
@@ -222 +222 @@
          !           !* Read the restart file
          IF( ln_rstart ) THEN
+            IF(lrxios) CALL iom_swap(crxios_context)
             id1 = iom_varid( numror, 'avt_k', ldstop = .FALSE. )
             id2 = iom_varid( numror, 'avm_k', ldstop = .FALSE. )
@@ -229 +230 @@
                CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lrxios )
             ENDIF
+            IF(lrxios) CALL iom_swap(cxios_context)
          ENDIF
          !           !* otherwise Kz already set to the background value in zdf_phy_init