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 8141 for branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90 – NEMO

Ignore:
Timestamp:
2017-06-05T16:40:32+02:00 (7 years ago)
Author:
dford
Message:

Initial implementation of surface chlorophyll relaxation for FABM-ERSEM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r6332 r8141  
    2929   USE trcbdy          ! BDY open boundaries 
    3030   USE bdy_par, only: lk_bdy 
     31   USE trcsbcssr 
    3132 
    3233#if defined key_agrif 
     
    6667      IF( .NOT. lk_c1d ) THEN 
    6768         ! 
     69         IF( nn_chldmp > 0 )    CALL trc_sbc_ssr( kstp )        ! add Chl damping term 
    6870                                CALL trc_sbc( kstp )            ! surface boundary condition 
    6971         IF( lk_trabbl )        CALL trc_bbl( kstp )            ! advective (and/or diffusive) bottom boundary layer scheme 
     
    9395         ! 
    9496      ELSE                                               ! 1D vertical configuration 
     97         IF( nn_chldmp > 0 )    CALL trc_sbc_ssr( kstp )        ! add Chl damping term 
    9598                                CALL trc_sbc( kstp )            ! surface boundary condition 
    9699         IF( .NOT. lk_offline .AND. lk_zdfkpp )    & 
Note: See TracChangeset for help on using the changeset viewer.