Changeset 10742

Timestamp:

2019-03-12T12:00:06+01:00 (6 years ago)

Author:

jchanut

Message:

Bug with ENT scheme #2254

File:

• NEMO/trunk/src/OCE/DYN/dynspg_ts.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

@@ -1003 +1003 @@
             DO ji = 2, jpim1   ! vector opt.
 
-               z1_hu = ssumask(ji,jj) / ( hu_0(ji,jj) + zhup2_e(ji,jj) + 1._wp - ssumask(ji,jj) )
-               z1_hv = ssvmask(ji,jj) / ( hv_0(ji,jj) + zhvp2_e(ji,jj) + 1._wp - ssvmask(ji,jj) )
+               z1_hu = ssumask(ji,jj) / ( zhup2_e(ji,jj) + 1._wp - ssumask(ji,jj) )
+               z1_hv = ssvmask(ji,jj) / ( zhvp2_e(ji,jj) + 1._wp - ssvmask(ji,jj) )
             
                zu_trd(ji,jj) = + r1_4 * r1_e1e2u(ji,jj) * z1_hu                   &