New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12755 for NEMO/branches – NEMO

Changeset 12755 for NEMO/branches


Ignore:
Timestamp:
2020-04-16T12:35:21+02:00 (4 years ago)
Author:
jcastill
Message:

Fix to avoid dividing by a very small number when nn_z0_met=3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/ZDF/zdfgls.F90

    r11715 r12755  
    203203         zhsro(:,:) = MAX(rsbc_zs2 * ustar2_surf(:,:) * zdep(:,:)**1.5, rn_hsro)          ! zhsro = rn_frac_hs * Hsw (eq. 11) 
    204204      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 ) 
    206206      END SELECT 
    207207      ! 
Note: See TracChangeset for help on using the changeset viewer.