New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 710 for trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90 – NEMO

Ignore:
Timestamp:
2007-10-10T17:36:03+02:00 (17 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90

    r708 r710  
    105105            zwi(ji,1) = 0. 
    106106            zwd(ji,1) = 1. - zws(ji,1) 
    107             zwy(ji,1) = zwy(ji,1) + z2dtf * taux(ji,jj) 
     107            zwy(ji,1) = zwy(ji,1) + z2dtf * utau(ji,jj) 
    108108         END DO 
    109109 
    … …  
    192192            zwi(ji,1) = 0.e0 
    193193            zwd(ji,1) = 1. - zws(ji,1) 
    194             zwy(ji,1) = zwy(ji,1) + z2dtf * tauy(ji,jj) 
     194            zwy(ji,1) = zwy(ji,1) + z2dtf * vtau(ji,jj) 
    195195         END DO 
    196196 
Note: See TracChangeset for help on using the changeset viewer.