Changeset 13259
 Timestamp:
 20200707T14:22:34+02:00 (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/releases/r4.0/r4.0HEAD/src/OCE/ZDF/zdfgls.F90
r11536 r13259 203 203 zhsro(:,:) = MAX(rsbc_zs2 * ustar2_surf(:,:) * zdep(:,:)**1.5, rn_hsro) ! zhsro = rn_frac_hs * Hsw (eq. 11) 204 204 CASE ( 3 ) ! Roughness given by the wave model (coupled or read in file) 205 zhsro(:,:) = rn_frac_hs * hsw(:,:) ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 )205 zhsro(:,:) = MAX(rn_frac_hs * hsw(:,:), rn_hsro) ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 ) 206 206 END SELECT 207 207 !
Note: See TracChangeset
for help on using the changeset viewer.