Last change
on this file since 5456 was
5268,
checked in by abarral, 2 months ago
|
.f90 <-> .F90 depending on cpp key use
|
File size:
925 bytes
|
Rev | Line | |
---|
[3816] | 1 | module 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 | |
---|
| 27 | end module const |
---|
Note: See
TracBrowser
for help on using the repository browser.