- 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/icedyn_rhg_evp.F90
r11840 r11870 870 870 !!---------------------------------------------------------------------- 871 871 ! 872 IF(lwxios) THEN 873 CALL iom_set_rstw_var_active(rsti_wfields, 'stress1_i' ) 874 CALL iom_set_rstw_var_active(rsti_wfields, 'stress2_i' ) 875 CALL iom_set_rstw_var_active(rsti_wfields, 'stress12_i') 876 ENDIF 877 872 878 IF( TRIM(cdrw) == 'READ' ) THEN ! Read/initialize 873 879 ! ! --------------- 874 IF(lwxios) THEN875 CALL iom_set_rstw_var_active(rsti_wfields, 'stress1_i' )876 CALL iom_set_rstw_var_active(rsti_wfields, 'stress2_i' )877 CALL iom_set_rstw_var_active(rsti_wfields, 'stress12_i')878 ENDIF879 !880 880 IF( ln_rstart ) THEN !* Read the restart file 881 881 ! … … 910 910 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 911 911 ! 912 IF(lwxios) CALL iom_swap( TRIM(cw ixios_context) )912 IF(lwxios) CALL iom_swap( TRIM(cwxios_context) ) 913 913 CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i, ldxios = lwxios ) 914 914 CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i, ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.