Changeset 8191 for branches/UKMO/dev_r5518_GO6_package_fix_rnf_MOCI_TEST_SUITE/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
- Timestamp:
- 2017-06-19T18:16:30+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_fix_rnf_MOCI_TEST_SUITE/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r6491 r8191 138 138 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl, & 139 139 & 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 140 & nn_write, ln_dimgnnn, ln_mskland , ln_cfmeta , ln_clobber, nn_chunksz, nn_euler, & 141 & ln_xios_read 141 142 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 142 143 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & … … 152 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 !!---------------------------------------------------------------------- 154 155 ln_xios_read = .false. ! set in case ln_xios_read is not in namelist 155 156 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 156 157 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) … … 193 194 WRITE(numout,*) ' overwrite an existing file ln_clobber = ', ln_clobber 194 195 WRITE(numout,*) ' NetCDF chunksize (bytes) nn_chunksz = ', nn_chunksz 196 WRITE(numout,*) ' READ restart for a single file using XIOS ln_xios_read =', ln_xios_read 195 197 ENDIF 196 198 … … 207 209 nwrite = nn_write 208 210 neuler = nn_euler 211 lxios_read = ln_xios_read 209 212 IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 210 213 WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
Note: See TracChangeset
for help on using the changeset viewer.