Changeset 14072 for NEMO/trunk/src/OCE/SBC/sbcblk_skin_ecmwf.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcblk_skin_ecmwf.F90
r13460 r14072 28 28 !! ** Author: L. Brodeau, November 2019 / AeroBulk (https://github.com/brodeau/aerobulk) 29 29 !!---------------------------------------------------------------------- 30 !! History : 4.x ! 2019-11 (L.Brodeau) Original code 30 !! History : 4.0 ! 2019-11 (L.Brodeau) Original code 31 !! 4.2 ! 2020-12 (L. Brodeau) Introduction of various air-ice bulk parameterizations + improvements 31 32 !!---------------------------------------------------------------------- 32 33 USE oce ! ocean dynamics and tracers … … 35 36 USE sbc_oce ! Surface boundary condition: ocean fields 36 37 37 USE sbc blk_phy ! misc. functions for marine ABL physics (rho_air, q_sat, bulk_formula, etc)38 USE sbc_phy ! Catalog of functions for physical/meteorological parameters in the marine boundary layer 38 39 39 40 USE lib_mpp ! distribued memory computing library … … 160 161 REAL(wp) :: zalfa !: thermal expansion coefficient of sea-water [1/K] 161 162 REAL(wp) :: zdTwl_b, zdTwl_n !: temp. diff. between "almost surface (right below viscous layer) and bottom of WL 162 REAL(wp) :: zfr, zeta 163 REAL(wp) :: zusw, zusw2 164 REAL(wp) :: zLa, zfLa 165 REAL(wp) :: flg, zwf, zQabs 163 REAL(wp) :: zfr, zeta 164 REAL(wp) :: zusw, zusw2 165 REAL(wp) :: zLa, zfLa 166 REAL(wp) :: flg, zwf, zQabs 166 167 REAL(wp) :: ZA, ZB, zL1, zL2 167 168 REAL(wp) :: zcst0, zcst1, zcst2, zcst3
Note: See TracChangeset
for help on using the changeset viewer.