Defines useful constants for Earth in mks units.
fms_mod
use constants_mod [, only: constants_init ]
| Name | Type | Value | Units | Description |
|---|---|---|---|---|
| RADIUS | real | 6376.e3 | meters | radius of the earth |
| OMEGA | real | 7.292e-5 | 1/sec | rotation rate of the planet (earth) |
| GRAV | real | 9.80 | m/s2 | acceleration due to gravity |
| RDGAS | real | 287.04 | J/kg/deg | gas constant for dry air |
| KAPPA | real | 2./7. | RDGAS / CP | |
| CP | real | RDGAS/KAPPA | J/kg/deg | specific heat capacity of dry air at constant pressure |
| RVGAS | real | 461.50 | J/Kg/deg | gas constant for water vapor |
| DENS_H2O | real | 1000. | Kg/m3 | density of liquid water |
| HLV | real | 2.500e6 | J/Kg | latent heat of evaporation |
| HLF | real | 3.34e5 | J/kg | latent heat of fusion |
| HLS | real | 2.834e6 | J/Kg | latent heat of sublimation |
| TFREEZE | real | 273.16 | deg K | temp where fresh water freezes |
| STEFAN | real | 5.6734e-8 | (W/m2/deg4 | Stefan-Boltzmann constant |
| VONKARM | real | 0.40 | --- | Von Karman constant |
| PI | real | 3.14159265358979323846 | --- | is it enough? |
call constants_init
use constants_mod, only: TFREEZE, grav_new => GRAV
real, parameter :: grav_inv = 1.0 / grav_new
tempc(:,:,:) = tempk(:,:,:) - TFREEZE
geopotential(:,:) = height(:,:) * grav_new
1. Renaming of constants.
2. Additional constants.