pro perf_dyn,ps=ps
;
;tiegcm-nt001.bv.out:  Elapsed dynamo      =   150.78 secs, 0.042 hrs,   4.5%
;tiegcm-nt004_task0.bv.out:   0:  Elapsed dynamo      =   665.32 secs,  .185 hrs,  17.8%
;tiegcm-nt008_task0.bv.out:   0:  Elapsed dynamo      =   622.73 secs,  .173 hrs,  27.1%
;tiegcm-nt016_task0.bv.out:   0:  Elapsed dynamo      =   616.21 secs,  .171 hrs,  38.4%
;tiegcm-nt024_task0.bv.out:   0:  Elapsed dynamo      =   612.30 secs,  .170 hrs,  41.6%
;tiegcm-nt032_task0.bv.out:   0:  Elapsed dynamo      =   612.86 secs,  .170 hrs,  42.8%
;
;tiegcm-nt004_task0.bs.out:   0:  Elapsed dynamo      =  1014.17 secs,  .282 hrs,  16.3%
;tiegcm-nt008_task0.bs.out:   0:  Elapsed dynamo      =   983.36 secs,  .273 hrs,  24.0%
;tiegcm-nt016_task0.bs.out:   0:  Elapsed dynamo      =   974.46 secs,  .271 hrs,  31.7%
;tiegcm-nt024_task0.bs.out:   0:  Elapsed dynamo      =   974.49 secs,  .271 hrs,  30.9%
;tiegcm-nt032_task0.bs.out:   0:  Elapsed dynamo      =   894.92 secs,  .249 hrs,  39.9%
;
;tiegcm-nt001.ln.out:  Elapsed dynamo      =   499.52 secs, 0.139 hrs,  41.6%
;tiegcm-nt004_task0.ln.out:  Elapsed dynamo      =  1128.22 secs, 0.313 hrs,  19.6%
;tiegcm-nt008_task0.ln.out:  Elapsed dynamo      =  1227.74 secs, 0.341 hrs,  27.4%
;tiegcm-nt016_task0.ln.out:  Elapsed dynamo      =  1173.74 secs, 0.326 hrs,  32.3%
;tiegcm-nt024_task0.ln.out:  Elapsed dynamo      =  1189.92 secs, 0.331 hrs,  30.1%
;tiegcm-nt032_task0.ln.out:  Elapsed dynamo      =  1100.94 secs, 0.306 hrs,  25.7%
;
if (keyword_set(ps)) then begin
  set_plot,'PS'
endif else begin
  set_plot,'X'
endelse
;
proc         = [1.  , 4. , 8. , 16., 24., 32.] ; use with secs/step
nproc = n_elements(proc)
;
; Bluevista:
;
time_bv = [4.5, 17.8, 27.1, 38.4, 41.6, 42.8]
ytitle="% elapsed in dynamo"
yrange=[0.,45.]
plot,proc,time_bv,xtitle="ntask (1,4,8,16,24,32)",ytitle=ytitle,$
  yrange=yrange,position=[.1,.2,.9,.9],/norm,$
  title="TIEGCM 1-day simulation (hres=2.5, vres=0.25, step=90s)"
xyouts,proc[nproc-1]+1.,time_bv[nproc-1],"Bluevista"
;
; Bluesky:
;
time_bs = [0., 16.3, 24.0, 31.7, 30.9, 39.9]
oplot,proc,time_bs,linestyle=2 ; linestyle=2 -> dashed
xyouts,proc[nproc-1]+1.,time_bs[nproc-1],"Bluesky"
;
; Lightning:
;
time_ln = [41.6, 19.6, 27.4, 32.3, 30.1, 25.7]
oplot,proc,time_ln,linestyle=1 ; linestyle=1 -> dotted
xyouts,proc[nproc-1]+1.,time_ln[nproc-1],"Lightning"
;
if (keyword_set(ps)) then begin
  device,/close
endif
;
end