;+  
; $Header: /mizar/proj/sorce/razor_db/RAZOR_UNIVERSE/DOMAIN_01/sorce/Archive/RZ_VCS/idl/utilities/set_debug_level.pro,v 1.1 2005-04-13 18:26:29+00 riesberl Exp $
;
; Laboratory for Atmospheric and Space Physics
; University of Colorado, Boulder, Colorado, USA
;
; AUTHOR:
;   Chris Pankratz
;
; DATE:    5 April 2005
;
; PURPOSE:
;   Permits establishment of a global debug level that can be obtained
;   in code using the sister routine get_debug_level
;
; BACKGROUND:
;    It is often useful to embed debugging print statements within code; 
;    however, the increased verbosity of these debug statements is usually
;    not desirable after code has been released.  Incorporating a mechanism
;    that conveniently permits activating and deactivating of these debug
;    statements proves very useful in practice.
;
; ALGORITHM:
;    Set a static variable.
;
; REFERENCES
;    None.
; 
;  NOTES
;    None.
; 
;  CONSTRAINTS:
;    None
; 
; INPUT PARAMETERS:
;   debug_level -
;      An integer which will be returned when get_debu_level is called.
;      Normally, zero implies
;      that no debug information is desired.  larger values indicate that more
;      debug verbose debug output is desired.
;
; OUTPUT PARAMETERS:
;   None.
;
; RETURN VALUE (if applicable):
;   Not Applicable
;
; KEYWORD ARGUMENTS:
;   None
;
; OTHER SERVERS/MODULES USED:
;    None
; 
; RELATED MODULES / CLASSES:
;    get_debug_level.pro
;  
; SUPPORTING DATABASE TABLES OR FILES:
;    None.
;
; USAGE EXAMPLE:
;    set_debug_level, 1
; 
;
; VERSION:
;    $Revision: 1.1 $ $Date: 2005-04-13 18:26:29+00 $
;
pro set_debug_level, debug_level_in
;-
; MODIFICATION HISTORY:
;    $Log: set_debug_level.pro,v $
; MODIFICATION HISTORY:
;    Revision 1.1  2005-04-13 18:26:29+00  riesberl
; MODIFICATION HISTORY:
;    Initial revision
; MODIFICATION HISTORY:
; 

common debug, debug_level

PRINT, "Setting debug level to: ",debug_level_in 
debug_level = debug_level_in

end