Changeset 13685


Ignore:
Timestamp:
2020-10-28T10:52:40+01:00 (6 months ago)
Author:
dancopsey
Message:

Merge in Georges fix for South of Greenland crashes from:

http://forge.ipsl.jussieu.fr/nemo/changeset/13684/NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/ZDF/zdfosm.F90

    r13403 r13685  
    687687               zbeta_v_sc(ji,jj) = 1.0 -  2.0 * (0.142 /0.375) * zdh(ji,jj) / ( zhml(ji,jj) + epsln ) 
    688688             ELSE 
    689                zdifml_sc(ji,jj) = zvstr(ji,jj) * zhbl(ji,jj) * EXP ( -( zhol(ji,jj) / 0.6_wp )**2 ) 
    690                zvisml_sc(ji,jj) = zvstr(ji,jj) * zhbl(ji,jj) * EXP ( -( zhol(ji,jj) / 0.6_wp )**2 ) 
     689               zdifml_sc(ji,jj) = zvstr(ji,jj) * zhbl(ji,jj) * MAX( EXP ( -( zhol(ji,jj) / 0.6_wp )**2 ), 0.2_wp) 
     690               zvisml_sc(ji,jj) = zvstr(ji,jj) * zhbl(ji,jj) * MAX( EXP ( -( zhol(ji,jj) / 0.6_wp )**2 ), 0.2_wp) 
    691691             END IF 
    692692          END DO 
Note: See TracChangeset for help on using the changeset viewer.