- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r8215 r8568 157 157 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 158 158 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 159 & nn_timing, nn_diacfl159 & ln_timing, ln_diacfl 160 160 161 161 NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_write_cfg, cn_domcfg_out, ln_use_jattr … … 289 289 ENDIF 290 290 ! 291 IF( nn_timing == 1 )CALL timing_init291 IF( ln_timing ) CALL timing_init 292 292 ! 293 293 294 294 ! ! General initialization 295 IF( nn_timing == 1 )CALL timing_start( 'nemo_init')296 ! 297 298 299 IF( lk_c1d 300 301 302 303 304 305 IF( ln_nnogather ) 306 307 IF( ln_ctl 308 309 310 311 312 313 314 IF( l_ldfslp )CALL ldf_slp_init ! slope of lateral mixing315 316 317 IF( ln_trabbl 318 319 320 321 322 323 324 295 IF( ln_timing ) CALL timing_start( 'nemo_init') 296 ! 297 CALL phy_cst ! Physical constants 298 CALL eos_init ! Equation of state 299 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 300 301 CALL dom_init ! Domain 302 303 CALL istate_init ! ocean initial state (Dynamics and tracers) 304 305 IF( ln_nnogather ) CALL nemo_northcomms ! Initialise the northfold neighbour lists (must be done after the masks are defined) 306 307 IF( ln_ctl ) CALL prt_ctl_init ! Print control 308 309 CALL sbc_init ! Forcings : surface module 310 311 CALL ldf_tra_init ! Lateral ocean tracer physics 312 CALL ldf_eiv_init ! Eddy induced velocity param 313 CALL tra_ldf_init ! lateral mixing 314 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing 315 316 CALL tra_qsr_init ! penetrative solar radiation qsr 317 IF( ln_trabbl ) CALL tra_bbl_init ! advective (and/or diffusive) bottom boundary layer scheme 318 319 CALL trc_nam_run ! Needed to get restart parameters for passive tracers 320 CALL trc_rst_cal( nit000, 'READ' ) ! calendar 321 CALL dta_dyn_init ! Initialization for the dynamics 322 323 CALL trc_init ! Passive tracers initialization 324 CALL dia_ptr_init ! Initialise diaptr as some variables are used 325 325 ! ! in various advection and diffusion routines 326 326 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 327 327 ! 328 IF( nn_timing == 1 )CALL timing_stop( 'nemo_init')328 IF( ln_timing ) CALL timing_stop( 'nemo_init') 329 329 ! 330 330 END SUBROUTINE nemo_init … … 353 353 WRITE(numout,*) ' number of proc. following i nn_isplt = ', nn_isplt 354 354 WRITE(numout,*) ' number of proc. following j nn_jsplt = ', nn_jsplt 355 WRITE(numout,*) ' timing activated (0/1) nn_timing = ', nn_timing 355 WRITE(numout,*) ' timing by routine ln_timing = ', ln_timing 356 WRITE(numout,*) ' CFL diagnostics ln_diacfl = ', ln_diacfl 356 357 ENDIF 357 358 ! … … 363 364 isplt = nn_isplt 364 365 jsplt = nn_jsplt 366 !!gm to be remove at the end of the 2017 merge party 367 if( ln_timing ) then ; nn_timing = 1 368 else ; nn_timing = 0 369 endif 370 !!gm end 365 371 366 372
Note: See TracChangeset
for help on using the changeset viewer.