source: LMDZ6/branches/blowing_snow/libf/phylmd/Ocean_skin/const.F90

Last change on this file was 3816, checked in by lguez, 4 years ago

Forgot to add subdirectory in commit [3815]

File size: 925 bytes
Line 
1module const
2
3  implicit none
4
5  real, parameter:: beta = 0.756 / 1023.343
6  ! Salinity expansion coefficient. Derivative with respect to
7  ! practical salinity, not mass fraction of salt. Value at 25 Celsius
8  ! degrees, zero pressure, practical salinity 35, from Gill (1982
9  ! k0829, table A.3.1).
10
11  real, parameter:: cpa = 1004.67
12  ! specific heat of dry air, in J / kg / K (Businger 1982)
13
14  real, parameter:: cpw = 4000. ! specific heat of liquid water, in J / kg / K
15  real, parameter:: grav  = 9.780326772 ! constante de gravitation, m s-2
16  real, parameter::  rhow = 1022. ! density of liquid water, in kg / m3
17
18  real, parameter:: rgas = 287.1
19  ! specific ideal gas constant for dry air, in J / kg / K
20
21  real, parameter:: von = 0.4 ! von Karman's "constant"
22
23  real, parameter:: eps_w = 0.62197
24  ! molecular mass of water over molecular mass of dry air (Gill 1982
25  ! k0829, equation 3.1.13)
26
27end module const
Note: See TracBrowser for help on using the repository browser.