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 1705 for trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90 – NEMO

Ignore:
Timestamp:
2009-11-03T17:37:00+01:00 (15 years ago)
Author:
smasson
Message:

impact of HF winds in TKE, see ticket:585

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r1695 r1705  
    2929   !                                             !:  = 1 global mean of e-p-r set to zero at each nn_fsbc time step 
    3030   !                                             !:  = 2 annual global mean of e-p-r set to zero 
    31   INTEGER , PUBLIC ::   nn_ico_cpl  = 0          !: ice-ocean coupling indicator 
     31   INTEGER , PUBLIC ::   nn_ico_cpl  = 0          !: ice-ocean coupling indicator 
    3232   !                                             !:  = 0   LIM-3 old case 
    3333   !                                             !:  = 1   stresses computed using now ocean velocity 
    … …  
    3737   !!              Ocean Surface Boundary Condition fields 
    3838   !!---------------------------------------------------------------------- 
     39   LOGICAL , PUBLIC ::   lhftau = .FALSE.              !: HF tau contribution: mean of stress module - module of the mean stress 
    3940   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   utau      !: sea surface i-stress (ocean referential)     [N/m2] 
    4041   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   vtau      !: sea surface j-stress (ocean referential)     [N/m2] 
    4142   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   taum      !: module of sea surface stress (at T-point)    [N/m2]  
    42    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   wndm      !: wind speed module at T-point (=|U10m-Uoce|)  [m/s] Used only in PISCES 
     43   !! wndm is used only in PISCES to compute gases exchanges at the surface of the free ocean or in the leads in sea-ice parts 
     44   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   wndm      !: wind speed module at T-point (=|U10m-Uoce|)  [m/s]  
    4345   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   qsr       !: sea heat flux:     solar                     [W/m2] 
    4446   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   qns       !: sea heat flux: non solar                     [W/m2] 
Note: See TracChangeset for help on using the changeset viewer.