; Driver program to create/display simulation parameters for Sarah's IAU poster.

;--------------------------------------------------------------------------------

; read in the coronal hole data

!P.MULTI = [0,2,2,0,0]

ch_arr = READ_MAS_2D(filename='ch.hdf',coord1=phi_ch,coord2=theta_ch)

ch_arr = TRANSPOSE(ch_arr)

lat_ch = 90.-theta_ch/!DTOR

CONTOUR,ch_arr,phi_ch/!DTOR,lat_ch,/FILL,XSTYLE=1,YSTYLE=1,CHARSIZE=3, $
	XTICKS=6,YTICKS=6,TITLE='Coronal Hole Boundaries'
;--------------------------------------------------------------------------------

; read in coronal Br data for the Current Sheet display at 2.5RS

br_corona = READ_MAS_3D(filename='br013-corona.hdf',R=r_brc,THETA=theta_brc,PHI=phi_brc,/UNITS)
lat_brc = 90.-theta_brc/!DTOR
ibr = 118 ; this is for 2.5 RS

CONTOUR,TRANSPOSE(REFORM(br_corona(ibr,*,*))),phi_brc/!DTOR,lat_brc,/FILL,LEVELS=[0],XSTYLE=1,YSTYLE=1,CHARSIZE=3, $
	XTICKS=6,YTICKS=6,XRANGE=[0,360],YRANGE=[-90,90],TITLE='Current Sheet at 2.5Rs'

;--------------------------------------------------------------------------------

; read in Helio Br data for the Current Sheet display at 1 AU

br_helio = READ_MAS_3D(filename='br002-helio-shift.hdf',R=r_brh,THETA=theta_brh,PHI=phi_brh,/UNITS)
lat_brh = 90.-theta_brh/!DTOR
ibr = 100 ; this is for 1 AU

CONTOUR,TRANSPOSE(REFORM(br_helio(ibr,*,*))),phi_brh/!DTOR,lat_brh,/FILL,LEVELS=[0],XSTYLE=1,YSTYLE=1,CHARSIZE=3, $
	XTICKS=6,YTICKS=6,XRANGE=[0,360],YRANGE=[-90,90],TITLE='Current Sheet at 1 AU'
;--------------------------------------------------------------------------------

; read in Helio Vr data at 1 AU

vr_helio = READ_MAS_3D(filename='vr002-helio-shift.hdf',R=r_vrh,THETA=theta_vrh,PHI=phi_vrh,/UNITS)
lat_vrh = 90.-theta_vrh/!DTOR
ivr = 100 ; this is for 1 AU

LOADCT,39

CONTOUR,TRANSPOSE(REFORM(vr_helio(ivr,*,*))),phi_vrh/!DTOR,lat_vrh,/FILL,NLEVELS=60,XSTYLE=1,YSTYLE=1,CHARSIZE=3, $
	XTICKS=6,YTICKS=6,XRANGE=[0,360],YRANGE=[-90,90],TITLE='Vr at 1 AU'

;--------------------------------------------------------------------------------

END

;--------------------------------------------------------------------------------