;+
; NAME:
;	run_mean
; PURPOSE:
;	IDL main program to update final (average) files for
;	corotating tomography.
; CATEGORY:
;	WWW
; CALLING SEQUENCE:
;	idl $pro/run_mean
; INPUTS:
;	(none)
; OUTPUTS:
;	(none)
; CALLED_BY:
;	sync_daily_ips
; CALLS:
;	vu_update_hours, forecast_ice, vu_prefix, forecast_env
; RESTRICTIONS:
;	Can only be run on Linux.
;	idl_startup.pro needs to be run. This requires that the environment
;	variable IDL_STARTUP is set.
; PROCEDURE:
;	This is run as part of the cron job sync_daily_ips after new
;	tomography files have been created.
;
;	First all hourly tomography files that are affected by the
;	new tomography file are updated (by overwriting them).
;	Then a number of new hourly files are created by extending
;	the range of hourly to at most 3 days beyond the time of
;	the new tomography file.
; MODIFICATION HISTORY:
;	APR-2000, Paul Hick (UCSD/CASS)
;	SEP-2002, Paul Hick (UCSD/CASS)
;		Added processing of 'bb3d' files
;		Added call to forecast_ice to move older files out of the way.
;	JUN-2003, Paul Hick (UCSD/CASS)
;		bb3d files are now called wson files.
;	JUL-2004, Paul Hick (UCSD/CASS)
;		Modified to process more than one type of magnetic field data.
;-

nfuture = 2
npast   = 6

silent = getenv('SILENT')
IF silent EQ '' THEN silent = 2 ELSE silent = fix(silent)

rounds = 3600
kind   = 'slow'
triangle  = [ 4,-(7+4),7-4, 0.0 ]
hour_step = 6

nv_prefix = vu_prefix(silent=silent)

forecast_env, kind, /magnetic, bb_prefix_slow, silent=silent
vu_update_hours, kind, $
	filter		= nv_prefix	, $
	nday_future	= nfuture	, $
	hour_step	= hour_step	, $
	nday_past	= npast		, $
	silent		= silent	, $
	rounds		= rounds	, $
	triangle	= triangle	, $
	/setbad					, $
	/gzip

IF n_elements(bb_prefix_slow) EQ 0 THEN say, "no  magnetic field prefix specified", threshold=0, silent=silent
IF n_elements(bb_prefix_slow) EQ 0 THEN exit

setenv, 'bb_filter='+bb_prefix_slow[0]
vu_update_hours, kind, $
	filter		= bb_prefix_slow[0]	, $
	nday_future	= nfuture			, $
	hour_step	= hour_step			, $
	nday_past	= npast				, $
	silent		= silent			, $
	rounds		= rounds			, $
	triangle	= triangle			, $
	/setbad							, $
	/gzip

FOR i=1,n_elements(bb_prefix_slow)-1 DO say, "ignoring prefix "+bb_prefix_slow[i], threshold=2, silent=silent

exit						; Exit IDL