- 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/RK3_SRC/nemogcm.F90
r8367 r8568 206 206 #if defined key_agrif 207 207 IF( .NOT. Agrif_Root() ) THEN 208 CALL Agrif_ParentGrid_To_ChildGrid()209 IF( ln_diaobs ) CALL dia_obs_wri210 IF( nn_timing == 1) CALL timing_finalize211 212 ENDIF 213 #endif 214 IF( nn_timing == 1) CALL timing_finalize208 CALL Agrif_ParentGrid_To_ChildGrid() 209 IF( ln_diaobs ) CALL dia_obs_wri 210 IF( ln_timing ) CALL timing_finalize 211 CALL Agrif_ChildGrid_To_ParentGrid() 212 ENDIF 213 #endif 214 IF( ln_timing ) CALL timing_finalize 215 215 ! 216 216 CALL nemo_closefile … … 242 242 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 243 243 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 244 & nn_timing, nn_diacfl244 & ln_timing, ln_diacfl 245 245 NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_write_cfg, cn_domcfg_out, ln_use_jattr 246 246 !!---------------------------------------------------------------------- … … 416 416 ENDIF 417 417 ! 418 IF( nn_timing == 1 )CALL timing_init418 IF( ln_timing ) CALL timing_init 419 419 ! 420 420 ! ! General initialization 421 422 423 IF( lk_c1d 424 425 426 IF( ln_crs 427 IF( ln_nnogather ) 428 IF( ln_ctl 421 CALL phy_cst ! Physical constants 422 CALL eos_init ! Equation of state 423 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 424 CALL wad_init ! Wetting and drying options 425 CALL dom_init ! Domain 426 IF( ln_crs ) CALL crs_init ! coarsened grid: domain initialization 427 IF( ln_nnogather ) CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 428 IF( ln_ctl ) CALL prt_ctl_init ! Print control 429 429 430 430 CALL diurnal_sst_bulk_init ! diurnal sst … … 432 432 433 433 ! IF ln_diurnal_only, then we only want a subset of the initialisation routines 434 IF 434 IF( ln_diurnal_only ) THEN 435 435 CALL istate_init ! ocean initial state (Dynamics and tracers) 436 436 CALL sbc_init ! Forcings : surface module 437 437 CALL tra_qsr_init ! penetrative solar radiation qsr 438 IF( ln_diaobs ) THEN! Observation & model comparison439 CALL dia_obs_init ! Initialize observational data440 CALL dia_obs( nit000 - 1 ) ! Observation operator for restart438 IF( ln_diaobs ) THEN ! Observation & model comparison 439 CALL dia_obs_init ! Initialize observational data 440 CALL dia_obs( nit000 - 1 ) ! Observation operator for restart 441 441 ENDIF 442 442 ! ! Assimilation increments 443 IF( lk_asminc 443 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 444 444 445 445 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler … … 447 447 ENDIF 448 448 449 449 CALL istate_init ! ocean initial state (Dynamics and tracers) 450 450 451 451 ! ! external forcing 452 452 !!gm to be added : creation and call of sbc_apr_init 453 454 455 453 CALL tide_init ! tidal harmonics 454 CALL sbc_init ! surface boundary conditions (including sea-ice) 455 CALL bdy_init ! Open boundaries initialisation 456 456 457 457 ! ! Ocean physics 458 CALL zdf_phy_init! Vertical physics458 CALL zdf_phy_init ! Vertical physics 459 459 460 460 ! ! Lateral physics 461 462 463 461 CALL ldf_tra_init ! Lateral ocean tracer physics 462 CALL ldf_eiv_init ! eddy induced velocity param. 463 CALL ldf_dyn_init ! Lateral ocean momentum physics 464 464 465 465 ! ! Active tracers 466 467 468 IF( ln_trabbl 469 470 471 466 CALL tra_qsr_init ! penetrative solar radiation qsr 467 CALL tra_bbc_init ! bottom heat flux 468 IF( ln_trabbl ) CALL tra_bbl_init ! advective (and/or diffusive) bottom boundary layer scheme 469 CALL tra_dmp_init ! internal tracer damping 470 CALL tra_adv_init ! horizontal & vertical advection 471 CALL tra_ldf_init ! lateral mixing 472 472 473 473 ! ! Dynamics 474 IF( lk_c1d 475 476 477 478 479 474 IF( lk_c1d ) CALL dyn_dmp_init ! internal momentum damping 475 CALL dyn_adv_init ! advection (vector or flux form) 476 CALL dyn_vor_init ! vorticity term including Coriolis 477 CALL dyn_ldf_init ! lateral mixing 478 CALL dyn_hpg_init ! horizontal gradient of Hydrostatic pressure 479 CALL dyn_spg_init ! surface pressure gradient 480 480 481 481 #if defined key_top 482 482 ! ! Passive tracers 483 484 #endif 485 IF( l_ldfslp ) CALL ldf_slp_init! slope of lateral mixing483 CALL trc_init 484 #endif 485 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing 486 486 487 487 ! ! Icebergs 488 488 CALL icb_init( rdt, nit000) ! initialise icebergs instance 489 489 490 490 ! ! Misc. options 491 CALL sto_par_init! Stochastic parametrization492 IF( ln_sto_eos ) CALL sto_pts_init! RRandom T/S fluctuations491 CALL sto_par_init ! Stochastic parametrization 492 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 493 493 494 494 ! ! Diagnostics 495 IF( lk_floats ) CALL flo_init! drifting Floats496 CALL dia_cfl_init! Initialise CFL diagnostics497 CALL dia_ptr_init! Poleward TRansports initialization498 IF( lk_diadct ) CALL dia_dct_init! Sections tranports499 CALL dia_hsb_init! heat content, salt content and volume budgets500 CALL trd_init! Mixed-layer/Vorticity/Integral constraints trends501 CALL dia_obs_init! Initialize observational data502 IF( ln_diaobs 495 IF( lk_floats ) CALL flo_init ! drifting Floats 496 IF( ln_diacfl ) CALL dia_cfl_init ! Initialise CFL diagnostics 497 CALL dia_ptr_init ! Poleward TRansports initialization 498 IF( lk_diadct ) CALL dia_dct_init ! Sections tranports 499 CALL dia_hsb_init ! heat content, salt content and volume budgets 500 CALL trd_init ! Mixed-layer/Vorticity/Integral constraints trends 501 CALL dia_obs_init ! Initialize observational data 502 IF( ln_diaobs ) CALL dia_obs( nit000 - 1 ) ! Observation operator for restart 503 503 504 504 ! ! Assimilation increments 505 IF( lk_asminc ) CALL asm_inc_init! Initialize assimilation increments505 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 506 506 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 507 CALL dia_tmb_init! TMB outputs508 CALL dia_25h_init! 25h mean outputs507 CALL dia_tmb_init ! TMB outputs 508 CALL dia_25h_init ! 25h mean outputs 509 509 ! 510 510 END SUBROUTINE nemo_init … … 533 533 WRITE(numout,*) ' number of proc. following i nn_isplt = ', nn_isplt 534 534 WRITE(numout,*) ' number of proc. following j nn_jsplt = ', nn_jsplt 535 WRITE(numout,*) ' timing activated (0/1) nn_timing = ', nn_timing 535 WRITE(numout,*) ' timing by routine ln_timing = ', ln_timing 536 WRITE(numout,*) ' CFL diagnostics ln_diacfl = ', ln_diacfl 536 537 ENDIF 537 538 ! … … 543 544 isplt = nn_isplt 544 545 jsplt = nn_jsplt 546 !!gm to be remove at the end of the 2017 merge party 547 if( ln_timing ) then ; nn_timing = 1 548 else ; nn_timing = 0 549 endif 550 !!gm end 551 545 552 546 553 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.