; $Id: aw_idl_startup.pro,v 1.8 2012/09/13 20:18:59 awalther Exp $
;

DEVICE, retain = 2
USE_OBSOLETE = 0
QUIET =1



homedir = strtrim(getenv("HOME"),2)
!EDIT_INPUT = 1000

args = Command_Line_args(count = n_args)
path_ext =''
IF args[0] eq 'cci' THEN path_ext = ':+'+homedir+'/PROJECTS/FAMEC-CCI/'
IF args[0] eq 'all' THEN path_ext = ':+'+homedir+'/_idl_container/'
IF args[0] eq 'max' THEN path_ext = ':+'+homedir+'/SOFTWARE/idl_aux/max/'
IF args[0] eq 'cicker' THEN path_ext = ':+'+homedir+'/ALGO/cicker/idl/'


!PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/IDLTOOLS/idl_aux/:+'+homedir+'/SOFTWARE/IDLTOOLS/aw_idltools/trunk/'+path_ext)

if args[0] eq 'ssec' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/idl_cloud_group/')
IF args[0] eq 'aw' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/aw_idltools/')
IF args[0] eq 'patmos' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/patmosx_tools/')
IF args[0] eq 'avacs' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/AVAC-X/trunk/')
IF args[0] eq 'avacs_plus' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/AVAC-X/trunk/:+'+homedir+'/SOFTWARE/IDLTOOLS/aw_idltools/trunk/:+'+homedir+'/SOFTWARE/IDLTOOLS/idl_aux/')
IF args[0] eq 'avacs_aw' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/AVAC-X/branches/add_geo_satellies_preperation/')
IF args[0] eq 'gvap' THEN !PATH = Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/GVAP/repo/:'+homedir+'/idl_aux/idl-coyote-read-only/coyote/:+'+homedir+'/idltools/:+'+homedir+'/idl_aux')

if args[0] eq 'cws' then !PATH =  Expand_Path('<IDL_DEFAULT>:+'+homedir+'/SOFTWARE/ICWG_IDL/tools/')


host = strTrim(getenv("HOST"),2)
host_name = strUpCase((strsplit(host,'.',/EXTRACT))[0])

prmpt_ext =''
IF args[0] eq 'cci' THEN prmpt_ext = '_CCI'
IF args[0] eq 'cicker' THEN prmpt_ext = '_CICKER'
IF args[0] eq 'all' THEN prmpt_ext = '_ALL'
IF args[0] eq 'patmos' THEN prmpt_ext = '_PATMOS'
IF args[0] eq 'avacs' THEN prmpt_ext = '_AVACS'
IF args[0] eq 'avacs_plus' THEN prmpt_ext = '_AVACS_PLUS'
IF args[0] eq 'avacs_aw' THEN prmpt_ext = '_AVACS_AW'
IF args[0] eq 'gvap' THEN prmpt_ext = '_GVAP'
if args[0] eq 'max' then prmpt_ext = '_MAX'
if args[0] eq 'cws' then prmpt_ext = '_CWS'
if args[0] eq 'aw' then prmpt_ext = '_AW'
!prompt=host_name +prmpt_ext+ '_IDL>'





DEFSYSV, '!HOST', host_name

project_str = CREATE_STRUCT('main_dir','/home/awalther/PROJECTS/','sat_out','/data/Satellite_Output/')

;DEFSYSV,'!PROJECTS',project_str


DEFSYSV, '!PROJECTS', { $
     main_dir: $
	 
	   '/Users/awalther/PROJECTS/' $ 
	

	 ,ancil_path: $
	   '/DATA/geocat/data_algorithms/baseline_cloud_micro_day/version_1/' $	
		
		
	 ,cws_path: $
	    '/DATA/ICWG_local/data/results/' $
		
	
	 ,lut_path: $
        '/Users/awalther/PROJECTS/LUT/' $
	
	 ,nwp_path: $
       '/DATA/Ancil_Data/nwp/gfs/hdf/' $
	
		}
		
;Device, Decomposed=0 ; Selects Indexed Color Model.	
;!P.background=cgcolor('white')
;!p.color=cgcolor('black')
;Device, Decomposed=1 ; Selects Indexed Color Model.		
;!p.color=0