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_exp.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_exp.F90

    r708 r710  
    8181         ! Surface boundary condition 
    8282         DO ji = 2, jpim1 
    83             zwy(ji,1) = taux(ji,jj) * zrau0r 
    84             zww(ji,1) = tauy(ji,jj) * zrau0r 
     83            zwy(ji,1) = utau(ji,jj) * zrau0r 
     84            zww(ji,1) = vtau(ji,jj) * zrau0r 
    8585         END DO   
    8686 
Note: See TracChangeset for help on using the changeset viewer.