Changeset 14515


Ignore:
Timestamp:
2021-02-21T17:04:16+01:00 (8 months ago)
Author:
agn
Message:

slow down shoaling for both stabilizing surface forcing and FK

File:
1 edited

Legend:

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

    r14514 r14515  
    21132113                ELSE   ! zwb_min + 2*zwb_fk_b < 0 
    21142114                   ! OSBL shoaling due to restratification flux. This is the velocity defined in Fox-Kemper et al (2008) 
    2115                    zdhdt(ji,jj) = - zvel_mle(ji,jj) 
     2115                   zdhdt(ji,jj) = - MIN(zvel_mle(ji,jj), hbl(ji,jj)/10800.) 
    21162116 
    21172117 
     
    21372137                ENDIF 
    21382138                zdhdt(ji,jj) = 2.0 * zdhdt(ji,jj) / MAX(zpert, epsln) 
     2139                zdhdt(ji,jj) = MAX(zdhdt(ji,jj), -hbl(ji,jj)/5400.) 
    21392140            ENDIF  ! lconv 
    21402141       ELSE ! lshear 
     
    21602161                ELSE 
    21612162                   ! OSBL shoaling due to restratification flux. This is the velocity defined in Fox-Kemper et al (2008) 
    2162                    zdhdt(ji,jj) = - zvel_mle(ji,jj) 
     2163                   zdhdt(ji,jj) = - MIN(zvel_mle(ji,jj), hbl(ji,jj)/10800.) 
    21632164 
    21642165 
     
    21842185                ENDIF 
    21852186                zdhdt(ji,jj) = 2.0 * zdhdt(ji,jj) / MAX(zpert, epsln) 
     2187                zdhdt(ji,jj) = MAX(zdhdt(ji,jj), -hbl(ji,jj)/5400.) 
    21862188            ENDIF  ! lconv 
    21872189         ENDIF ! lshear 
Note: See TracChangeset for help on using the changeset viewer.