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 11329 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90 – NEMO

Ignore:
Timestamp:
2019-07-23T13:24:52+02:00 (5 years ago)
Author:
laurent
Message:

LB: cosmetic syntax homogenization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90

    r11291 r11329  
    6060CONTAINS 
    6161 
    62    SUBROUTINE TURB_ECMWF( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, & 
    63       &                   Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
    64       &                   Cdn, Chn, Cen,                      & 
    65       &                   Qsw, rad_lw, slp, Tsk_b             ) 
    66       !!---------------------------------------------------------------------------------- 
    67       !!                      ***  ROUTINE  turb_ecmwf  *** 
     62   SUBROUTINE turb_ecmwf( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, & 
     63      &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
     64      &                      Cdn, Chn, Cen,                      & 
     65      &                      Qsw, rad_lw, slp,                   & 
     66      &                      Tsk_b ) 
     67      !!---------------------------------------------------------------------- 
     68       !!                      ***  ROUTINE  turb_ecmwf  *** 
    6869      !! 
    6970      !! ** Purpose :   Computes turbulent transfert coefficients of surface 
    7071      !!                fluxes according to IFS doc. (cycle 40) 
    7172      !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu 
    72       !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas 
     73      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas 
    7374      !! 
    7475      !!                Applies the cool-skin warm-layer correction of the SST to T_s 
Note: See TracChangeset for help on using the changeset viewer.