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/TRD – NEMO

Changeset 710 for trunk/NEMO/OPA_SRC/TRD


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/TRD/trdmod.F90

    r708 r710  
    124124                  DO ji = fs_2, fs_jpim1   ! vector opt. 
    125125                     ! save the surface forcing momentum fluxes 
    126                      ztswu(ji,jj) = taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 
    127                      ztswv(ji,jj) = tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 
     126                     ztswu(ji,jj) = utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 
     127                     ztswv(ji,jj) = vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 
    128128                     ! save bottom friction momentum fluxes 
    129129                     ikbu   = MIN( mbathy(ji+1,jj  ), mbathy(ji,jj) ) 
    … …  
    175175               DO ji = fs_2, fs_jpim1   ! vector opt. 
    176176                  ! save the surface forcing momentum fluxes 
    177                   ztswu(ji,jj) = taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 
    178                   ztswv(ji,jj) = tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 
     177                  ztswu(ji,jj) = utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 
     178                  ztswv(ji,jj) = vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 
    179179                  ! save bottom friction momentum fluxes 
    180180                  ikbu   = MIN( mbathy(ji+1,jj  ), mbathy(ji,jj) ) 
Note: See TracChangeset for help on using the changeset viewer.