- Timestamp:
- 2019-01-16T20:21:09+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcisf.F90
r10425 r10536 679 679 !!gm better to do it like in the new zdfric.F90 i.e. avm weighted Ri computation 680 680 !!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) 682 682 ! ! shear of horizontal velocity 683 683 zdku = zcoef * ( un(ji-1,jj ,ikt ) + un(ji,jj,ikt ) &
Note: See TracChangeset
for help on using the changeset viewer.