- Timestamp:
- 2017-10-11T13:03:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7822 r8612 47 47 USE wrk_nemo ! Memory Allocation 48 48 USE timing ! Timing 49 USE iom_def, ONLY : lxios_read 49 50 50 51 IMPLICIT NONE … … 285 286 & nn_it000, nn_itend , nn_date0 , nn_time0 , nn_leapy , nn_istate , & 286 287 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, nn_euler , & 287 & ln_cfmeta, ln_iscpl 288 & ln_cfmeta, ln_iscpl, ln_xios_read 288 289 NAMELIST/namdom/ ln_linssh, nn_closea, nn_msh, rn_isfhmin, rn_rdt, rn_atfp, ln_crs 289 290 #if defined key_netcdf4 … … 293 294 !!---------------------------------------------------------------------- 294 295 ! 296 ln_xios_read = .false. ! set in case ln_xios_read is not in namelist 295 297 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 296 298 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) … … 333 335 WRITE(numout,*) ' NetCDF chunksize (bytes) nn_chunksz = ', nn_chunksz 334 336 WRITE(numout,*) ' IS coupling at the restart step ln_iscpl = ', ln_iscpl 337 WRITE(numout,*) ' READ restart for a single file using XIOS ln_xios_read =', ln_xios_read 338 IF( TRIM(Agrif_CFixed()) == '0') THEN 339 WRITE(numout,*) ' READ restart for a single file using XIOS WILL use not use AGRIF setting.' 340 ENDIF 335 341 ENDIF 336 342 … … 347 353 nwrite = nn_write 348 354 neuler = nn_euler 355 IF( TRIM(Agrif_CFixed()) == '0') THEN 356 lxios_read = ln_xios_read.AND.ln_rstart 357 ENDIF 349 358 IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 350 359 WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
Note: See TracChangeset
for help on using the changeset viewer.