Changeset 8263 for branches/UKMO/AMM15_v3_6_STABLE_package_debug
- Timestamp:
- 2017-06-30T16:16:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r8262 r8263 409 409 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 410 410 411 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation412 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays413 IF( lk_bdy .AND. lk_tide ) &414 & CALL bdytide_init ! Open boundaries initialisation of tidal harmonic forcing415 416 CALL dyn_nept_init ! simplified form of Neptune effect411 !IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 412 !IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays 413 !IF( lk_bdy .AND. lk_tide ) & 414 ! & CALL bdytide_init ! Open boundaries initialisation of tidal harmonic forcing 415 416 ! CALL dyn_nept_init ! simplified form of Neptune effect 417 417 ! 418 418 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid … … 445 445 ! ! Dynamics 446 446 IF( lk_c1d ) CALL dyn_dmp_init ! internal damping trends- momentum 447 CALL dyn_adv_init ! advection (vector or flux form)448 CALL dyn_vor_init ! vorticity term including Coriolis449 CALL dyn_ldf_init ! lateral mixing450 CALL dyn_hpg_init ! horizontal gradient of Hydrostatic pressure451 CALL dyn_zdf_init ! vertical diffusion452 CALL dyn_spg_init ! surface pressure gradient447 ! CALL dyn_adv_init ! advection (vector or flux form) 448 ! CALL dyn_vor_init ! vorticity term including Coriolis 449 ! CALL dyn_ldf_init ! lateral mixing 450 ! CALL dyn_hpg_init ! horizontal gradient of Hydrostatic pressure 451 ! CALL dyn_zdf_init ! vertical diffusion 452 ! CALL dyn_spg_init ! surface pressure gradient 453 453 454 454 ! ! Misc. options 455 455 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 456 456 ! CALL icb_init( rdt, nit000) ! initialise icebergs instance 457 CALL sto_par_init ! Stochastic parametrization457 ! CALL sto_par_init ! Stochastic parametrization 458 458 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 459 459 … … 465 465 IF( lk_floats ) CALL flo_init ! drifting Floats 466 466 IF( lk_diaar5 ) CALL dia_ar5_init ! ar5 diag 467 CALL dia_ptr_init ! Poleward TRansports initialization467 ! CALL dia_ptr_init ! Poleward TRansports initialization 468 468 IF( lk_diadct ) CALL dia_dct_init ! Sections tranports 469 CALL dia_hsb_init ! heat content, salt content and volume budgets469 ! CALL dia_hsb_init ! heat content, salt content and volume budgets 470 470 ! CALL trd_init ! Mixed-layer/Vorticity/Integral constraints trends 471 471 IF( lk_diaobs ) THEN ! Observation & model comparison … … 477 477 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 478 478 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 479 CALL dia_tmb_init ! TMB outputs480 CALL dia_25h_init ! 25h mean outputs479 ! CALL dia_tmb_init ! TMB outputs 480 ! CALL dia_25h_init ! 25h mean outputs 481 481 ! 482 482 END SUBROUTINE nemo_init
Note: See TracChangeset
for help on using the changeset viewer.