 Timestamp:
 20170418T10:31:34+02:00 (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/UKMO/r6232_HZG_WAVEcoupling/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r7905 r7916 68 68 REAL(wp) :: rn_crban_default ! Craig and Banner constant for surface breaking waves mixing 69 69 REAL(wp) :: rn_hsro ! Minimum surface roughness 70 REAL(wp) :: rn_frac_hs ! Fraction of wave height as surface roughness (if nn_z0_met = 1 )70 REAL(wp) :: rn_frac_hs ! Fraction of wave height as surface roughness (if nn_z0_met = 1, 3) 71 71 72 72 REAL(wp) :: rcm_sf = 0.73_wp ! Shear free turbulence parameters … … 221 221 zhsro(:,:) = MAX(rsbc_zs2 * ustars2(:,:) * zdep(:,:)**1.5, rn_hsro) ! zhsro = rn_frac_hs * Hsw (eq. 11) 222 222 CASE ( 3 ) ! Roughness given by the wave model (coupled or read in file) 223 WHERE( hsw == 0._wp ) ! surface roughness length according to Charnock formula when sign. wave height 0 224 zhsro = MAX(rn_charn / grav * ustars2, rn_hsro) 225 ELSEWHERE 226 zhsro = MAX(hsw, rn_hsro) 227 END WHERE 223 zhsro = MAX(rn_frac_hs * hsw, rn_hsro) 228 224 END SELECT 229 225
Note: See TracChangeset
for help on using the changeset viewer.