Changeset 11063


Ignore:
Timestamp:
2019-05-28T13:08:51+02:00 (16 months ago)
Author:
dford
Message:

Add missing lbc_lnk and option to relax chlorophyll to climatology. See Met Office utils ticket 216.

Location:
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO
Files:
3 edited
1 copied

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90

    r8790 r11063  
    132132         ENDIF  
    133133      ENDDO   
     134!CEOD ADD 
     135      CALL lbc_lnk( un,'U',-1. ) 
     136      CALL lbc_lnk( vn,'V',-1. ) 
     137!CEOD ADD 
    134138#endif        
    135139 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r8058 r11063  
    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/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r10162 r11063  
    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.