Changeset 14541


Ignore:
Timestamp:
2021-02-24T18:34:02+01:00 (3 months ago)
Author:
agn
Message:

Simplify undulation term

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

    r14540 r14541  
    11041104                ! 
    11051105                IF ( dh(ji,jj)  <  0.2*hbl(ji,jj) ) THEN 
    1106                    zbuoy_pyc_sc = zalpha_pyc(ji,jj) * zdb_ml(ji,jj) / zdh(ji,jj) + zdbdz_bl_ext(ji,jj) 
     1106                   zbuoy_pyc_sc = 2.0_wp * MAX(zdb_ml(ji,jj), 0._wp) / zdh(ji,jj) 
    11071107                   zdelta_pyc = ( zvstr(ji,jj)**3 + zwstrc(ji,jj)**3 )**pthird / SQRT( MAX( zbuoy_pyc_sc, ( zvstr(ji,jj)**3 + zwstrc(ji,jj)**3 )**p2third / zdh(ji,jj)**2 ) ) 
    11081108                   ! 
Note: See TracChangeset for help on using the changeset viewer.