- Timestamp:
- 2013-05-03T14:35:21+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r3875 r3901 49 49 LOGICAL, PUBLIC, PARAMETER :: lk_trabbl = .TRUE. !: bottom boundary layer flag 50 50 51 ! 52 INTEGER , PUBLIC :: nn_bbl_ldf = 0!: =1 : diffusive bbl or not (=0)53 INTEGER , PUBLIC :: nn_bbl_adv = 0!: =1/2 : advective bbl or not (=0)51 ! !!* Namelist nambbl * 52 INTEGER , PUBLIC :: nn_bbl_ldf !: =1 : diffusive bbl or not (=0) 53 INTEGER , PUBLIC :: nn_bbl_adv !: =1/2 : advective bbl or not (=0) 54 54 ! ! =1 : advective bbl using the bottom ocean velocity 55 55 ! ! =2 : - - using utr_bbl proportional to grad(rho) 56 REAL(wp), PUBLIC :: rn_ahtbbl = 1.e3_wp!: along slope bbl diffusive coefficient [m2/s]57 REAL(wp), PUBLIC :: rn_gambbl = 10.0_wp!: lateral coeff. for bottom boundary layer scheme [s]56 REAL(wp), PUBLIC :: rn_ahtbbl !: along slope bbl diffusive coefficient [m2/s] 57 REAL(wp), PUBLIC :: rn_gambbl !: lateral coeff. for bottom boundary layer scheme [s] 58 58 59 59 LOGICAL , PUBLIC :: l_bbl !: flag to compute bbl diffu. flux coef and transport
Note: See TracChangeset
for help on using the changeset viewer.