For storing and initializing physical constants.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real, | public, | parameter | :: | rearth | = | 6.371e+6 | Radius of Earth (m) |
real, | public, | parameter | :: | omega | = | 7.292e-05 | Rotation rate of Earth (rad/s) |
real, | public, | parameter | :: | grav | = | 9.81 | Gravitational acceleration (m/s/s) |
real, | public, | parameter | :: | p0 | = | 1.e+5 | Reference pressure (Pa) |
real, | public, | parameter | :: | cp | = | 1004.0 | Specific heat at constant pressure (J/K/kg) |
real, | 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, | public, | parameter | :: | rgas | = | akap*cp | Gas constant per unit mass for dry air (J/K/kg) |
real, | public, | parameter | :: | alhc | = | 2501.0 | Latent heat of condensation, in J/g for consistency with specific humidity in g/Kg |
real, | public, | parameter | :: | alhs | = | 2801.0 | Latent heat of sublimation |
real, | public, | parameter | :: | sbc | = | 5.67e-8 | Stefan-Boltzmann constant |
real, | public, | dimension(kx) | :: | sigl | Logarithm of full-level sigma |
||
real, | public, | dimension(0:kx) | :: | sigh | Half-level sigma |
||
real, | public, | dimension(kx) | :: | grdsig | g/(d_sigma p0) : to convert fluxes of u,v,q into d(u,v,q)/dt |
||
real, | public, | dimension(kx) | :: | grdscp | g/(d_sigma p0 c_p): to convert energy fluxes into dT/dt |
||
real, | public, | dimension(kx,2) | :: | wvi | Weights for vertical interpolation |