New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4245 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2013-11-19T12:19:21+01:00 (9 years ago)
Author:
cetlod
Message:

dev_locean_cmcc_ingv_ukmo_merc : merge in the MERC_UKMO dev branch with trunk rev 4119

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r4230 r4245  
    7777   USE c1d             ! 1D configuration 
    7878   USE step_c1d        ! Time stepping loop for the 1D configuration 
     79   USE dyndmp          ! Momentum damping 
    7980#if defined key_top 
    8081   USE trcini          ! passive tracer initialisation 
     
    372373                            CALL     phy_cst    ! Physical constants 
    373374                            CALL     eos_init   ! Equation of state 
     375      IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    374376                            CALL     dom_cfg    ! Domain configuration 
    375377                            CALL     dom_init   ! Domain 
     
    418420                            CALL tra_bbc_init   ! bottom heat flux 
    419421      IF( lk_trabbl     )   CALL tra_bbl_init   ! advective (and/or diffusive) bottom boundary layer scheme 
    420       IF( ln_tradmp     )   CALL tra_dmp_init   ! internal damping trends 
     422                            CALL tra_dmp_init   ! internal damping trends- tracers 
    421423                            CALL tra_adv_init   ! horizontal & vertical advection 
    422424                            CALL tra_ldf_init   ! lateral mixing 
     
    424426 
    425427      !                                     ! Dynamics 
     428      IF( lk_c1d        )   CALL dyn_dmp_init   ! internal damping trends- momentum 
    426429                            CALL dyn_adv_init   ! advection (vector or flux form) 
    427430                            CALL dyn_vor_init   ! vorticity term including Coriolis 
Note: See TracChangeset for help on using the changeset viewer.