- Timestamp:
- 2020-12-01T09:21:09+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/ICE/iceupdate.F90
r13871 r13932 427 427 ! 428 428 IF( id1 > 0 ) THEN ! fields exist 429 IF(lrxios) CALL iom_swap(cr_icerst_cxt) 430 CALL iom_get( numrir, jpdom_auto, 'snwice_mass' , snwice_mass , ldxios = lrxios ) 431 CALL iom_get( numrir, jpdom_auto, 'snwice_mass_b', snwice_mass_b, ldxios = lrxios ) 432 IF(lrxios) CALL iom_swap(cxios_context) 429 CALL iom_get( numrir, jpdom_auto, 'snwice_mass' , snwice_mass ) 430 CALL iom_get( numrir, jpdom_auto, 'snwice_mass_b', snwice_mass_b ) 433 431 ELSE ! start from rest 434 432 IF(lwp) WRITE(numout,*) ' ==>> previous run without snow-ice mass output then set it' … … 447 445 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 448 446 ! 449 IF( lwxios ) CALL iom_swap( cw_icerst_cxt ) 450 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass' , snwice_mass, ldxios = lwxios ) 451 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b, ldxios = lwxios ) 452 IF( lwxios ) CALL iom_swap( cxios_context ) 447 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass' , snwice_mass ) 448 CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b ) 453 449 ! 454 450 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.