- Timestamp:
- 2017-10-20T10:04:07+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r8630 r8644 47 47 USE wrk_nemo ! Memory Allocation 48 48 USE timing ! Timing 49 USE iom_def, ONLY:lwxios, wxioso ! write restart flag and output type 49 USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type 50 USE iom, ONLY : set_rst_vars, set_rstw_core 50 51 IMPLICIT NONE 51 52 PRIVATE … … 201 202 IF( nn_timing == 1 ) CALL timing_stop('dom_init') 202 203 ! 204 IF( lwxios ) THEN 205 !define names for restart write 206 CALL set_rst_vars(rst_wfields) 207 CALL set_rstw_core() 208 ENDIF 203 209 END SUBROUTINE dom_init 204 210 … … 334 340 WRITE(numout,*) ' NetCDF chunksize (bytes) nn_chunksz = ', nn_chunksz 335 341 WRITE(numout,*) ' IS coupling at the restart step ln_iscpl = ', ln_iscpl 336 WRITE(numout,*) ' Write restart using XIOS nn_wxios = ', nn_wxios337 342 IF( TRIM(Agrif_CFixed()) == '0' ) & 338 343 & WRITE(numout,*) ' Write restart using XIOS nn_wxios = ', nn_wxios
Note: See TracChangeset
for help on using the changeset viewer.