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

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/DIA/diahsb.F90

@@ -256 +256 @@
       IF( TRIM(cdrw) == 'READ' ) THEN        ! Read/initialise 
          IF( ln_rstart ) THEN                   !* Read the restart file
+            IF(lrxios) CALL iom_swap(crxios_context)
             !
             IF(lwp) WRITE(numout,*)
@@ -276 +277 @@
                CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini, ldxios = lrxios )
             ENDIF
+            IF(lrxios) CALL iom_swap(cxios_context)
          ELSE
             IF(lwp) WRITE(numout,*)
@@ -377 +379 @@
       IF(lwxios) THEN
 ! define variables in restart file when writing with XIOS
-        CALL iom_set_rstw_var_active('frc_v')
-        CALL iom_set_rstw_var_active('frc_t')
-        CALL iom_set_rstw_var_active('frc_s')
-        CALL iom_set_rstw_var_active('surf_ini')
-        CALL iom_set_rstw_var_active('ssh_ini')
-        CALL iom_set_rstw_var_active('e3t_ini')
-        CALL iom_set_rstw_var_active('hc_loc_ini')
-        CALL iom_set_rstw_var_active('sc_loc_ini')
+        CALL iom_set_rstw_var_active(rst_wfields, 'frc_v')
+        CALL iom_set_rstw_var_active(rst_wfields, 'frc_t')
+        CALL iom_set_rstw_var_active(rst_wfields, 'frc_s')
+        CALL iom_set_rstw_var_active(rst_wfields, 'surf_ini')
+        CALL iom_set_rstw_var_active(rst_wfields, 'ssh_ini')
+        CALL iom_set_rstw_var_active(rst_wfields, 'e3t_ini')
+        CALL iom_set_rstw_var_active(rst_wfields, 'hc_loc_ini')
+        CALL iom_set_rstw_var_active(rst_wfields, 'sc_loc_ini')
         IF( ln_linssh ) THEN
-           CALL iom_set_rstw_var_active('ssh_hc_loc_ini')
-           CALL iom_set_rstw_var_active('ssh_sc_loc_ini')
-           CALL iom_set_rstw_var_active('frc_wn_t')
-           CALL iom_set_rstw_var_active('frc_wn_s')
+           CALL iom_set_rstw_var_active(rst_wfields, 'ssh_hc_loc_ini')
+           CALL iom_set_rstw_var_active(rst_wfields, 'ssh_sc_loc_ini')
+           CALL iom_set_rstw_var_active(rst_wfields, 'frc_wn_t')
+           CALL iom_set_rstw_var_active(rst_wfields, 'frc_wn_s')
         ENDIF
       ENDIF