- Timestamp:
- 2017-05-08T17:00:32+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r7924 r8001 331 331 CALL iom_get( numror, 'ndastp', zndastp, lrxios = lxios_read ) 332 332 ndastp = NINT( zndastp ) 333 CALL iom_get( numror, 'adatrj', adatrj, lrxios = lxios_read 333 CALL iom_get( numror, 'adatrj', adatrj, lrxios = lxios_read ) 334 334 ELSE 335 335 ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) -
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7924 r8001 140 140 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & 141 141 & nn_write, ln_dimgnnn, ln_mskland , ln_cfmeta , ln_clobber, nn_chunksz, nn_euler, & 142 & l r_xios142 & ln_xios_read 143 143 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 144 144 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & … … 154 154 INTEGER :: ios ! Local integer output status for namelist read 155 155 !!---------------------------------------------------------------------- 156 156 ln_xios_read = .false. ! set in case ln_xios_read is not in namelist 157 157 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 158 158 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) … … 195 195 WRITE(numout,*) ' overwrite an existing file ln_clobber = ', ln_clobber 196 196 WRITE(numout,*) ' NetCDF chunksize (bytes) nn_chunksz = ', nn_chunksz 197 WRITE(numout,*) ' READ restart for a single file using XIOS = ', lr_xios197 WRITE(numout,*) ' READ restart for a single file using XIOS ln_xios_read =', ln_xios_read 198 198 ENDIF 199 199 … … 210 210 nwrite = nn_write 211 211 neuler = nn_euler 212 lxios_read = l r_xios212 lxios_read = ln_xios_read 213 213 IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 214 214 WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
Note: See TracChangeset
for help on using the changeset viewer.