Changeset 11837 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/ZDF/zdfosm.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/zdfosm.F90 (modified) (3 diffs)

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

@@ -1510 +1510 @@
      !
      IF( lwxios ) THEN
-        CALL iom_set_rstw_var_active('wn')
-        CALL iom_set_rstw_var_active('hbl')
-        CALL iom_set_rstw_var_active('hbli')
+        CALL iom_set_rstw_var_active(rst_wfields, 'wn')
+        CALL iom_set_rstw_var_active(rst_wfields, 'hbl')
+        CALL iom_set_rstw_var_active(rst_wfields, 'hbli')
      ENDIF
    END SUBROUTINE zdf_osm_init
@@ -1543 +1543 @@
      !!-----------------------------------------------------------------------------
      IF( TRIM(cdrw) == 'READ'.AND. ln_rstart) THEN
+        IF(lrxios) CALL iom_swap(crxios_context)
         id1 = iom_varid( numror, 'wn'   , ldstop = .FALSE. )
         IF( id1 > 0 ) THEN                       ! 'wn' exists; read
@@ -1561 +1562 @@
            WRITE(numout,*) ' ===>>>> : previous run without osmosis scheme, hbl computed from stratification'
         END IF
+        IF(lrxios) CALL iom_swap(cxios_context)
      END IF