Changeset 7811


Ignore:
Timestamp:
2017-03-20T14:36:18+01:00 (4 years ago)
Author:
jcastill
Message:

Further fix to the calculation of surface roughness for the significant wave height read from a wave model (nn_z0_met=3)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r7810 r7811  
    200200         zhsro(:,:) = MAX(rsbc_zs2 * ustars2(:,:) * zdep(:,:)**1.5, rn_hsro) ! zhsro = rn_frac_hs * Hsw (eq. 11) 
    201201      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 
    203207      END SELECT 
    204208 
Note: See TracChangeset for help on using the changeset viewer.