Changeset 10351 for NEMO/trunk/src/TOP

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)

Location:

NEMO/trunk/src/TOP

Files:

• TRP/trcdmp.F90 (modified) (1 diff)
• oce_trc.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/TRP/trcdmp.F90

@@ -122 +122 @@
                      DO jj = 2, jpjm1
                         DO ji = fs_2, fs_jpim1   ! vector opt.
-                           IF( avs(ji,jj,jk) <= 5.e-4_wp )  THEN 
+                           IF( avt(ji,jj,jk) <= avt_c )  THEN 
                               tra(ji,jj,jk,jn) = tra(ji,jj,jk,jn) + restotr(ji,jj,jk) * ( ztrcdta(ji,jj,jk) - trb(ji,jj,jk,jn) )
                            ENDIF

NEMO/trunk/src/TOP/oce_trc.F90

@@ -87 +87 @@
 
    !* vertical diffusion *
-   USE zdf_oce , ONLY :   avs        =>   avs         !: vert. diffusivity coef. for salinity (w-point)
+   USE zdf_oce , ONLY :   avs        =>   avs         !: vert. diffusivity coef. for salinity    (w-point)
+   USE zdf_oce , ONLY :   avt        =>   avt         !: vert. diffusivity coef. for temperature (w-point)
 
    !* mixing & mixed layer depth *
@@ -94 +95 @@
    USE zdfmxl , ONLY :   hmlp        =>   hmlp        !: mixed layer depth  (rho=rho0+zdcrit) (m)
    USE zdfmxl , ONLY :   hmlpt       =>   hmlpt       !: mixed layer depth at t-points (m)
+   USE zdfmxl , ONLY :   avt_c       =>   avt_c       !: Kz criterion for the turbocline depth
 
 END MODULE oce_trc