Changeset 7924 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
- Timestamp:
- 2017-04-18T15:42:46+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r6491 r7924 38 38 USE timing ! Timing 39 39 USE lbclnk ! ocean lateral boundary condition (or mpp link) 40 USE iom_def, ONLY:lxios_read 40 41 41 42 IMPLICIT NONE … … 138 139 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl, & 139 140 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & 140 & nn_write, ln_dimgnnn, ln_mskland , ln_cfmeta , ln_clobber, nn_chunksz, nn_euler 141 & nn_write, ln_dimgnnn, ln_mskland , ln_cfmeta , ln_clobber, nn_chunksz, nn_euler, & 142 & lr_xios 141 143 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 142 144 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & … … 193 195 WRITE(numout,*) ' overwrite an existing file ln_clobber = ', ln_clobber 194 196 WRITE(numout,*) ' NetCDF chunksize (bytes) nn_chunksz = ', nn_chunksz 197 WRITE(numout,*) ' READ restart for a single file using XIOS = ', lr_xios 195 198 ENDIF 196 199 … … 207 210 nwrite = nn_write 208 211 neuler = nn_euler 212 lxios_read = lr_xios 209 213 IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 210 214 WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
Note: See TracChangeset
for help on using the changeset viewer.