- Timestamp:
- 2019-11-07T12:27:28+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/iceupdate.F90
r11840 r11870 448 448 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 449 449 ! 450 IF(lwxios) CALL iom_swap( cw ixios_context )450 IF(lwxios) CALL iom_swap( cwxios_context ) 451 451 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass' , snwice_mass, ldxios = lwxios ) 452 452 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b, ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.