Changeset 14519


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

Add Alan's fix to zddht contribution to zdhdt

File:
1 edited

Legend:

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

    r14518 r14519  
    21162116                              zddhdt = 0._wp 
    21172117                           ENDIF ! j_ddh 
    2118                            zdhdt(ji,jj) = zdhdt(ji,jj) + zalpha_b * ( 1.0 -0.5 * zdh(ji,jj) / zhbl(ji,jj) ) * zddhdt / ( zvel_max + MAX( zdb_bl(ji,jj), 1.0e-15 ) ) 
     2118                           zdhdt(ji,jj) = zdhdt(ji,jj) + zalpha_b * ( 1.0 -0.5 * zdh(ji,jj) / zhbl(ji,jj) ) * & 
     2119                                             &  zdb_ml(ji,jj) * zddhdt / ( zvel_max + MAX( zdb_bl(ji,jj), 1.0e-15 ) ) 
    21192120                        ELSE    ! zdb_bl >0 
    21202121                           zdhdt(ji,jj) = -( zwb_ent(ji,jj) + 2.0 * zwb_fk_b(ji,jj) ) /  MAX( zvel_max, 1.0e-15) 
Note: See TracChangeset for help on using the changeset viewer.