;<pre><i>  examples file for the LOWHUND model.

        ;<a href="http://www.hao.ucar.edu/FORWARD/FOR_SSW/docs/MODELPAPERS/lowhund.pdf">Paper 1</a> and
        ;<a href="http://www.hao.ucar.edu/FORWARD/FOR_SSW/docs/MODELPAPERS/lowhund1.pdf">Paper 2</a>. 

        ;If this is your first time using for_drive, then read
        ;<a href = "http://www.hao.ucar.edu/FORWARD/FOR_SSW/docs/INSTRUCTIONS/examples0_setup.html">Setup instructions</a> </i>

ymn=-0.2
ymx=0.2
xmn=1.
xmx=1.2

for_drive,'lowhund',line='dens',nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/plotlog,/fieldlines,winnum=3

for_drive,'lowhund',line='beta',nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/fieldlines,winnum=8

for_drive,'lowhund',line='temp',nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/plotlog,/fieldlines,winnum=1

for_drive,'lowhund',line='bx',nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/fieldlines,lambdasign=-1,winnum=2

for_drive,'lowhund',nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/fieldlines,lambdasign=-1,winnum=2,ngr=64,/plotlog

for_drive,'lowhund',inst='euvia',line=195,nwinx=512,nwiny=512,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/fieldlines,lambdasign=-1,winnum=2,ngr=64,/plotlog

	;<i>***STEP THROUGH PHI SLICES </i>

for ip=0.,360.,45. do for_drive,'lowhund',nwinx=512,nwiny=512,extratitle='phi='+strtrim(ip,2),mapname='lowhund_Bphi_phi='+strtrim(ip,2),/gif,charsize=0.8,line='bph',/fieldlines,bscale=1,lambdasign=-1,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,cmer=ip,docont=0

	;<i>***STEP THROUGH X SLICES </i>

for ixoffset=0,13 do for_drive,'lowhund',nwinx=512,nwiny=512,xoffset=-.3+float(ixoffset)*0.05,extratitle='X-offset='+strtrim(float(-.3+float(ixoffset)*0.05),2),mapname='lowhund_BX_X-offset='+strtrim(float(ixoffset),2),/gif,charsize=0.8,line='bx',/fieldlines,yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/pos,narrow=30


for ixoffset=0,13 do for_drive,'lowhund',nwinx=512,nwiny=512,xoffset=-.3+float(ixoffset)*0.05,extratitle='X-offset='+strtrim(float(-.3+float(ixoffset)*0.05),2),mapname='lowhund_BMAG_X-offset='+strtrim(float(ixoffset),2),/gif,charsize=0.8,line='bmag',yymin=ymn,yymax=ymx,xxmin=xmn,xxmax=xmx,/pos,narrow=30


ymn=-0.2
ymx=0.2
xmn=1.
xmx=1.2

	;<i>******VARYING PARAMETERS</i>

wx=4
wy=1
ngr=256
!p.multi=[0,wx,wy]

irat=0.

for_drive,'lowhund',line='dens',nwinx=wx*ngr,nwiny=wy*ngr,/plotlog,yymin=-0.05,yymax=0.05,xxmin=1.,xxmax=1.1,winnum=5,/fieldlines,rhorat=irat,extratitle='rhorat'+strtrim(string(irat),2),colortable=0,narrow=20

for irat=0.05,.15,.05 do for_drive,'lowhund',line='dens',nwinx=wx*ngr,nwiny=wy*ngr,/plotlog,yymin=-0.05,yymax=0.05,xxmin=1.,xxmax=1.1,rhorat=irat,/noerase,/fieldlines,extratitle='rhorat'+strtrim(string(irat),2),colortable=0,narrow=20


end
;</pre>