Changeset 719 for trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.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_imp_jki.F90 (modified) (4 diffs, 1 prop)

trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90

@@ -15 +15 @@
    USE oce             ! ocean dynamics and tracers
    USE dom_oce         ! ocean space and time domain
+   USE phycst          ! physical constants
    USE zdf_oce         ! ocean vertical physics
-   USE sbc_oce         ! surface boundary condition: ocean
-   USE phycst          ! physical constants
    USE in_out_manager  ! I/O manager
+   USE taumod          ! surface ocean stress
 
    IMPLICIT NONE
@@ -31 +31 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -105 +105 @@
             zwi(ji,1) = 0.
             zwd(ji,1) = 1. - zws(ji,1)
-            zwy(ji,1) = zwy(ji,1) + z2dtf * utau(ji,jj)
+            zwy(ji,1) = zwy(ji,1) + z2dtf * taux(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 * vtau(ji,jj)
+            zwy(ji,1) = zwy(ji,1) + z2dtf * tauy(ji,jj)
          END DO