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.