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/C1D_SRC/diawri1d.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/C1D_SRC/diawri1d.F90

    r708 r710  
    273273#endif 
    274274         !                                                                                      !!! nid_U : 2D 
    275          CALL histdef( nid_T, "sozotaux", "Wind Stress along i-axis"           , "N/m2"   ,   &  ! taux 
     275         CALL histdef( nid_T, "sozotaux", "Wind Stress along i-axis"           , "N/m2"   ,   &  ! utau 
    276276            &          jpi, jpj, nh_T, 1  , 1, 1  , - 99, 32, clop, zsto, zout ) 
    277277 
    … …  
    284284#endif 
    285285         !                                                                                      !!! nid_V : 2D 
    286          CALL histdef( nid_T, "sometauy", "Wind Stress along j-axis"           , "N/m2"   ,   &  ! tauy 
     286         CALL histdef( nid_T, "sometauy", "Wind Stress along j-axis"           , "N/m2"   ,   &  ! vtau 
    287287            &          jpi, jpj, nh_T, 1  , 1, 1  , - 99, 32, clop, zsto, zout ) 
    288288#if defined key_zdftke 
    … …  
    416416 
    417417      CALL histwrite( nid_T, "vozocrtx", it, un            , ndim_T , ndex_T )    ! i-current 
    418       CALL histwrite( nid_T, "sozotaux", it, taux          , ndim_hT, ndex_hT )   ! i-wind stress 
     418      CALL histwrite( nid_T, "sozotaux", it, utau          , ndim_hT, ndex_hT )   ! i-wind stress 
    419419      CALL histwrite( nid_T, "vomecrty", it, vn            , ndim_T , ndex_T  )   ! j-current 
    420       CALL histwrite( nid_T, "sometauy", it, tauy          , ndim_hT, ndex_hT )   ! j-wind stress 
     420      CALL histwrite( nid_T, "sometauy", it, vtau          , ndim_hT, ndex_hT )   ! j-wind stress 
    421421#if defined key_zdftke 
    422422      CALL histwrite( nid_T, "votlsdis", it, e_dis         , ndim_T , ndex_T )    ! Diss. Turb. lenght scale 
Note: See TracChangeset for help on using the changeset viewer.