Changeset 2109 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA

Timestamp:

2010-09-22T14:44:40+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 allocatable variables in diahsb and remove unnecessary fse3t_d field

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (1 diff)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -282 +282 @@
                   ze3t_n = fse3t_n(ji,jj,jk)
                   ze3t_a = fse3t_a(ji,jj,jk)
-                  ze3t_d = fse3t_d(ji,jj,jk)
+                  ze3t_d = ze3t_b - 2.e0 * ze3t_n + ze3t_a
                   !                                         ! tracer content at Before, now and after
                   ztc_b  = tb(ji,jj,jk) * ze3t_b   ;   zsc_b = sb(ji,jj,jk) * ze3t_b