pro run_map_vm

@compile_opt.pro		; On error, return to caller

;+
; NAME:
;	run_map_vm
; PURPOSE:
;	IDL main program to update the IPS forecast Web pages.
;	Run on Linux as a cron job.
; CATEGORY:
;	WWW
; CALLING SEQUENCE:
;	idl $pro/main/run_map
; INPUTS:
;	(none)
; OUTPUTS:
;	(none)
; CALLS:
;	forecast, TimeOp, TimeUnit
; 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:
;	After completion IDL exits again.
; MODIFICATION HISTORY:
;	MAR-2000, Paul Hick (UCSD/CASS)
;	SEP-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;		Added processing of magnetic field for corotating tomography
;-

silent = 1
ftp = 0

;!TheTerminal = 'Z'		; Redundant ??

T1 = TimeSystem(/silent)

print
print
print
message, /info, 'Fast maps: velocity and density'
print

forecast, ftp=ftp, silent=silent, /fast, filter='nv3f'

print
print
print
message, /info, 'Fast maps: radial and tangential magnetic field'
print

forecast, ftp=ftp, silent=silent, /fast, /magnetic

print
print
print
message, /info, 'Slow maps: velocity and density'
print

forecast, ftp=ftp, silent=silent

print
print
print
message, /info, 'Slow maps: radial and tangential magnetic field'
print

forecast, ftp=ftp, silent=silent, /magnetic

T2 = TimeSystem(/silent)

print
print
message, /info, 'done in'+ strcompress(TimeOp(/subtract,T2,T1, TimeUnit(/minute)))+ ' minutes'

return  &  end