Changeset 10351 for NEMO/trunk/src/OCE/C1D

Timestamp:

2018-11-21T15:19:04+01:00 (5 years ago)

Author:

mathiot

Message:

fix #1685 (replace 5.e-4_wp by avt_c in dmp routine as it is computed in zdfmxl + apply test on avt instead on avs in trcdmp)

File:

• NEMO/trunk/src/OCE/C1D/dyndmp.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/C1D/dyndmp.F90

@@ -182 +182 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.
-                  IF( avt(ji,jj,jk) <= 5.e-4_wp ) THEN
+                  IF( avt(ji,jj,jk) <= avt_c ) THEN
                      zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - ub(ji,jj,jk) )
                      zva = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,2) - vb(ji,jj,jk) )