;+
;NAME:
;mvn_pfpl2_long_1day
;PURPOSE:
;reads in a start and end date, and reprocesses all of the days in
;the interval. This is a main program, designed to be called from a
;shell script. Processes 1 day at a time
;CALLING SEQUENCE:
; .run mvn_pfpl2_long_1day
;INPUT:
;start_time, end_time are input from files
;mvn_pfpl2_long_1day_start_time.txt and
;mvn_pfpl2_long_1day_end_time.txt.
;OUTPUT:
;PLots, so far pfpl2 long-term (2 week plots)
;HISTORY:
; 2015-04-24, jmm, jimm@ssl.berkeley.edu
; 2019-12-18, jmm, Optimized for pfpl2_long reprocess
;-
this_file = 'mvn_pfpl2_long_1day'
spawn, 'touch '+this_file+'_lock'
;Apparently you cannot compile code in the way we're calling this, so
st_file = this_file+'_start_time.txt'
st_time = strarr(1)
openr, unit, st_file, /get_lun
readf, unit, st_time
free_lun, unit
tstart = time_double(st_time[0])
timespan, tstart, 1;Needed for cron job
en_file = this_file+'_end_time.txt'
en_time = strarr(1)
;process days
openr, unit, en_file, /get_lun
readf, unit, en_time
free_lun, unit
tend = time_double(en_time[0])
If(tstart Ge tend) Then exit
;do the process one day at a time, in the local working directory
;mvn_over_shell, date = time_string(tstart), instr='pfpl2',
;/multipngplot
mvn_call_pfpl2plot, days_in = time_string(tstart, precision = -3), instr = 'pfpl2_long', /no_proc_mail
;Add a day and reset start time file
tstart_new = tstart+86400.0d0
openw, unit, this_file+'_start_time.txt', /get_lun
printf, unit, time_string(tstart_new)
free_lun, unit
;All done
spawn, '/bin/rm '+this_file+'_lock'
exit