Changeset 11923 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/tests/VORTEX

Timestamp:

2019-11-18T09:38:39+01:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2323 all other SETTE/tests configurations

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/tests/VORTEX/MY_SRC/domvvl.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/tests/VORTEX/MY_SRC/domvvl.F90

@@ -247 +247 @@
       IF(lwxios) THEN
 ! define variables in restart file when writing with XIOS
-         CALL iom_set_rstw_var_active('e3t_b')
-         CALL iom_set_rstw_var_active('e3t_n')
+         CALL iom_set_rstw_var_active(rst_wfields, 'e3t_b')
+         CALL iom_set_rstw_var_active(rst_wfields, 'e3t_n')
          !                                           ! ----------------------- !
          IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases !
             !                                        ! ----------------------- !
-            CALL iom_set_rstw_var_active('tilde_e3t_b')
-            CALL iom_set_rstw_var_active('tilde_e3t_n')
+            CALL iom_set_rstw_var_active(rst_wfields, 'tilde_e3t_b')
+            CALL iom_set_rstw_var_active(rst_wfields, 'tilde_e3t_n')
          END IF
          !                                           ! -------------!    
          IF( ln_vvl_ztilde ) THEN                    ! z_tilde case !
             !                                        ! ------------ !
-            CALL iom_set_rstw_var_active('hdiv_lf')
+            CALL iom_set_rstw_var_active(rst_wfields, 'hdiv_lf')
          ENDIF
          !
@@ -806 +806 @@
          IF( ln_rstart ) THEN                   !* Read the restart file
             CALL rst_read_open                  !  open the restart file if necessary
+            IF(lrxios) CALL iom_swap(crxios_context)
             CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lrxios    )
             !
@@ -881 +882 @@
             ENDIF
             !
+            IF(lrxios) CALL iom_swap(cxios_context)
+            !
          ELSE                                   !* Initialize at "rest"
             !