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

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/DYN/dynspg_ts.F90

@@ -934 +934 @@
       IF( TRIM(cdrw) == 'READ' ) THEN        ! Read/initialise 
          !                                   ! ---------------
+         IF(lrxios) CALL iom_swap(crxios_context)
          IF( ln_rstart .AND. ln_bt_fw .AND. (neuler/=0) ) THEN    !* Read the restart file
             CALL iom_get( numror, jpdom_autoglo, 'ub2_b'  , ub2_b  (:,:), ldxios = lrxios )   
@@ -954 +955 @@
             ENDIF
 #endif
+         IF(lrxios) CALL iom_swap(cxios_context)
+         !
          ELSE                                   !* Start from rest
             IF(lwp) WRITE(numout,*)
@@ -1089 +1092 @@
       IF( lwxios ) THEN
 ! define variables in restart file when writing with XIOS
-         CALL iom_set_rstw_var_active('ub2_b')
-         CALL iom_set_rstw_var_active('vb2_b')
-         CALL iom_set_rstw_var_active('un_bf')
-         CALL iom_set_rstw_var_active('vn_bf')
+         CALL iom_set_rstw_var_active(rst_wfields, 'ub2_b')
+         CALL iom_set_rstw_var_active(rst_wfields, 'vb2_b')
+         CALL iom_set_rstw_var_active(rst_wfields, 'un_bf')
+         CALL iom_set_rstw_var_active(rst_wfields, 'vn_bf')
          !
          IF (.NOT.ln_bt_av) THEN
-            CALL iom_set_rstw_var_active('sshbb_e')
-            CALL iom_set_rstw_var_active('ubb_e')
-            CALL iom_set_rstw_var_active('vbb_e')
-            CALL iom_set_rstw_var_active('sshb_e')
-            CALL iom_set_rstw_var_active('ub_e')
-            CALL iom_set_rstw_var_active('vb_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'sshbb_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'ubb_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'vbb_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'sshb_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'ub_e')
+            CALL iom_set_rstw_var_active(rst_wfields, 'vb_e')
          ENDIF
 #if defined key_agrif
          ! Save time integrated fluxes
          IF ( .NOT.Agrif_Root() ) THEN
-            CALL iom_set_rstw_var_active('ub2_i_b')
-            CALL iom_set_rstw_var_active('vb2_i_b')
+            CALL iom_set_rstw_var_active(rst_wfields, 'ub2_i_b')
+            CALL iom_set_rstw_var_active(rst_wfields, 'vb2_i_b')
          ENDIF
 #endif