Changeset 12489 for NEMO/trunk/src/OCE/DOM/domain.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domain.F90
r12377 r12489 287 287 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl , & 288 288 & nn_it000, nn_itend , nn_date0 , nn_time0 , nn_leapy , nn_istate , & 289 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, nn_euler ,&289 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, ln_1st_euler , & 290 290 & ln_cfmeta, ln_xios_read, nn_wxios 291 NAMELIST/namdom/ ln_linssh, rn_ rdt, rn_atfp, ln_crs, ln_meshmask291 NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_meshmask 292 292 #if defined key_netcdf4 293 293 NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip … … 317 317 WRITE(numout,*) ' restart output directory cn_ocerst_outdir= ', TRIM( cn_ocerst_outdir ) 318 318 WRITE(numout,*) ' restart logical ln_rstart = ', ln_rstart 319 WRITE(numout,*) ' start with forward time step nn_euler = ', nn_euler319 WRITE(numout,*) ' start with forward time step ln_1st_euler = ', ln_1st_euler 320 320 WRITE(numout,*) ' control of time step nn_rstctl = ', nn_rstctl 321 321 WRITE(numout,*) ' number of the first time step nn_it000 = ', nn_it000 … … 353 353 nleapy = nn_leapy 354 354 ninist = nn_istate 355 neuler = nn_euler356 IF( neuler == 1.AND. .NOT. ln_rstart ) THEN355 l_1st_euler = ln_1st_euler 356 IF( .NOT. l_1st_euler .AND. .NOT. ln_rstart ) THEN 357 357 IF(lwp) WRITE(numout,*) 358 358 IF(lwp) WRITE(numout,*)' ==>>> Start from rest (ln_rstart=F)' 359 IF(lwp) WRITE(numout,*)' an Euler initial time step is used : nn_euler is forced to 0'360 neuler = 0359 IF(lwp) WRITE(numout,*)' an Euler initial time step is used : l_1st_euler is forced to .true. ' 360 l_1st_euler = .true. 361 361 ENDIF 362 362 ! ! control of output frequency … … 408 408 WRITE(numout,*) ' linear free surface (=T) ln_linssh = ', ln_linssh 409 409 WRITE(numout,*) ' create mesh/mask file ln_meshmask = ', ln_meshmask 410 WRITE(numout,*) ' ocean time step rn_ rdt = ', rn_rdt410 WRITE(numout,*) ' ocean time step rn_Dt = ', rn_Dt 411 411 WRITE(numout,*) ' asselin time filter parameter rn_atfp = ', rn_atfp 412 412 WRITE(numout,*) ' online coarsening of dynamical fields ln_crs = ', ln_crs 413 413 ENDIF 414 414 ! 415 ! ! conversion DOCTOR names into model names (this should disappear soon)416 atfp = rn_atfp417 r dt = rn_rdt415 !! Initialise current model timestep rDt = 2*rn_Dt if MLF or rDt = rn_Dt if RK3 416 rDt = 2._wp * rn_Dt 417 r1_Dt = 1._wp / rDt 418 418 419 419 IF( TRIM(Agrif_CFixed()) == '0' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.