Changeset 13012
- Timestamp:
- 2020-06-03T10:15:01+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdftke.F90
r13007 r13012 70 70 INTEGER :: nn_mxl ! type of mixing length (=0/1/2/3) 71 71 REAL(wp) :: rn_mxl0 ! surface min value of mixing length (kappa*z_o=0.4*0.1 m) [m] 72 INTEGER :: nn_mxlice ! type of scaling under sea-ice 73 REAL(wp) :: rn_mxlice ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 72 74 INTEGER :: nn_pdl ! Prandtl number or not (ratio avt/avm) (=0/1) 73 75 REAL(wp) :: rn_ediff ! coefficient for avt: avt=rn_ediff*mxl*sqrt(e) … … 442 444 zmxld(:,:,:) = rmxl_min 443 445 ! 444 IF( ln_mxl0 ) THEN ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(r au0*g)445 ! 446 zraug = vkarmn * 2.e5_wp / ( r au0 * grav )446 IF( ln_mxl0 ) THEN ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rho0*g) 447 ! 448 zraug = vkarmn * 2.e5_wp / ( rho0 * grav ) 447 449 #if ! defined key_si3 && ! defined key_cice 448 450 DO_2D_00_00
Note: See TracChangeset
for help on using the changeset viewer.