- Timestamp:
- 2020-11-25T12:51:29+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedia.F90
r13727 r13871 221 221 IF( ln_rstart ) THEN !* Read the restart file 222 222 ! 223 IF(lr ixios) CALL iom_swap(crixios_context)224 CALL iom_get( numrir, 'kt_ice' , ziter, ldxios = lr ixios )223 IF(lrxios) CALL iom_swap(cr_icerst_cxt) 224 CALL iom_get( numrir, 'kt_ice' , ziter, ldxios = lrxios ) 225 225 IF(lwp) WRITE(numout,*) 226 226 IF(lwp) WRITE(numout,*) 'ice_dia_rst read at time step = ', ziter 227 227 IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 228 CALL iom_get( numrir, 'frc_voltop' , frc_voltop, ldxios = lr ixios )229 CALL iom_get( numrir, 'frc_volbot' , frc_volbot, ldxios = lr ixios )230 CALL iom_get( numrir, 'frc_temtop' , frc_temtop, ldxios = lr ixios )231 CALL iom_get( numrir, 'frc_tembot' , frc_tembot, ldxios = lr ixios )232 CALL iom_get( numrir, 'frc_sal' , frc_sal, ldxios = lr ixios )233 CALL iom_get( numrir, jpdom_auto, 'vol_loc_ini', vol_loc_ini, ldxios = lr ixios )234 CALL iom_get( numrir, jpdom_auto, 'tem_loc_ini', tem_loc_ini, ldxios = lr ixios )235 CALL iom_get( numrir, jpdom_auto, 'sal_loc_ini', sal_loc_ini, ldxios = lr ixios )236 IF(lr ixios) CALL iom_swap(cxios_context)228 CALL iom_get( numrir, 'frc_voltop' , frc_voltop, ldxios = lrxios ) 229 CALL iom_get( numrir, 'frc_volbot' , frc_volbot, ldxios = lrxios ) 230 CALL iom_get( numrir, 'frc_temtop' , frc_temtop, ldxios = lrxios ) 231 CALL iom_get( numrir, 'frc_tembot' , frc_tembot, ldxios = lrxios ) 232 CALL iom_get( numrir, 'frc_sal' , frc_sal, ldxios = lrxios ) 233 CALL iom_get( numrir, jpdom_auto, 'vol_loc_ini', vol_loc_ini, ldxios = lrxios ) 234 CALL iom_get( numrir, jpdom_auto, 'tem_loc_ini', tem_loc_ini, ldxios = lrxios ) 235 CALL iom_get( numrir, jpdom_auto, 'sal_loc_ini', sal_loc_ini, ldxios = lrxios ) 236 IF(lrxios) CALL iom_swap(cxios_context) 237 237 ELSE 238 238 IF(lwp) WRITE(numout,*) … … 263 263 ! Write in numriw (if iter == nitrst) 264 264 ! ------------------ 265 IF( lwxios ) CALL iom_swap( cw ixios_context )265 IF( lwxios ) CALL iom_swap( cw_icerst_cxt ) 266 266 CALL iom_rstput( iter, nitrst, numriw, 'frc_voltop' , frc_voltop, ldxios = lwxios ) 267 267 CALL iom_rstput( iter, nitrst, numriw, 'frc_volbot' , frc_volbot, ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.