Changeset 710 for trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

Timestamp:

2007-10-10T17:36:03+02:00 (17 years ago)

Author:

smasson

Message:

tau(x|y) -> (u|v)tau, see ticket:7

File:

• trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

@@ -141 +141 @@
 !!! change les resultats (derniers digit, pas significativement + rapide 1* de moins)
 !!!         ua(ji,jj,1) = ub(ji,jj,1)  &
-!!!                      + p2dt * ( ua(ji,jj,1) + taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) )
+!!!                      + p2dt * ( ua(ji,jj,1) + utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) )
             z2dtf = p2dt / ( fse3u(ji,jj,1)*rau0 )
             ua(ji,jj,1) = ub(ji,jj,1)  &
-                         + p2dt *  ua(ji,jj,1) + z2dtf * taux(ji,jj)
+                         + p2dt *  ua(ji,jj,1) + z2dtf * utau(ji,jj)
          END DO
       END DO
@@ -236 +236 @@
 !!! change les resultats (derniers digit, pas significativement + rapide 1* de moins)
 !!!         va(ji,jj,1) = vb(ji,jj,1)  &
-!!!                      + p2dt * ( va(ji,jj,1) + tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) )
+!!!                      + p2dt * ( va(ji,jj,1) + vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) )
             z2dtf = p2dt / ( fse3v(ji,jj,1)*rau0 )
             va(ji,jj,1) = vb(ji,jj,1)  &
-                         + p2dt * va(ji,jj,1) + z2dtf * tauy(ji,jj)
+                         + p2dt * va(ji,jj,1) + z2dtf * vtau(ji,jj)
          END DO
       END DO