Changeset 11840 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icestp.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/icestp.F90 (modified) (1 diff)

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

@@ -239 +239 @@
       CALL par_init                ! set some ice run parameters
       !
+      IF(lwxios) THEN
+        CALL iom_set_rst_vars(rsti_wfields)
+        CALL iom_set_rstw_core(rsti_wfields, "SI3")
+      ENDIF
       !                                ! Allocate the ice arrays (sbc_ice already allocated in sbc_init)
       ierr =        ice_alloc        ()      ! ice variables