Changeset 8141 for branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
- Timestamp:
- 2017-06-05T16:40:32+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r6332 r8141 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.