COMPILE_OPT IDL2                                   ;Set compiler options

!PATH = !PATH + ':' + EXPAND_PATH('+idl')          ;User's directory for IDL programs
   
DEVICE, RETAIN = 2                                 ;Have IDL provide backing store

DEFSYSV, '!Bowman', (FILE_SEARCH('idl/bowman/', $  ;Path to example programs and data
   /FULLY_QUALIFY_PATH, /MARK_DIRECTORY))[0]

DEFSYSV, '!DDTOR',             !DPI/180.0D0, 1     ;Double precision degrees to radians
DEFSYSV, '!DRADEG',            180.0D0/!DPI, 1     ;Double precision radians to degrees

DEFSYSV, '!Speed_of_light',   299792458.0D0, 1     ;Speed of light in vacuum (m s^-1)
DEFSYSV, '!Planck',          6.62606876D-34, 1     ;Planck constant (J s)
DEFSYSV, '!Universal_gas',      8314.4720D0, 1     ;Universal gas constant (J K^-1 kmol^-1)
DEFSYSV, '!Stefan_Boltzmann',  5.670400D-08, 1     ;Stefan-Boltzman constant (W m^-2 K^-4)
DEFSYSV, '!Avogadro',        6.02214199D+26, 1     ;Avogadro's number (molecules kmol^-1)
DEFSYSV, '!Gravitation',          6.673D-11, 1     ;Gravitational constant (J K^-1)
DEFSYSV, '!Boltzmann',        1.3806503D-23, 1     ;Boltzmann's constant (N m^2 kg^-2)

DEFSYSV, '!a0',                 6371220.0D0, 1     ;Mean radius of the Earth (m)
DEFSYSV, '!g',                       9.81D0, 1     ;Acceleration of gravity at sea level (m s^-2)
DEFSYSV, '!S0',                    1367.0D0, 1     ;Solar constant (W m^-2)
DEFSYSV, '!tauDSolar',                86400, 1     ;Length of mean solar day (s)
DEFSYSV, '!tauDSidereal',         86164.0D0, 1     ;Length of sidereal day (s)
DEFSYSV, '!tauYSolar',         31556925.0D0, 1     ;Length of mean solar year (s)
DEFSYSV, '!Omega', 2.0D0*!DPI/!tauDSidereal, 1     ;Rotation rate of the Earth (rad s^-1)

DEFSYSV, '!Rair',                     287.0, 1     ;Gas constant for dry air (J K^-1 kmol^-1)
DEFSYSV, '!Cp',                      1004.0, 1     ;Specific heat of dry air at constant pressure (J K^-1 kg^-1)
DEFSYSV, '!Cv',                       717.0, 1     ;Specific heat of dry air at constant volume (J K^-1 kg^-1)

DEFSYSV, '!Lv',                      2.5E06, 1     ;Latent heat of vaporization (J kg^-1)
DEFSYSV, '!Lf',                     3.34E05, 1     ;Latent heat of fusion (J kg^-1)
DEFSYSV, '!Cw',                      4218.0, 1     ;Specific heat of liquid water at 0 C (J kg^-1)