Changeset 719 for trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

Timestamp:

2007-10-16T16:59:56+02:00 (17 years ago)

Author:

ctlod

Message:

get back to the nemo_v2_3 version for trunk

File:

• trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90 (modified) (3 diffs, 1 prop)

trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

@@ -18 +18 @@
    USE phycst          ! physical constants
    USE zdf_oce         ! ocean vertical physics
-   USE sbc_oce         ! surface boundary condition: ocean
    USE in_out_manager  ! I/O manager
+   USE taumod          ! surface ocean stress
 
    IMPLICIT NONE
@@ -32 +32 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -81 +81 @@
          ! Surface boundary condition
          DO ji = 2, jpim1
-            zwy(ji,1) = utau(ji,jj) * zrau0r
-            zww(ji,1) = vtau(ji,jj) * zrau0r
+            zwy(ji,1) = taux(ji,jj) * zrau0r
+            zww(ji,1) = tauy(ji,jj) * zrau0r
          END DO