;+
;
; Laboratory for Atmospheric and Space Physics
; University of Colorado, Boulder, Colorado, USA
;
; FILENAME:
;   get_physical_constant.pro
;
; AUTHOR:
;   Lon Riesberg
;
; DATE:    November 16, 2005
;
; PURPOSE:
;   Returns the value of a requested physical constant.
;
; INPUT PARAMETERS:
;   phys_const - name of the physical constant whose value is needed
;
; RETURN VALUE:
;   value of the requested physical constant
;
; BACKGROUND:
;
;  NOTES:
;   To add new constants, two things need to happen:
;      1) add a new key/value pair to constants_library[]
;      2) increment library_item_count at the top of the function
;
;  CONSTRAINTS:
;
;  SUPPORTING DATABASE TABLES OR FILES:
;
;  USAGE EXAMPLE:
;  value = get_physical_constant('cloud_deck_ht')
;

function get_physical_constant, cloud_deck_alt=cloud_deck_alt,ozone_deck_alt=ozone_deck_alt,count_per_rad=count_per_rad

if keyword_set(cloud_deck_alt) then return,83
if keyword_set(ozone_deck_alt) then return,50
if keyword_set(count_per_rad) then return,2.4E7

end