|
Last change
on this file since 5441 was
5119,
checked in by abarral, 5 months ago
|
|
enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way
|
|
File size:
931 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.
