Ignore:
Timestamp:
2021-03-01T20:12:52+01:00 (7 months ago)
Author:
smueller
Message:

Synchronisation of the OSMOSIS boundary layer scheme with the version developed in branch /NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0: transfer of changesets [14410,14411] (ticket #2353)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

    r14557 r14564  
    19741974           ENDIF 
    19751975        ENDIF 
    1976         hmle(ji,jj) = MIN(hmle(ji,jj), ht(ji,jj)) 
    1977        IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), MAX(rn_osm_hmle_limit,1.2*hbl(ji,jj)) ) 
     1976        hmle(ji,jj) = MAX( MIN( hmle(ji,jj), ht(ji,jj) ), gdepw(ji,jj,4,Kmm) ) 
     1977        IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN( hmle(ji,jj), rn_osm_hmle_limit*hbl(ji,jj) ) 
    19781978       ! For now try just set hmle to zmld 
    19791979       hmle(ji,jj) = pmld(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.