Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (3 years ago)
Author:
gm
Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7931 r7953  
    5555   USE ldfdyn         ! lateral viscosity setting      (ldfdyn_init routine) 
    5656   USE ldftra         ! lateral diffusivity setting    (ldftra_init routine) 
    57    USE zdfini         ! vertical physics setting          (zdf_init routine) 
     57!!gm   USE zdfphy         ! vertical physics manager      (zdf_phy_init routine) 
    5858   USE trdini         ! dyn/tra trends initialization     (trd_init routine) 
    5959   USE asminc         ! assimilation increments      
     
    429429      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    430430       
    431       CALL diurnal_sst_bulk_init            ! diurnal sst 
     431      CALL diurnal_sst_bulk_init             ! diurnal sst 
    432432      IF ( ln_diurnal ) CALL diurnal_sst_coolskin_init   ! cool skin    
    433433       
     
    455455                            CALL     sbc_init   ! surface boundary conditions (including sea-ice) 
    456456                            CALL     bdy_init   ! Open boundaries initialisation 
     457 
    457458      !                                      ! Ocean physics 
    458       !                                         ! Vertical physics 
    459                             CALL     zdf_init      ! namelist read 
    460                             CALL zdf_bfr_init      ! bottom friction 
    461       IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz 
    462       IF( lk_zdftke     )   CALL zdf_tke_init      ! TKE closure scheme 
    463       IF( lk_zdfgls     )   CALL zdf_gls_init      ! GLS closure scheme 
    464       IF( lk_zdftmx     )   CALL zdf_tmx_init      ! tidal vertical mixing 
    465 !!gm      IF( ln_zdfddm     )   CALL zdf_ddm_init      ! double diffusive mixing 
    466           
     459                            CALL zdf_phy_init   ! Vertical physics 
     460                                      
    467461      !                                         ! Lateral physics 
    468462                            CALL ldf_tra_init      ! Lateral ocean tracer physics 
     
    470464                            CALL ldf_dyn_init      ! Lateral ocean momentum physics 
    471465 
    472       !                                         ! Active tracers 
     466      !                                      ! Active tracers 
    473467                            CALL tra_qsr_init      ! penetrative solar radiation qsr 
    474468                            CALL tra_bbc_init      ! bottom heat flux 
     
    479473                            CALL tra_zdf_init      ! vertical mixing and after tracer fields 
    480474 
    481       !                                         ! Dynamics 
     475      !                                      ! Dynamics 
    482476      IF( lk_c1d        )   CALL dyn_dmp_init      ! internal momentum damping 
    483477                            CALL dyn_adv_init      ! advection (vector or flux form) 
     
    511505      IF( ln_diaobs     )   CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
    512506 
    513       !                                         ! Assimilation increments 
     507      !                                      ! Assimilation increments 
    514508      IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments 
    515509      IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
Note: See TracChangeset for help on using the changeset viewer.