For storing and initializing physical constants.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=p), | public, | parameter | :: | rearth | = | 6.371e+6 | Radius of Earth (m) |
| real(kind=p), | public, | parameter | :: | omega | = | 7.292e-05 | Rotation rate of Earth (rad/s) |
| real(kind=p), | public, | parameter | :: | grav | = | 9.81 | Gravitational acceleration (m/s/s) |
| real(kind=p), | public, | parameter | :: | p0 | = | 1.e+5 | Reference pressure (Pa) |
| real(kind=p), | public, | parameter | :: | cp | = | 1004.0 | Specific heat at constant pressure (J/K/kg) |
| real(kind=p), | public, | parameter | :: | akap | = | 2.0/7.0 | 1 - 1/gamma where gamma is the heat capacity ratio of a perfect diatomic gas (7/5) |
| real(kind=p), | public, | parameter | :: | rgas | = | akap*cp | Gas constant per unit mass for dry air (J/K/kg) |
| real(kind=p), | public, | parameter | :: | alhc | = | 2501.0 | Latent heat of condensation, in J/g for consistency with specific humidity in g/Kg |
| real(kind=p), | public, | parameter | :: | alhs | = | 2801.0 | Latent heat of sublimation |
| real(kind=p), | public, | parameter | :: | sbc | = | 5.67e-8 | Stefan-Boltzmann constant |
| real(kind=p), | public, | parameter | :: | gamma | = | 6.0 | Reference temperature lapse rate (-dT/dz in deg/km) |
| real(kind=p), | public, | parameter | :: | hscale | = | 7.5 | Reference scale height for pressure (in km) |
| real(kind=p), | public, | parameter | :: | hshum | = | 2.5 | Reference scale height for specific humidity (in km) |
| real(kind=p), | public, | parameter | :: | refrh1 | = | 0.7 | Reference relative humidity of near-surface air |
| real(kind=p), | public, | parameter | :: | thd | = | 2.4 | Max damping time (in hours) for horizontal diffusion (del^6) of temperature and vorticity |
| real(kind=p), | public, | parameter | :: | thdd | = | 2.4 | Max damping time (in hours) for horizontal diffusion (del^6) of divergence |
| real(kind=p), | public, | parameter | :: | thds | = | 12.0 | Max damping time (in hours) for extra diffusion (del^2) in the stratosphere |
| real(kind=p), | public, | parameter | :: | tdrs | = | 24.0*30.0 | Damping time (in hours) for drag on zonal-mean wind in the stratosphere |