Changeset 13194
 Timestamp:
 20200701T15:46:33+02:00 (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/branches/2020/ticket2445/src/OCE/ZDF/zdfgls.F90
r11536 r13194 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.