Changeset 710 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

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

Author:

smasson

Message:

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

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• dynzdf_exp.F90 (modified) (1 diff)
• dynzdf_imp.F90 (modified) (2 diffs)
• dynzdf_imp_jki.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

@@ -81 +81 @@
          ! Surface boundary condition
          DO ji = 2, jpim1
-            zwy(ji,1) = taux(ji,jj) * zrau0r
-            zww(ji,1) = tauy(ji,jj) * zrau0r
+            zwy(ji,1) = utau(ji,jj) * zrau0r
+            zww(ji,1) = vtau(ji,jj) * zrau0r
          END DO  
 

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

trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90

@@ -105 +105 @@
             zwi(ji,1) = 0.
             zwd(ji,1) = 1. - zws(ji,1)
-            zwy(ji,1) = zwy(ji,1) + z2dtf * taux(ji,jj)
+            zwy(ji,1) = zwy(ji,1) + z2dtf * utau(ji,jj)
          END DO
 
@@ -192 +192 @@
             zwi(ji,1) = 0.e0
             zwd(ji,1) = 1. - zws(ji,1)
-            zwy(ji,1) = zwy(ji,1) + z2dtf * tauy(ji,jj)
+            zwy(ji,1) = zwy(ji,1) + z2dtf * vtau(ji,jj)
          END DO