Changeset 11840 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icedia.F90

Timestamp:

2019-10-31T16:30:50+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323 write SI3 restart with XIOS

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icedia.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icedia.F90

@@ -202 +202 @@
          IF( ice_dia_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'ice_dia_init : unable to allocate arrays' )   ! allocate tke arrays
          CALL ice_dia_rst( 'READ' )   ! read or initialize all required files
+         IF(lwxios) THEN
+            CALL iom_set_rstw_var_active(rsti_wfields, 'frc_voltop' )
+            CALL iom_set_rstw_var_active(rsti_wfields, 'frc_volbot' )
+            CALL iom_set_rstw_var_active(rsti_wfields, 'frc_temtop' )
+            CALL iom_set_rstw_var_active(rsti_wfields, 'frc_tembot' )
+            CALL iom_set_rstw_var_active(rsti_wfields, 'frc_sal'    )
+            CALL iom_set_rstw_var_active(rsti_wfields, 'vol_loc_ini')
+            CALL iom_set_rstw_var_active(rsti_wfields, 'tem_loc_ini')
+            CALL iom_set_rstw_var_active(rsti_wfields, 'sal_loc_ini')
+         ENDIF
       ENDIF
       !
@@ -267 +277 @@
          ! Write in numriw (if iter == nitrst)
          ! ------------------ 
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_voltop' , frc_voltop  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_volbot' , frc_volbot  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_temtop' , frc_temtop  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_tembot' , frc_tembot  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_sal'    , frc_sal     )
-         CALL iom_rstput( iter, nitrst, numriw, 'vol_loc_ini', vol_loc_ini )
-         CALL iom_rstput( iter, nitrst, numriw, 'tem_loc_ini', tem_loc_ini )
-         CALL iom_rstput( iter, nitrst, numriw, 'sal_loc_ini', sal_loc_ini )
+         IF(lwxios) CALL iom_swap(      cwixios_context          )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_voltop' , frc_voltop,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_volbot' , frc_volbot,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_temtop' , frc_temtop,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_tembot' , frc_tembot,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_sal'    , frc_sal,     ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'vol_loc_ini', vol_loc_ini, ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'tem_loc_ini', tem_loc_ini, ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'sal_loc_ini', sal_loc_ini, ldxios = lwxios )
+         IF(lwxios) CALL iom_swap(      cxios_context          )
          !
       ENDIF