Changeset 10536


Ignore:
Timestamp:
2019-01-16T20:21:09+01:00 (15 months ago)
Author:
mathiot
Message:

Fix #2178

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcisf.F90

    r10425 r10536  
    679679!!gm better to do it like in the new zdfric.F90   i.e. avm weighted Ri computation 
    680680!!gm moreover, use Max(rn2,0) to take care of static instabilities.... 
    681                   zcoef = 0.5_wp / e3w_n(ji,jj,ikt) 
     681                  zcoef = 0.5_wp / e3w_n(ji,jj,ikt+1) 
    682682                  !                                            ! shear of horizontal velocity 
    683683                  zdku = zcoef * (  un(ji-1,jj  ,ikt  ) + un(ji,jj,ikt  )  & 
Note: See TracChangeset for help on using the changeset viewer.