Changeset 11840 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/iceupdate.F90

Timestamp:

2019-10-31T16:30:50+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323 write SI3 restart with XIOS

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/iceupdate.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/iceupdate.F90

@@ -398 +398 @@
       !
       CALL update_rst( 'READ' )  !* read or initialize all required files
+      IF( lwxios ) THEN
+         CALL iom_set_rstw_var_active(rsti_wfields, 'snwice_mass')
+         CALL iom_set_rstw_var_active(rsti_wfields, 'snwice_mass_b')
+      ENDIF
       !
    END SUBROUTINE ice_update_init
@@ -444 +448 @@
          iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1
          !
-         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass'  , snwice_mass   )
-         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b )
+         IF(lwxios) CALL iom_swap(      cwixios_context          )
+         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass'  , snwice_mass, ldxios = lwxios   )
+         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b, ldxios = lwxios )
+         IF(lwxios) CALL iom_swap(      cxios_context          )
          !
       ENDIF