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 8148 – NEMO

Changeset 8148


Ignore:
Timestamp:
2017-06-07T15:06:41+02:00 (7 years ago)
Author:
dford
Message:

Implement option to relax chlorophyll to climatology. See internal Met Office NEMO ticket 704.

Location:
branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/TRP
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r6331 r8148  
    1616   USE in_out_manager      ! ocean dynamics and active tracers variables 
    1717   USE lib_mpp           ! distributed memory computing library 
     18   USE fldread 
    1819 
    1920   IMPLICIT NONE 
     
    5253   INTEGER , PUBLIC ::   nn_zdmp_tr    ! = 0/1/2 flag for damping in the mixed layer 
    5354   CHARACTER(LEN=200) , PUBLIC :: cn_resto_tr    !File containing restoration coefficient 
     55   CHARACTER(LEN=200) , PUBLIC :: cn_dir_chldmp = './'    !: Directory containing chlorophyll file 
     56   INTEGER , PUBLIC ::    nn_chldmp = 0    !: = 0/1/2 flag for surface chlorophyll damping 
     57   REAL(wp), PUBLIC ::    rn_chldmp = 0.0  !: chlorophyll damping coefficient 
     58   TYPE(FLD_N), PUBLIC :: sn_chldmp        !: informations about the fields to be read 
    5459 
    5560   !!---------------------------------------------------------------------- 
     
    7782      NAMELIST/namtrc_zdf/ ln_trczdf_exp  , nn_trczdf_exp 
    7883      NAMELIST/namtrc_rad/ ln_trcrad 
    79       NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr 
     84      NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr, cn_dir_chldmp, nn_chldmp, & 
     85         &                 sn_chldmp  , rn_chldmp 
    8086      !!---------------------------------------------------------------------- 
    8187 
     
    179185         WRITE(numout,*) '      mixed layer damping option     nn_zdmp_tr = ', nn_zdmp_tr, '(zoom: forced to 0)' 
    180186         WRITE(numout,*) '      Restoration coeff file    cn_resto_tr = ', cn_resto_tr 
     187         WRITE(numout,*) '      Surface chlorophyll damping     nn_chldmp = ', nn_chldmp 
     188         WRITE(numout,*) '      Damping coefficient             rn_chldmp = ', rn_chldmp 
     189         WRITE(numout,*) '      Chlorophyll directory       cn_dir_chldmp = ', cn_dir_chldmp 
    181190      ENDIF 
    182191      ! 
  • branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r6332 r8148  
    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.