;docformat='rst'
;+
;    Set the system spacecraft and associated times to be used for AIM CIPS processing
;
; :Author:
;    Lon Riesberg
;
;-
;+
; :Keywords:
;   sc_number: in, optional, type=long
;     a space craft number. If none is specified this will default
;     to 31304, the AIM spacecraft number
;
;-
;+
; :Examples:
;     set_aim_vars
;-
pro set_aim_vars,sc_number=sc_number
  ; default to AIM if no spacecraft is specified
  if n_elements(sc_number) eq 0 then sc_number=31304
  defsysv,'!sc_number',sc_number
  ; AIM CIPS processing
  if sc_number eq 31304 then begin
    defsysv,'!mission_day_epoch',oasis2usec('2007-04-25 00:00:00')
    defsysv,'!t_drop',oasis2usec('2007-04-25 20:26:01')+331000d ;approximate
    defsysv,'!t_sep',oasis2usec('2007-04-25 20:34:00')          ;approximate
    defsysv,'!t_node1',861571672215000d                         ;Official time of first node, 25 Apr 2007 21:27:38.215UTC
                                                              ;equal to actual first node time
                                                              ;according to TLEs +/-1ms
  ; SIM processing, sc_number=54321
  end else if (sc_number eq 54321) then begin
    defsysv,'!mission_day_epoch',oasis2usec('2007-06-20 00:00:00')
    defsysv,'!t_drop',oasis2usec('2007-04-25 20:26:01')+331000d 
    defsysv,'!t_sep',oasis2usec('2007-04-25 20:34:00')          
    defsysv,'!t_node1',oasis2usec('2007-06-21 00:00:00')        
  end                                                          

  defsysv,'!ad_epoch',gps2yd(!mission_day_epoch/1d6)
                                                              

end