Changeset 7811 for branches/UKMO
- Timestamp:
- 2017-03-20T14:36:18+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r7810 r7811 200 200 zhsro(:,:) = MAX(rsbc_zs2 * ustars2(:,:) * zdep(:,:)**1.5, rn_hsro) ! zhsro = rn_frac_hs * Hsw (eq. 11) 201 201 CASE ( 3 ) ! Roughness given by the wave model (coupled or read in file) 202 zhsro(:,:) = hsw(:,:) 202 WHERE( hsw == 0._wp ) ! surface roughness length according to Charnock formula when sign. wave height 0 203 zhsro = MAX(rn_charn / grav * ustars2, rn_hsro) 204 ELSEWHERE 205 zhsro = MAX(hsw, rn_hsro) 206 END WHERE 203 207 END SELECT 204 208
Note: See TracChangeset
for help on using the changeset viewer.