Changeset 2068 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/DOM/domzgr_substitute.h90

Timestamp:

2010-09-06T17:56:51+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 ensuring restartability and conservation

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/DOM/domzgr_substitute.h90 (modified) (2 diffs)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/DOM/domzgr_substitute.h90

@@ -63 +63 @@
 #   define  fse3vw_n(i,j,k)  (fse3vw_0(i,j,k)*(1.+sshv_n(i,j)*muv(i,j,k)))
 
-#   define  fse3t_m(i,j,k)   e3t_m(i,j,k)
+#   define  fse3t_m(i,j,k)   (fse3t_0(i,j,k)*(1.+ssh_m(i,j)*mut(i,j,k)))
+#   define  fse3t_d(i,j,k)   e3t_d(i,j,k)
 
 #   define  fse3t_a(i,j,k)   (fse3t_0(i,j,k)*(1.+ssha(i,j)*mut(i,j,k)))
@@ -100 +101 @@
 
 #   define  fse3t_m(i,j,k)   fse3t_0(i,j,k)
+#   define  fse3t_d(i,j,k)   fse3t_0(i,j,k)
 
 #   define  fse3t_a(i,j,k)   fse3t_0(i,j,k)