;docformat='rst'
;+
;    This is the primary task called by the crontab that handles the daily AIM CIPS
;    preliminary processing.
;
; :Author:
;    Chris Jeppesen, Bill Barrett
;
;-
;+
; :Params:
;   NONE
;
; :Keywords:
;   NONE
;-
;+
; :Examples:
;     run_cips_daily_prelim_processing_cron
;-
PRO run_cips_daily_prelim_processing_cron
  print, get_routine_name() + '  starting at ' + systime()
  begin_time = systime(1)
  
  ; The following line initializes the Query Database software used
  ;   for all database access
  query_database, "", nrows, data, /GET_LOGIN
  ; Get today's date
  curr_time=fix(systime(/seconds, /julian, /utc)-0.5, type=3) + 0.5
  start_time=jd2gps(curr_time)*1e6
  aim_day=usec2ad(start_time)
  print, get_routine_name() + '  AIM day is ', aim_day
  print, get_routine_name() + '  Year day is ', ad2yd( aim_day )
  ; Initialize the prelim production environment
  set_cips_production_vars
  set_debug_level, 5

  set_production_flag, flag=0
  print, "run_cips_production_processing", aim_day -1

  run_cips_production_processing, aim_day-2, aim_day-1, /just_1a, /YD
  ;run_cips_production_processing, aim_day-2, aim_day-1, /YD

  two_days_in_microseconds = 2 * 86400000000LL
  ; Under normal circumstances there are neither "flat_field" nor "noon_fast_cadence" images taken
  ;   during continuous imaging
  if (start_time - two_days_in_microseconds) lt !first_continuous_imaging_timestamp then begin
    print, "#######################################################################################"
    print, get_routine_name() + '  get_1a_images, aim_day, aim_day, "flat_field", output_path="/aim/data/cips/special_1a/flat"'
    print, "#######################################################################################"
    get_1a_images, aim_day-2, aim_day-1, "flat_field", output_path="/aim/data/cips/special_1a/flat"

    print, "#######################################################################################"
    print, get_routine_name() + '  get_1a_images, aim_day, aim_day, "noon_fast_cadence", output_path="/aim/data/cips/special_1a/noon_fast_cadence"'
    print, "#######################################################################################"
    get_1a_images, aim_day-2, aim_day-1, "noon_fast_cadence", output_path="/aim/data/cips/special_1a/noon_fast_cadence"
  endif else print, get_routine_name() + $
    '  no "flat_field" or "noon_fast_cadence" images are taken during continuous imaging'


  elapsed=systime(1)-begin_time
  print, get_routine_name() + '  finishing at ' + systime() + $
    "  TIME ELAPSED - " + strtrim(string(elapsed/60), 2) + " minutes"

END