|
Last change
on this file since 5435 was
5268,
checked in by abarral, 2 months ago
|
|
.f90 <-> .F90 depending on cpp key use
|
|
File size:
925 bytes
|
| Line | |
|---|
| 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.
