function models(){
  var model = new Array()
  model[0] = new Array("1","2")

  model[1] = new Array(
"Ekstrom, G. & Dziewonski, A.M., 1998. The unique anisotropy of the Pacific upper mantle, Nature, 394, 168-172.",
"seismology.harvard.edu",
"Vs",
"Harvard_1998",
"grid/grid_1.txt.zip",
"data/s20a_iso.coef.zip",
"",
"",
"data/s20aiso.dat.zip",
"mapview/flat1_",58,
"isosurface/isos1_",42,
"rms/rms_1.jpg",0,
"correlation/corcof",1,
"slice/slice1_",58)

  model[2] = new Array(
"Su, W.-J., Woodward, R.L. & Dziewonski, A.M., 1994. Degree 12 model of shear velocity heterogeneity in the mantle, J. Geophys. Res., 99, 6945-6980.",
"seismology.harvard.edu",
"Vs",
"Harvard_s12wm13",
"grid/grid_2.txt.zip",
"data/s12wm13.coef.zip",
"",
"",
"data/s12wm13.dat.zip",
"mapview/flat2_",58,
"isosurface/isos2_",42,
"rms/rms_2.jpg",0,
"correlation/corcof",2,
"slice/slice2_",58)

  model[3] = new Array(
"Liu, X.-F., Su, W.-J., & Dziewonski, A. M., 1994. Improved resolution of the lowermost mantle shear wave velocity structure obtained using SKS-S data, Eos Trans. AGU, 75, 232-233.",
"seismology.harvard.edu",
"Vs",
"Harvard_sks",
"grid/grid_3.txt.zip",
"data/sks12wm13.coef.zip",
"",
"",
"data/sks12wm13.dat.zip",
"mapview/flat3_",58,
"isosurface/isos3_",42,
"rms/rms_3.jpg",0,
"correlation/corcof",3,
"slice/slice3_",58)

  model[4] = new Array(
"Masters, G., Johnson, S., Laske, G. & Bolton, H., 1996. A shear velocity model of the mantle, Philos. Trans. R. Soc. Lond., A, 354, 1385-1414.",
"guy@mahi.ucsd.edu",
"Vs",
"Scripps_Vs",
"grid/grid_4.txt.zip",
"",
"",
"data/s16b30.zip",
"data/s16b30.dat.zip",
"mapview/flat4_",58,
"isosurface/isos4_",42,
"rms/rms_4.jpg",0,
"correlation/corcof",4,
"slice/slice4_",58)

  model[5] = new Array(
"Li, X.D. & Romanowicz, B., 1996. Global mantle shear-velocity model developed using nonlinear asymptotic coupling theory, J. Geophys. Res., 101, 22,245-22,272.",
"barbara@seismo.berkeley.edu ",
"Vs",
"Berkeley1996",
"grid/grid_5.txt.zip",
"data/saw12d.coef.zip",
"data/saw12d.s3d.zip",
"",
"data/LR090599.dat.zip",
"mapview/flat5_",58,
"isosurface/isos5_",42,
"rms/rms_5.jpg",0,
"correlation/corcof",5,
"slice/slice5_",58)

  model[6] = new Array(
"Grand, S.P., 1994. Mantle shear structure beneath the Americas and surrounding oceans, J. Geophys. Res., 99, 11,591-11,621.",
"steveg@maestro.geo.utexas.edu ",
"Vs",
"Grand 1994",
"grid/grid_6.txt.zip",
"",
"",
"",
"data/SG082699.dat.zip",
"mapview/flat6_",58,
"isosurface/isos6_",42,
"rms/rms_6.jpg",0,
"correlation/corcof",6,
"slice/slice6_",58)

  model[7] = new Array(
"Ishii, M. & Tromp, J., 1999. Normal-mode and free-air gravity constraints on lateral variations in velocity and density of the Earth's mantle, Science, 285, 1231-1236.",
"http://www.seismology.harvard.edu/projects/modes",
"Vs",
"Normal & Vs",
"grid/grid_7.txt.zip",
"data/sprd6_s.coef.zip",
"",
"",
"data/alp6o_s_.dat.zip",
"mapview/flat7_",58,
"isosurface/isos7_",42,
"rms/rms_7.jpg",0,
"correlation/corcof",7,
"slice/slice7_",58)

  model[8] = new Array(
"Ishii, M. & Tromp, J., 1999. Normal-mode and free-air gravity constraints on lateral variations in velocity and density of the Earth's mantle, Science, 285, 1231-1236.",
"http://www.seismology.harvard.edu/projects/modes",
"Vp",
"Normal & Vp",
"grid/grid_8.txt.zip",
"data/sprd6_p.coef.zip",
"",
"",
"data/alp6o_p_.dat.zip",
"mapview/flat8_",58,
"isosurface/isos8_",42,
"rms/rms_8.jpg",0,
"correlation/corcof",8,
"slice/slice8_",58)

  model[9] = new Array(
"Masters, G., Johnson, S., Laske, G. & Bolton, H., 1996. A shear velocity model of the mantle, Philos. Trans. R. Soc. Lond., A, 354, 1385-1414.",
"guy@mahi.ucsd.edu",
"Vp",
"Scripps_Vp",
"grid/grid_9.txt.zip",
"",
"",
"data/p16b30.zip",
"data/p16b30.dat.zip",
"mapview/flat9_",58,
"isosurface/isos9_",42,
"rms/rms_9.jpg",0,
"correlation/corcof",9,
"slice/slice9_",58)

  model[10] = new Array(
"Karason H. & van der Hilst, R., 1999. Improving Global Tomography Models of P-Wavespeed I: Incorporation of Differential Times for Refracted and Diffracted Core Phases (PKP, Pdiff), submitted to J. Geophys. Res.",
"hilst@mit.edu",
"Vp",
"MIT_Vp",
"grid/grid_10.txt.zip",
"",
"",
"",
"data/KR082099.dat.zip",
"mapview/flat10_",58,
"isosurface/isos10_",42,
"rms/rms_10.jpg",0,
"correlation/corcof",10,
"slice/slice10_",58)

  model[11] = new Array(
"Boschi, L. & Dziewonski, A.M., 1999. `High' and `low' resolution images of the Earth's mantle - Implications of different approaches to tomographic modeling, J. Geophys. Res., 104, 25,567-25,594.",
"dziewons@geophysics.harvard.edu ",
"Vp",
"Harvard_Vp",
"grid/grid_11.txt.zip",
"",
"",
"",
"data/BD090499.dat.zip",
"mapview/flat11_",58,
"isosurface/isos11_",42,
"rms/rms_11.jpg",0,
"correlation/corcof",11,
"slice/slice11_",58)

for (n=0;n<model.length-1;n++){model[0][n] = model[n+1][3]}
return model
}

function cntrnum() { 
  pn = GetCookie('cntrnum');
  if (pn.length==1){
    ch_mdl = 1;ch_dpt = 1;ch_btn = 0;ch_rot = 1;ch_md2 = 1;
    n_descr=3;n_frmt=8;n_map=10;n_iso=12;n_rms=14;n_corr=16;n_slice=18;
    lon1=0;lat1=0;lon2=80;lat2=50;
    pn = new Array(9,16,ch_mdl,ch_dpt,ch_btn,ch_rot,ch_md2,0,0,n_descr,n_frmt,n_map,n_iso,n_rms,n_corr,n_slice,lon1,lat1,lon2,lat2)
    SetCookie("cntrnum",pn)
  }
  return pn
}

function fillselect(vartext,selectname,selectindex){
  lold = selectname.length
  if (lold==1){lnew = (vartext.length-1);
    selectname.options[0].text = vartext[0]
    for (n=1;n<lnew+1;n++){selectname.options[n]=new Option(vartext[n])}
//    if (document.layers) {window.history.go(0)}
    if (document.all) {selectname.options.size = 11}
  selectname.options.selectedIndex = selectindex
  }
}