Changeset 8193 for branches/UKMO/dev_r5518_GO6_package_fix_rnf_MOCI_TEST_SUITE/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
- Timestamp:
- 2017-06-20T10:46:27+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
r8191 r8193 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, & 141 & ln_xios_read 140 & nn_write, ln_dimgnnn, ln_mskland , ln_cfmeta , ln_clobber, nn_chunksz, nn_euler 142 141 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 143 142 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & … … 153 152 INTEGER :: ios ! Local integer output status for namelist read 154 153 !!---------------------------------------------------------------------- 155 ln_xios_read = .false. ! set in case ln_xios_read is not in namelist 154 156 155 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 157 156 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) … … 194 193 WRITE(numout,*) ' overwrite an existing file ln_clobber = ', ln_clobber 195 194 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_read197 195 ENDIF 198 196 … … 209 207 nwrite = nn_write 210 208 neuler = nn_euler 211 lxios_read = ln_xios_read212 209 IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 213 210 WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
Note: See TracChangeset
for help on using the changeset viewer.