Changeset 11063
- Timestamp:
- 2019-05-28T13:08:51+02:00 (6 years ago)
- 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 132 132 ENDIF 133 133 ENDDO 134 !CEOD ADD 135 CALL lbc_lnk( un,'U',-1. ) 136 CALL lbc_lnk( vn,'V',-1. ) 137 !CEOD ADD 134 138 #endif 135 139 -
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90
r8058 r11063 16 16 USE in_out_manager ! ocean dynamics and active tracers variables 17 17 USE lib_mpp ! distributed memory computing library 18 USE fldread 18 19 19 20 IMPLICIT NONE … … 52 53 INTEGER , PUBLIC :: nn_zdmp_tr ! = 0/1/2 flag for damping in the mixed layer 53 54 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 54 59 55 60 !!---------------------------------------------------------------------- … … 77 82 NAMELIST/namtrc_zdf/ ln_trczdf_exp , nn_trczdf_exp 78 83 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 80 86 !!---------------------------------------------------------------------- 81 87 … … 179 185 WRITE(numout,*) ' mixed layer damping option nn_zdmp_tr = ', nn_zdmp_tr, '(zoom: forced to 0)' 180 186 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 181 190 ENDIF 182 191 ! -
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r10162 r11063 29 29 USE trcbdy ! BDY open boundaries 30 30 USE bdy_par, only: lk_bdy 31 USE trcsbcssr 31 32 32 33 #if defined key_agrif … … 66 67 IF( .NOT. lk_c1d ) THEN 67 68 ! 69 IF( nn_chldmp > 0 ) CALL trc_sbc_ssr( kstp ) ! add Chl damping term 68 70 CALL trc_sbc( kstp ) ! surface boundary condition 69 71 IF( lk_trabbl ) CALL trc_bbl( kstp ) ! advective (and/or diffusive) bottom boundary layer scheme … … 93 95 ! 94 96 ELSE ! 1D vertical configuration 97 IF( nn_chldmp > 0 ) CALL trc_sbc_ssr( kstp ) ! add Chl damping term 95 98 CALL trc_sbc( kstp ) ! surface boundary condition 96 99 IF( .NOT. lk_offline .AND. lk_zdfkpp ) &
Note: See TracChangeset
for help on using the changeset viewer.