Changeset 11329 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90
- Timestamp:
- 2019-07-23T13:24:52+02:00 (5 years ago)
- 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 60 60 CONTAINS 61 61 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 *** 68 69 !! 69 70 !! ** Purpose : Computes turbulent transfert coefficients of surface 70 71 !! fluxes according to IFS doc. (cycle 40) 71 72 !! If relevant (zt /= zu), adjust temperature and humidity from height zt to zu 72 !! Returns the effective bulk wind speed at 10mto be used in the bulk formulas73 !! Returns the effective bulk wind speed at zu to be used in the bulk formulas 73 74 !! 74 75 !! Applies the cool-skin warm-layer correction of the SST to T_s
Note: See TracChangeset
for help on using the changeset viewer.