- Timestamp:
- 2018-02-28T17:23:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r9104 r9367 105 105 CALL ric_rst( nit000, 'READ' ) !* read or initialize all required files 106 106 ! 107 IF( lwxios ) THEN 108 CALL iom_set_rstw_var_active('avt_k') 109 CALL iom_set_rstw_var_active('avm_k') 110 ENDIF 107 111 END SUBROUTINE zdf_ric_init 108 112 … … 222 226 ! 223 227 IF( MIN( id1, id2 ) > 0 ) THEN ! restart exists => read it 224 CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k )225 CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k )228 CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k, ldxios = lrxios ) 229 CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lrxios ) 226 230 ENDIF 227 231 ENDIF … … 231 235 ! ! ------------------- 232 236 IF(lwp) WRITE(numout,*) '---- ric-rst ----' 233 CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k ) 234 CALL iom_rstput( kt, nitrst, numrow, 'avm_k', avm_k ) 237 IF( lwxios ) CALL iom_swap( cwxios_context ) 238 CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios ) 239 CALL iom_rstput( kt, nitrst, numrow, 'avm_k', avm_k, ldxios = lwxios) 240 IF( lwxios ) CALL iom_swap( cxios_context ) 235 241 ! 236 242 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.