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

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/SAS/daymod.F90

@@ -143 +143 @@
       CALL day( nit000 )
       IF( lwxios ) THEN
-        CALL iom_set_rstw_var_active('kt')
-        CALL iom_set_rstw_var_active('ndastp')
-        CALL iom_set_rstw_var_active('adatrj')
-        CALL iom_set_rstw_var_active('ntime')
+        CALL iom_set_rstw_var_active(rst_wfields, 'kt')
+        CALL iom_set_rstw_var_active(rst_wfields, 'ndastp')
+        CALL iom_set_rstw_var_active(rst_wfields, 'adatrj')
+        CALL iom_set_rstw_var_active(rst_wfields, 'ntime')
       ENDIF
       !
@@ -323 +323 @@
 
          IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN
+            IF(lrxios) CALL iom_swap(crxios_context)
             ! Get Calendar informations
             CALL iom_get( numror, 'kt', zkt, ldxios = lrxios )   ! last time-step of previous run
@@ -379 +380 @@
                ! note this is wrong if time step has changed during run
             ENDIF
+            IF(lrxios) CALL iom_swap(cxios_context)
          ELSE
             ! parameters corresponding to nit000 - 1 (as we start the step loop with a call to day)