- Timestamp:
- 2020-05-20T18:53:27+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedyn_rhg_evp.F90
r12489 r12957 839 839 IF( ln_rstart ) THEN !* Read the restart file 840 840 ! 841 IF(lrxios) CALL iom_swap(crixios_context) 841 842 id1 = iom_varid( numrir, 'stress1_i' , ldstop = .FALSE. ) 842 843 id2 = iom_varid( numrir, 'stress2_i' , ldstop = .FALSE. ) … … 844 845 ! 845 846 IF( MIN( id1, id2, id3 ) > 0 ) THEN ! fields exist 846 CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i 847 CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i 848 CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i )847 CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i, ldxios = lrxios ) 848 CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i, ldxios = lrxios ) 849 CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i, ldxios = lrxios ) 849 850 ELSE ! start rheology from rest 850 851 IF(lwp) WRITE(numout,*) … … 854 855 stress12_i(:,:) = 0._wp 855 856 ENDIF 857 IF(lrxios) CALL iom_swap(cxios_context) 856 858 ELSE !* Start from rest 857 859 IF(lwp) WRITE(numout,*) … … 867 869 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 868 870 ! 869 CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i ) 870 CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i ) 871 CALL iom_rstput( iter, nitrst, numriw, 'stress12_i', stress12_i ) 871 IF( lwxios ) CALL iom_swap( cwixios_context ) 872 CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i, ldxios = lwxios ) 873 CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i, ldxios = lwxios ) 874 CALL iom_rstput( iter, nitrst, numriw, 'stress12_i', stress12_i, ldxios = lwxios ) 875 IF( lwxios ) CALL iom_swap( cxios_context ) 872 876 ! 873 877 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.