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 12110 for NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/TRP/trctrp.F90 – NEMO

Ignore:
Timestamp:
2019-12-07T12:44:31+01:00 (4 years ago)
Author:
cetlod
Message:

merge dev_r11219_TOP-01_cethe_PISCES_LBC onto dev_r12072_TOP-01_ENHANCE-11_CEthe

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/TRP/trctrp.F90

    r10068 r12110  
    2323   USE trcrad          ! positivity                          (trc_rad routine) 
    2424   USE trcsbc          ! surface boundary condition          (trc_sbc routine) 
     25   USE trcbc           ! Tracers boundary condtions          ( trc_bc routine) 
    2526   USE zpshde          ! partial step: hor. derivative       (zps_hde routine) 
    2627   USE bdy_oce   , ONLY: ln_bdy 
     
    6162         ! 
    6263                                CALL trc_sbc    ( kt )      ! surface boundary condition 
     64         IF( ln_trcbc .AND. lltrcbc .AND. kt /= nit000 )  & 
     65                                CALL trc_bc     ( kt )      ! tracers: surface and lateral Boundary Conditions  
    6366         IF( ln_trabbl )        CALL trc_bbl    ( kt )      ! advective (and/or diffusive) bottom boundary layer scheme 
    6467         IF( ln_trcdmp )        CALL trc_dmp    ( kt )      ! internal damping trends 
Note: See TracChangeset for help on using the changeset viewer.